nongnu: hplip-plugin: Fix build, convert to use GEXPs.

* nongnu/packages/printers.scm (hplip-plugin): Convert to use GEXP.

Signed-off-by: Jonathan Brielmaier <jonathan.brielmaier@web.de>
This commit is contained in:
Attila Lendvai 2023-05-12 14:43:39 +02:00 committed by Jonathan Brielmaier
parent 29e80edd0f
commit 51b5ce6902
No known key found for this signature in database
GPG key ID: ECFC83988B4E4B9F

View file

@ -6,6 +6,7 @@
(define-module (nongnu packages printers) (define-module (nongnu packages printers)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages cups) #:use-module (gnu packages cups)
#:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
@ -40,9 +41,9 @@
(arguments (arguments
(substitute-keyword-arguments (package-arguments hplip) (substitute-keyword-arguments (package-arguments hplip)
((#:configure-flags cf) ((#:configure-flags cf)
`(delete "--enable-qt5" ,cf)) #~(delete "--enable-qt5" #$cf))
((#:phases ph) ((#:phases ph)
`(modify-phases ,ph #~(modify-phases #$ph
(replace 'fix-hard-coded-file-names (replace 'fix-hard-coded-file-names
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
@ -150,7 +151,7 @@
installed=1 installed=1
eula=1 eula=1
version=~A version=~A
" ,(package-version hplip)))) " #$(package-version hplip))))
(substitute* (string-append out "/etc/hp/hplip.conf") (substitute* (string-append out "/etc/hp/hplip.conf")
(("/usr") out))))))))))) (("/usr") out)))))))))))