diff options
| author | 宋文武 <iyzsong@gmail.com> | 2016-02-04 15:33:07 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2016-05-02 22:06:46 +0800 |
| commit | 842cb82097288265270db3228f8231676107a8b5 (patch) | |
| tree | 6f6d10c85b60c8965a491c7d56e57a65d9552946 | |
| parent | 616fc48f26d6302cf65358aa23a927909797dbeb (diff) | |
| download | patches-842cb82097288265270db3228f8231676107a8b5.tar patches-842cb82097288265270db3228f8231676107a8b5.tar.gz | |
profiles: Add xdg-desktop-database hook.
* guix/profiles.scm (xdg-desktop-database): New function.
(%default-profile-hooks): Add it.
| -rw-r--r-- | guix/profiles.scm | 38 |
1 files changed, 37 insertions, 1 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm index a3277cef71..c298bacdfc 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -686,13 +686,49 @@ creates the GTK+ 'icon-theme.cache' file for each theme." #:substitutable? #f) (return #f)))) +(define (xdg-desktop-database manifest) + "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." + (define desktop-file-utils + (module-ref (resolve-interface '(gnu packages gnome)) + 'desktop-file-utils)) + + (define build + #~(begin + (use-modules (srfi srfi-26) + (guix build utils) + (guix build union)) + (let* ((destdir (string-append #$output "/share/applications")) + (appdirs (filter file-exists? + (map (cut string-append <> + "/share/applications") + '#$(manifest-inputs manifest)))) + (update-desktop-database (string-append + #+desktop-file-utils + "/bin/update-desktop-database"))) + (mkdir-p (string-append #$output "/share")) + (union-build destdir appdirs + #:log-port (%make-void-port "w")) + (zero? (system* update-desktop-database destdir))))) + + ;; Don't run the hook when 'desktop-file-utils' is not installed. + (if (manifest-lookup manifest (manifest-pattern (name "desktop-file-utils"))) + (gexp->derivation "xdg-desktop-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. (list info-dir-file ghc-package-cache-file ca-certificate-bundle - gtk-icon-themes)) + gtk-icon-themes + xdg-desktop-database)) (define* (profile-derivation manifest #:key |