summaryrefslogtreecommitdiff
path: root/guix/profiles.scm
diff options
context:
space:
mode:
author宋文武 <iyzsong@gmail.com>2016-02-04 15:35:03 +0800
committer宋文武 <iyzsong@gmail.com>2016-05-02 22:06:46 +0800
commit6c06b1fdac1a00385e393e1ad4735212b3ab63ad (patch)
tree173654fa889df811038f5c586f92e6a5cc71bfa2 /guix/profiles.scm
parent842cb82097288265270db3228f8231676107a8b5 (diff)
profiles: Add xdg-mime-database hook.
* guix/profiles.scm (xdg-mime-database): New function. (%default-profile-hooks): Add it.
Diffstat (limited to 'guix/profiles.scm')
-rw-r--r--guix/profiles.scm39
1 files changed, 38 insertions, 1 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm
index c298bacdfc..93d03ce959 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -721,6 +721,42 @@ MIME type."
#:substitutable? #f)
(with-monad %store-monad (return #f))))
+(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."
+ (define shared-mime-info
+ (module-ref (resolve-interface '(gnu packages gnome))
+ 'shared-mime-info))
+
+ (define build
+ #~(begin
+ (use-modules (srfi srfi-26)
+ (guix build utils)
+ (guix build union))
+ (let* ((datadir (string-append #$output "/share"))
+ (destdir (string-append datadir "/mime"))
+ (mimedirs (filter file-exists?
+ (map (cut string-append <>
+ "/share/mime")
+ '#$(manifest-inputs manifest))))
+ (update-mime-database (string-append
+ #+shared-mime-info
+ "/bin/update-mime-database")))
+ (mkdir-p datadir)
+ (union-build destdir mimedirs
+ #:log-port (%make-void-port "w"))
+ (setenv "XDG_DATA_HOME" datadir)
+ (zero? (system* update-mime-database destdir)))))
+
+ ;; Don't run the hook when 'shared-mime-info' is not installed.
+ (if (manifest-lookup manifest (manifest-pattern (name "shared-mime-info")))
+ (gexp->derivation "xdg-mime-database" build
+ #:modules '((guix build utils)
+ (guix build union))
+ #:local-build? #t
+ #:substitutable? #f)
+ (with-monad %store-monad (return #f))))
+
(define %default-profile-hooks
;; This is the list of derivation-returning procedures that are called by
;; default when making a non-empty profile.
@@ -728,7 +764,8 @@ MIME type."
ghc-package-cache-file
ca-certificate-bundle
gtk-icon-themes
- xdg-desktop-database))
+ xdg-desktop-database
+ xdg-mime-database))
(define* (profile-derivation manifest
#:key