me/guix
Archived
1
0
Fork 0
Code Activity

gnu: escpr: Compress PPDs.

Browse source 
* gnu/packages/cups.scm (escpr)[arguments]: Import SRFI-26 and add a
‘compress-PPDs’ phase.
This commit is contained in:
Tobias Geerinckx-Rice 2020-11-18 23:52:17 +01:00
parent 92797b3b88
commit aa954ec366
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/cups.scm
View file

@ -762,7 +762,10 @@ HP@tie{}LaserJet, and possibly other printers. See @file{README} for details.")
(base32 "1pygg2bd2gh27dc65h3dzwrpvi6bq5c87wl0ldchqlc2b3blsx6p")))) (base32 "1pygg2bd2gh27dc65h3dzwrpvi6bq5c87wl0ldchqlc2b3blsx6p"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags `(#:modules
((srfi srfi-26)
,@%gnu-build-system-modules)
#:configure-flags
`(,(string-append "--prefix=" `(,(string-append "--prefix="
(assoc-ref %outputs "out")) (assoc-ref %outputs "out"))
,(string-append "--with-cupsfilterdir=" ,(string-append "--with-cupsfilterdir="
@ -781,7 +784,13 @@ HP@tie{}LaserJet, and possibly other printers. See @file{README} for details.")
(string-append match "aclocal")) (string-append match "aclocal"))
(("^(AUTOMAKE=).*" _ match) (("^(AUTOMAKE=).*" _ match)
(string-append match "automake"))) (string-append match "automake")))
#t))))) #t))
(add-after 'install 'compress-PPDs
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(with-directory-excursion out
(for-each (cut invoke "gzip" "-9" <>)
(find-files "share/cups" "\\.ppd$")))))))))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
("automake" ,automake))) ("automake" ,automake)))