diff options
| author | Sharlatan Hellseher <sharlatanus@gmail.com> | 2024-04-12 11:40:12 +0100 |
|---|---|---|
| committer | Sharlatan Hellseher <sharlatanus@gmail.com> | 2024-04-12 16:35:20 +0100 |
| commit | d2c92709cddc6cf00f53b1bb8b58409322b31a93 (patch) | |
| tree | 26d2b78a9c339ac540a667980cd86df54b6fe89a /gnu/packages/printers.scm | |
| parent | 45d2ee1bde272d196daab4a203a28f3b83d11fc1 (diff) | |
| download | guix-d2c92709cddc6cf00f53b1bb8b58409322b31a93.tar guix-d2c92709cddc6cf00f53b1bb8b58409322b31a93.tar.gz | |
gnu: robocut: Refresh package style.
* gnu/packages/printers.scm (robocut): Use G-expressions.
[native-inputs]: Remove labels.
[inputs]: Likewise.
Change-Id: I6c7790ab8ed8dddfedc9d6c0e2a7ee0870eea7ec
Diffstat (limited to 'gnu/packages/printers.scm')
| -rw-r--r-- | gnu/packages/printers.scm | 27 |
1 files changed, 11 insertions, 16 deletions
diff --git a/gnu/packages/printers.scm b/gnu/packages/printers.scm index d9a84ce0f7..0069494b4d 100644 --- a/gnu/packages/printers.scm +++ b/gnu/packages/printers.scm @@ -19,6 +19,7 @@ ;;; 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) @@ -83,24 +84,18 @@ simply relay a TCP connection to USB do not work.") (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 |