me/guix
Archived
1
0
Fork 0
Code Activity

gnu: epson-inkjet-printer-escpr: Use new style.

Browse source 
* gnu/packages/cups.scm (epson-inkjet-printer-escpr)[arguments]:
Rewrite with (guix gexp).
[inputs]: Use new style.
This commit is contained in:
Tobias Geerinckx-Rice 2022-05-01 02:00:00 +02:00
parent 20456fd016
commit ad99a09abe
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 27 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
gnu/packages/cups.scm
View file

@ -53,6 +53,7 @@
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix gexp)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
@ -869,40 +870,35 @@ HP@tie{}LaserJet, and possibly other printers. See @file{README} for details.")
(base32 "06pa47rl1gy19bg3fsp4a4y9vdy4ya2maajm14n791ivhf2hcwyh")))) (base32 "06pa47rl1gy19bg3fsp4a4y9vdy4ya2maajm14n791ivhf2hcwyh"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules (list #:modules
((srfi srfi-26) `((srfi srfi-26)
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:configure-flags #:configure-flags
`("--disable-static" #~(list "--disable-static"
,(string-append "--prefix=" (string-append "--prefix=" #$output)
(assoc-ref %outputs "out")) (string-append "--with-cupsfilterdir=" #$output "/lib/cups/filter")
,(string-append "--with-cupsfilterdir=" (string-append "--with-cupsppddir=" #$output "/share/cups/model"))
(assoc-ref %outputs "out") "/lib/cups/filter")
,(string-append "--with-cupsppddir="
(assoc-ref %outputs "out") "/share/cups/model"))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-autotools-version-requirement (add-after 'unpack 'patch-autotools-version-requirement
(lambda _ (lambda _
(substitute* "aclocal.m4" (substitute* "aclocal.m4"
(("1\\.15") (("1\\.15")
,(package-version automake))) #$(package-version automake)))
(substitute* "configure" (substitute* "configure"
(("^(ACLOCAL=).*" _ match) (("^(ACLOCAL=).*" _ match)
(string-append match "aclocal")) (string-append match "aclocal"))
(("^(AUTOMAKE=).*" _ match) (("^(AUTOMAKE=).*" _ match)
(string-append match "automake"))) (string-append match "automake")))))
#t))
(add-after 'install 'compress-PPDs (add-after 'install 'compress-PPDs
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out"))) (with-directory-excursion #$output
(with-directory-excursion out
(for-each (cut invoke "gzip" "-9" <>) (for-each (cut invoke "gzip" "-9" <>)
(find-files "share/cups" "\\.ppd$"))))))))) (find-files "share/cups" "\\.ppd$"))))))))
(native-inputs (native-inputs
(list autoconf automake)) (list autoconf automake))
(inputs (inputs
`(("cups" ,cups-minimal))) (list cups-minimal))
(synopsis "ESC/P-R printer driver") (synopsis "ESC/P-R printer driver")
(description (description
"This package provides a filter for @acronym{CUPS, the Common UNIX Printing "This package provides a filter for @acronym{CUPS, the Common UNIX Printing