TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: plymouth: Use gexps.

Browse source 
* gnu/packages/freedesktop.scm (plymouth)[arguments]: Use gexps.
This commit is contained in:
Ricardo Wurmus 2022-11-11 22:27:50 +01:00
parent 9d3cd3c79d
commit ea96cd2723
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 20 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/packages/freedesktop.scm
View file

@ -2232,8 +2232,9 @@ (define-public plymouth
"11nfgw8yzmdbnbmyd1zfvhj4qh19w1nw0nraai08628x6mzjbbpc")))) "11nfgw8yzmdbnbmyd1zfvhj4qh19w1nw0nraai08628x6mzjbbpc"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags (list
(list (string-append "--with-logo=" #:configure-flags
'(list (string-append "--with-logo="
"/etc/plymouth/logo.png") "/etc/plymouth/logo.png")
(string-append "--with-background-color=" (string-append "--with-background-color="
"0x00ff00") "0x00ff00")
@ -2251,21 +2252,21 @@ (define-public plymouth
;; size from ~800 MiB to a little more than 200 MiB ;; size from ~800 MiB to a little more than 200 MiB
"--disable-gtk") "--disable-gtk")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'make-reproducible (add-after 'unpack 'make-reproducible
(lambda _ (lambda _
(substitute* "src/main.c" (substitute* "src/main.c"
(("__DATE__") "\"guix\"")))) (("__DATE__") "\"guix\""))))
(add-before 'configure 'fix-docbook (add-before 'configure 'fix-docbook
(lambda* (#:key inputs #:allow-other-keys) (lambda _
(substitute* "docs/Makefile.in" (substitute* "docs/Makefile.in"
(("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl") (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
(string-append (assoc-ref inputs "docbook-xsl") (string-append #$(this-package-native-input "docbook-xsl")
"/xml/xsl/docbook-xsl-" "/xml/xsl/docbook-xsl-"
,(package-version docbook-xsl) #$(package-version (this-package-native-input "docbook-xsl"))
"/manpages/docbook.xsl"))) "/manpages/docbook.xsl")))
(setenv "XML_CATALOG_FILES" (setenv "XML_CATALOG_FILES"
(string-append (assoc-ref inputs "docbook-xml") (string-append #$(this-package-native-input "docbook-xml")
"/xml/dtd/docbook/catalog.xml"))))))) "/xml/dtd/docbook/catalog.xml")))))))
(inputs (inputs
(list glib pango libdrm libpng eudev)) (list glib pango libdrm libpng eudev))