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

82
gnu/packages/gnome.scm
View file

@ -2941,49 +2941,47 @@ (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"
(("AC_INIT.*" all) (("AC_INIT.*" all)
(string-append all "\nAC_CONFIG_MACRO_DIR([m4])\n")) (string-append all "\nAC_CONFIG_MACRO_DIR([m4])\n"))
;; XXX: AX macros appear unavailable ;; XXX: AX macros appear unavailable
(("AX_REQUIRE_DEFINED.*") "")) (("AX_REQUIRE_DEFINED.*") ""))
;; 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/"))) (add-after 'install 'add-install-to-pythonpath
#t)) (@@ (guix build python-build-system) add-install-to-pythonpath))
(add-after 'install 'add-install-to-pythonpath (add-after 'add-install-to-pythonpath 'wrap-for-python
(@@ (guix build python-build-system) add-install-to-pythonpath)) (@@ (guix build python-build-system) wrap))
(add-after 'add-install-to-pythonpath 'wrap-for-python (add-after 'install 'wrap
(@@ (guix build python-build-system) wrap)) (lambda* (#:key outputs #:allow-other-keys)
(add-after 'install 'wrap (let ((out (assoc-ref outputs "out"))
(lambda* (#:key outputs #:allow-other-keys) (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
(let ((out (assoc-ref outputs "out")) (for-each
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))) (lambda (program)
(for-each (wrap-program program
(lambda (program) `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
(wrap-program program (map (lambda (name)
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))) (string-append out "/bin/" name))
(map (lambda (name) '("system-config-printer"
(string-append out "/bin/" name)) "system-config-printer-applet"
'("system-config-printer" "install-printerdriver"
"system-config-printer-applet" "scp-dbus-service")))))))))
"install-printerdriver"
"scp-dbus-service"))))
#t)))))
(inputs (inputs
(list gsettings-desktop-schemas (list gsettings-desktop-schemas
gobject-introspection gobject-introspection