me/guix
Archived
1
0
Fork 0
Code Activity

gnu: splix: Compress PPDs.

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

12
gnu/packages/cups.scm
View file

@ -819,7 +819,10 @@ language.")
;; PPDs have been obsolete since CUPS 1.2 and make up 90% of total size. ;; PPDs have been obsolete since CUPS 1.2 and make up 90% of total size.
(outputs (list "out" "ppd")) (outputs (list "out" "ppd"))
(arguments (arguments
'(#:make-flags `(#:modules
((srfi srfi-26)
,@%gnu-build-system-modules)
#:make-flags
(list (string-append "CUPSDRV=" (list (string-append "CUPSDRV="
(assoc-ref %outputs "out") "/share/cups/drv") (assoc-ref %outputs "out") "/share/cups/drv")
(string-append "CUPSFILTER=" (string-append "CUPSFILTER="
@ -841,7 +844,12 @@ language.")
(apply invoke "make" "drv" make-flags))) (apply invoke "make" "drv" make-flags)))
(add-after 'install 'install-.drv-files (add-after 'install 'install-.drv-files
(lambda* (#:key make-flags #:allow-other-keys) (lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "install" "DRV_ONLY=1" make-flags)))) (apply invoke "make" "install" "DRV_ONLY=1" make-flags)))
(add-after 'install 'compress-PPDs
(lambda* (#:key outputs #:allow-other-keys)
(let ((ppd (assoc-ref outputs "ppd")))
(for-each (cut invoke "gzip" "-9" <>)
(find-files ppd "\\.ppd$"))))))
#:tests? #f)) ; no test suite #:tests? #f)) ; no test suite
(inputs (inputs
`(("cups" ,cups-minimal) `(("cups" ,cups-minimal)