me
/
guix
Archived
1
0
Fork 0

gnu: gajim: Clean up formatting.

* gnu/packages/messaging.scm (gajim): Clean up formatting.

Signed-off-by: Christopher Baines <mail@cbaines.net>
Parnikkapore 2023-07-04 23:31:13 +07:00 committed by Christopher Baines
parent b0938affbb
commit 8bc78fc86b
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 19 additions and 17 deletions

View File

@ -1129,13 +1129,13 @@ of xmpppy.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (uri (string-append "https://gajim.org/downloads/"
(string-append "https://gajim.org/downloads/" (version-major+minor version)
(version-major+minor version) "/gajim-" version ".tar.gz"))
"/gajim-" version ".tar.gz"))
(sha256 (sha256
(base32 "066kvkjw3qcdanr3nczy0wgcwihk9jc9zhzfr5bwlqvcyxcv7k5p")) (base32 "066kvkjw3qcdanr3nczy0wgcwihk9jc9zhzfr5bwlqvcyxcv7k5p"))
(patches (search-patches "gajim-honour-GAJIM_PLUGIN_PATH.patch")))) (patches
(search-patches "gajim-honour-GAJIM_PLUGIN_PATH.patch"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
(list (list
@ -1144,8 +1144,7 @@ of xmpppy.")
(guix build glib-or-gtk-build-system)) (guix build glib-or-gtk-build-system))
#:modules #:modules
'((guix build python-build-system) '((guix build python-build-system)
((guix build glib-or-gtk-build-system) ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
#:prefix glib-or-gtk:)
(guix build utils)) (guix build utils))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
@ -1154,12 +1153,14 @@ of xmpppy.")
'generate-gdk-pixbuf-loaders-cache-file)) 'generate-gdk-pixbuf-loaders-cache-file))
(add-before 'build 'build-metadata (add-before 'build 'build-metadata
(lambda _ (lambda _
(invoke "./pep517build/build_metadata.py" "-o" "dist/metadata"))) (invoke "./pep517build/build_metadata.py"
"-o" "dist/metadata")))
;; TODO: Change to pyproject-build-system once it supports ;; TODO: Change to pyproject-build-system once it supports
;; in-tree build backends. ;; in-tree build backends.
(replace 'build (replace 'build
(lambda _ (lambda _
(invoke "python" "-m" "build" "--wheel" "--no-isolation" "."))) (invoke "python" "-m" "build" "--wheel" "--no-isolation"
".")))
(replace 'install (replace 'install
(lambda _ (lambda _
(apply invoke "pip" "--no-cache-dir" "--no-input" (apply invoke "pip" "--no-cache-dir" "--no-input"
@ -1176,11 +1177,14 @@ of xmpppy.")
(setenv "DISPLAY" ":1") (setenv "DISPLAY" ":1")
;; For missing '/etc/machine-id'. ;; For missing '/etc/machine-id'.
(setenv "DBUS_FATAL_WARNINGS" "0") (setenv "DBUS_FATAL_WARNINGS" "0")
(invoke "dbus-launch" "python" "-m" "unittest" "discover" "-s" "test"))) (invoke "dbus-launch" "python" "-m" "unittest"
"discover" "-s" "test")))
(add-after 'install 'glib-or-gtk-compile-schemas (add-after 'install 'glib-or-gtk-compile-schemas
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas)) (assoc-ref glib-or-gtk:%standard-phases
'glib-or-gtk-compile-schemas))
(add-after 'install 'glib-or-gtk-wrap (add-after 'install 'glib-or-gtk-wrap
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)) (assoc-ref glib-or-gtk:%standard-phases
'glib-or-gtk-wrap))
(add-after 'install 'wrap-env (add-after 'install 'wrap-env
(lambda _ (lambda _
(for-each (for-each
@ -1198,10 +1202,8 @@ of xmpppy.")
(list (list
(search-path-specification (search-path-specification
(variable "GAJIM_PLUGIN_PATH") (variable "GAJIM_PLUGIN_PATH")
(separator #f) ;single entry (separator #f) ; single entry
(files (files (list "share/gajim/plugins")))
(list
"share/gajim/plugins")))
;; Gajim needs to use the propagated inputs of its plugins. ;; Gajim needs to use the propagated inputs of its plugins.
(search-path-specification (search-path-specification
(variable "GUIX_PYTHONPATH") (variable "GUIX_PYTHONPATH")