[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
52/53: profiles: Add xdg-mime-database hook.
From: |
??? |
Subject: |
52/53: profiles: Add xdg-mime-database hook. |
Date: |
Fri, 29 Apr 2016 09:02:18 +0000 |
iyzsong pushed a commit to branch gnome-updates
in repository guix.
commit 0d0837c4c2654cac73f00e3a462a7a9e8fd86ff0
Author: 宋文武 <address@hidden>
Date: Thu Feb 4 15:35:03 2016 +0800
profiles: Add xdg-mime-database hook.
* guix/profiles.scm (xdg-mime-database): New function.
(%default-profile-hooks): Add it.
---
guix/profiles.scm | 39 ++++++++++++++++++++++++++++++++++++++-
1 file changed, 38 insertions(+), 1 deletion(-)
diff --git a/guix/profiles.scm b/guix/profiles.scm
index c298bac..93d03ce 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
- 22/53: gnu: gnome-klotski: Update to 3.20.1., (continued)
- 22/53: gnu: gnome-klotski: Update to 3.20.1., ???, 2016/04/29
- 42/53: gnu: network-manager: Update to 1.2.0., ???, 2016/04/29
- 31/53: gnu: gnome-session: Update to 3.20.1, fix build., ???, 2016/04/29
- 29/53: gnu: shotwell: Update to 0.22.1., ???, 2016/04/29
- 37/53: gnu: gnome-control-center: Update to 3.20.1., ???, 2016/04/29
- 44/53: gnu: gedit: Enable Python Console plugin., ???, 2016/04/29
- 46/53: gnu: grilo-plugins: Update to 0.3.1., ???, 2016/04/29
- 45/53: gnu: grilo: Update to 0.3.0., ???, 2016/04/29
- 51/53: profiles: Add xdg-desktop-database hook., ???, 2016/04/29
- 48/53: gnu: gnome: Add baobab, gnome-backgrounds and gvfs., ???, 2016/04/29
- 52/53: profiles: Add xdg-mime-database hook.,
??? <=
- 50/53: gnu: gst-plugins-good: Disable a failing rtprtx test., ???, 2016/04/29
- 49/53: gnu: udisks: Update to 2.1.7., ???, 2016/04/29
- 53/53: gnu: gnome: Add desktop-file-utils., ???, 2016/04/29
- 47/53: gnu: nautilus: Update to 3.20.1., ???, 2016/04/29