me
/
guix
Archived
1
0
Fork 0

gnu: robocut: Refresh package style.

* gnu/packages/printers.scm (robocut): Use G-expressions.
[native-inputs]: Remove labels.
[inputs]: Likewise.

Change-Id: I6c7790ab8ed8dddfedc9d6c0e2a7ee0870eea7ec
master
Sharlatan Hellseher 2024-04-12 11:40:12 +01:00
parent 45d2ee1bde
commit d2c92709cd
No known key found for this signature in database
GPG Key ID: 76D727BFF62CD2B5
1 changed files with 11 additions and 16 deletions

View File

@ -19,6 +19,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages printers) (define-module (gnu packages printers)
#:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
@ -83,24 +84,18 @@ simply relay a TCP connection to USB do not work.")
(base32 "0dp9cssyik63yvkk35s51v94a873x751iqg93qzd8dpqkmz5z8gn")))) (base32 "0dp9cssyik63yvkk35s51v94a873x751iqg93qzd8dpqkmz5z8gn"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (modify-phases %standard-phases (list
#:phases
#~(modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out")))
(substitute* "Robocut.pro" (substitute* "Robocut.pro"
(("/usr/") (("/usr/") (string-append #$output "/")))
(string-append out "/"))) (invoke "qmake" (string-append "PREFIX=" #$output)))))))
(invoke "qmake"
(string-append "PREFIX=" out))
#t))))))
(inputs (inputs
`(("libusb" ,libusb) (list libusb qtbase-5 qtsvg-5))
("qt" ,qtbase-5)
("qtsvg-5" ,qtsvg-5)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) (list pkg-config qtbase-5))
("qmake" ,qtbase-5)))
(synopsis "Graphical program to drive plotting cutters") (synopsis "Graphical program to drive plotting cutters")
(description (description
"Robocut is a simple graphical program that allows you to cut graphics "Robocut is a simple graphical program that allows you to cut graphics