3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

profiles: xdg-desktop-database: Run the hook when GLib is referenced.

This will pull the latest 'desktop-file-utils' package into the profile
closure, as the 'xdg-mime-database' hook already does.

* guix/profiles.scm (xdg-desktop-database): Run the hook when 'glib' is
referenced.
This commit is contained in:
宋文武 2017-07-03 23:11:13 +08:00
parent 3b6e7d8651
commit 85cfbd46ce
No known key found for this signature in database
GPG key ID: 26525665AE727D37

View file

@ -967,9 +967,13 @@ for both major versions of GTK+."
"Return a derivation that builds the @file{mimeinfo.cache} database from
desktop files. It's used to query what applications can handle a given
MIME type."
(mlet %store-monad ((desktop-file-utils
(define desktop-file-utils ; lazy reference
(module-ref (resolve-interface '(gnu packages freedesktop))
'desktop-file-utils))
(mlet %store-monad ((glib
(manifest-lookup-package
manifest "desktop-file-utils")))
manifest "glib")))
(define build
(with-imported-modules '((guix build utils)
(guix build union))
@ -990,8 +994,8 @@ MIME type."
#:log-port (%make-void-port "w"))
(exit (zero? (system* update-desktop-database destdir)))))))
;; Don't run the hook when 'desktop-file-utils' is not referenced.
(if desktop-file-utils
;; Don't run the hook when 'glib' is not referenced.
(if glib
(gexp->derivation "xdg-desktop-database" build
#:local-build? #t
#:substitutable? #f)