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

gnu: system-config-printer: Use new style for arguments.

Browse source 
* gnu/packages/gnome.scm (system-config-printer)[arguments]: Use
G-Expressions.  Delete trailing #ts.
This commit is contained in:
Liliana Marie Prikler 2022-03-20 14:42:10 +01:00
parent 323172875a
commit d8079790c3
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 40 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/gnome.scm
View file

@ -2941,10 +2941,11 @@ (define-public system-config-printer
(base32 "1z9pvgifj5c87csnqz10qybbcayh3ak9m606f63ifkvyjh4q9jnb")))) (base32 "1z9pvgifj5c87csnqz10qybbcayh3ak9m606f63ifkvyjh4q9jnb"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments
`(#:imported-modules ((guix build python-build-system) (list
#:imported-modules `((guix build python-build-system)
,@%glib-or-gtk-build-system-modules) ,@%glib-or-gtk-build-system-modules)
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-build-files (add-after 'unpack 'patch-build-files
(lambda _ (lambda _
(substitute* "configure.ac" (substitute* "configure.ac"
@ -2955,16 +2956,14 @@ (define-public system-config-printer
;; The Makefile generates some scripts, so set a valid shebang ;; The Makefile generates some scripts, so set a valid shebang
(substitute* "Makefile.am" (substitute* "Makefile.am"
(("/bin/bash") (which "bash"))) (("/bin/bash") (which "bash")))
(delete-file "configure") (delete-file "configure")))
#t))
(add-after 'unpack 'patch-docbook-xml (add-after 'unpack 'patch-docbook-xml
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; Modify the man XML otherwise xmlto tries to access the network ;; Modify the man XML otherwise xmlto tries to access the network
(substitute* "man/system-config-printer.xml" (substitute* "man/system-config-printer.xml"
(("http://www.oasis-open.org/docbook/xml/4.1.2/") (("http://www.oasis-open.org/docbook/xml/4.1.2/")
(string-append (assoc-ref inputs "docbook-xml") (string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook/"))) "/xml/dtd/docbook/")))))
#t))
(add-after 'install 'add-install-to-pythonpath (add-after 'install 'add-install-to-pythonpath
(@@ (guix build python-build-system) add-install-to-pythonpath)) (@@ (guix build python-build-system) add-install-to-pythonpath))
(add-after 'add-install-to-pythonpath 'wrap-for-python (add-after 'add-install-to-pythonpath 'wrap-for-python
@ -2982,8 +2981,7 @@ (define-public system-config-printer
'("system-config-printer" '("system-config-printer"
"system-config-printer-applet" "system-config-printer-applet"
"install-printerdriver" "install-printerdriver"
"scp-dbus-service")))) "scp-dbus-service")))))))))
#t)))))
(inputs (inputs
(list gsettings-desktop-schemas (list gsettings-desktop-schemas
gobject-introspection gobject-introspection