me
/
guix
Archived
1
0
Fork 0
Code

gnu: xdg-desktop-portal: Update to 1.14.4. 

* gnu/packages/freedesktop.scm (xdg-desktop-portal): Update to 1.14.4.
[inputs]: Add gdk-pixbuf, use fuse@3.
[arguments]: Build without systemd, set HOME variable.
master
Mathieu Othacehe 2022-06-20 12:12:16 +02:00
parent 73761d8049
commit 38d7e6d6b7
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/packages/freedesktop.scm
View File

@ -2243,7 +2243,7 @@ fallback to generic Systray support if none of those are available.")
(define-public xdg-desktop-portal (define-public xdg-desktop-portal
(package (package
(name "xdg-desktop-portal") (name "xdg-desktop-portal")
(version "1.10.1") (version "1.14.4")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -2251,7 +2251,7 @@ fallback to generic Systray support if none of those are available.")
version "/xdg-desktop-portal-" version ".tar.xz")) version "/xdg-desktop-portal-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"199lqr2plsy9qqnxx5a381ml8ygcbz4nkjla5pvljjcrwzlqsygd")))) "0wqc9x3k7lf3mig53i4rjazi0xi8bcykwaaw7r7prvnscnd1k405"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
@ -2262,7 +2262,8 @@ fallback to generic Systray support if none of those are available.")
("which" ,which) ("which" ,which)
("gettext" ,gettext-minimal))) ("gettext" ,gettext-minimal)))
(inputs (inputs
`(("glib" ,glib) `(("gdk-pixbuf" ,gdk-pixbuf)
("glib" ,glib)
("flatpak" ,flatpak) ("flatpak" ,flatpak)
("fontconfig" ,fontconfig) ("fontconfig" ,fontconfig)
("json-glib" ,json-glib) ("json-glib" ,json-glib)
@ -2270,17 +2271,20 @@ fallback to generic Systray support if none of those are available.")
("dbus" ,dbus) ("dbus" ,dbus)
("geoclue" ,geoclue) ("geoclue" ,geoclue)
("pipewire" ,pipewire-0.3) ("pipewire" ,pipewire-0.3)
("fuse" ,fuse))) ("fuse" ,fuse-3)))
(arguments (arguments
`(#:phases `(#:configure-flags
(list "--with-systemd=no")
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'po-chmod (add-after 'unpack 'po-chmod
(lambda _ (lambda _
;; Make sure 'msgmerge' can modify the PO files. ;; Make sure 'msgmerge' can modify the PO files.
(for-each (lambda (po) (for-each (lambda (po)
(chmod po #o666)) (chmod po #o666))
(find-files "po" "\\.po$")) (find-files "po" "\\.po$"))))
#t))))) (add-after 'unpack 'set-home-directory
(lambda _ (setenv "HOME" "/tmp"))))))
(native-search-paths (native-search-paths
(list (search-path-specification (list (search-path-specification
(variable "XDG_DESKTOP_PORTAL_DIR") (variable "XDG_DESKTOP_PORTAL_DIR")