ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

profiles: xdg-mime-database: Run the hook when have GLib based applications.

Browse source 
* guix/profiles.scm (xdg-mime-database): Run the hook when GLIB is referenced by
the manifest.  Add SHARED-MIME-INFO to the mime packages of `update-mime-database'.
This commit is contained in:
宋文武 2016-08-11 20:59:16 +08:00
parent 0d4b5eb1fd
commit 801d316b20
No known key found for this signature in database
GPG key ID: 26525665AE727D37
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
guix/profiles.scm
View file

@ -723,9 +723,12 @@ (define build
(define (xdg-mime-database manifest)
"Return a derivation that builds the @file{mime.cache} database from manifest
entries. It's used to query the MIME type of a given file."
(mlet %store-monad ((shared-mime-info
(define shared-mime-info ; lazy reference
(module-ref (resolve-interface '(gnu packages gnome)) 'shared-mime-info))
(mlet %store-monad ((glib
(manifest-lookup-package
manifest "shared-mime-info")))
manifest "glib")))
(define build
(with-imported-modules '((guix build utils)
(guix build union))
@ -738,7 +741,8 @@ (define build
(pkgdirs (filter file-exists?
(map (cut string-append <>
"/share/mime/packages")
'#$(manifest-inputs manifest))))
(cons #+shared-mime-info
'#$(manifest-inputs manifest)))))
(update-mime-database (string-append
#+shared-mime-info
"/bin/update-mime-database")))
@ -748,8 +752,8 @@ (define build
(setenv "XDG_DATA_HOME" datadir)
(exit (zero? (system* update-mime-database destdir)))))))
;; Don't run the hook when 'shared-mime-info' is referenced.
(if shared-mime-info
;; Don't run the hook when there are no GLib based applications.
(if glib
(gexp->derivation "xdg-mime-database" build
#:local-build? #t
#:substitutable? #f)