diff options
Diffstat (limited to 'gnu/packages/printers.scm')
| -rw-r--r-- | gnu/packages/printers.scm | 66 |
1 files changed, 50 insertions, 16 deletions
diff --git a/gnu/packages/printers.scm b/gnu/packages/printers.scm index e7761070e0..0069494b4d 100644 --- a/gnu/packages/printers.scm +++ b/gnu/packages/printers.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2024 Herman Rimm <herman@rimm.ee> ;;; ;;; This file is part of GNU Guix. ;;; @@ -18,17 +19,56 @@ ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu packages printers) + #:use-module (guix gexp) #:use-module (guix packages) #:use-module (guix git-download) #:use-module (guix build-system gnu) + #:use-module (guix build-system go) #:use-module ((guix licenses) #:prefix license:) + #:use-module (gnu packages avahi) + #:use-module (gnu packages golang-xyz) #:use-module (gnu packages libusb) + #:use-module (gnu packages man) #:use-module (gnu packages pkg-config) #:use-module (gnu packages qt)) ;; This is a module for packages related to printer-like devices, but not ;; related to CUPS. +(define-public ipp-usb + (package + (name "ipp-usb") + (version "0.9.25") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/OpenPrinting/ipp-usb") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 "003njvcxi0w97wrs52nm9b0f1d96624hjnv9ywsr1m7p6q7r08mg")))) + (build-system go-build-system) + (arguments + (list + ;; TODO: The project provides manpages and udev rules, review them and + ;; install in the next update cycle. + #:install-source? #f + #:import-path "github.com/OpenPrinting/ipp-usb")) + (inputs + (list avahi libusb)) + (native-inputs + (list go-github-com-openprinting-goipp + pkg-config + ronn)) + (home-page "https://github.com/OpenPrinting/ipp-usb") + (synopsis "HTTP reverse proxy, backed by the IPP-over-USB connection") + (description + "ipp-usb implements an HTTP reverse proxy, backed by the IPP-over-USB +connection to the device. This is because IPP-over-USB implementations which +simply relay a TCP connection to USB do not work.") + (license license:bsd-2))) + (define-public robocut (package (name "robocut") @@ -44,24 +84,18 @@ (base32 "0dp9cssyik63yvkk35s51v94a873x751iqg93qzd8dpqkmz5z8gn")))) (build-system gnu-build-system) (arguments - '(#:phases (modify-phases %standard-phases - (replace 'configure - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (substitute* "Robocut.pro" - (("/usr/") - (string-append out "/"))) - - (invoke "qmake" - (string-append "PREFIX=" out)) - #t)))))) + (list + #:phases + #~(modify-phases %standard-phases + (replace 'configure + (lambda _ + (substitute* "Robocut.pro" + (("/usr/") (string-append #$output "/"))) + (invoke "qmake" (string-append "PREFIX=" #$output))))))) (inputs - `(("libusb" ,libusb) - ("qt" ,qtbase-5) - ("qtsvg-5" ,qtsvg-5))) + (list libusb qtbase-5 qtsvg-5)) (native-inputs - `(("pkg-config" ,pkg-config) - ("qmake" ,qtbase-5))) + (list pkg-config qtbase-5)) (synopsis "Graphical program to drive plotting cutters") (description "Robocut is a simple graphical program that allows you to cut graphics |