[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
52/55: profiles: Add xdg-mime-database hook.
From: |
??? |
Subject: |
52/55: profiles: Add xdg-mime-database hook. |
Date: |
Sat, 30 Apr 2016 09:49:33 +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
- 30/55: gnu: file-roller: Update to 3.20.1., (continued)
- 30/55: gnu: file-roller: Update to 3.20.1., ???, 2016/04/30
- 34/55: gnu: evolution-data-server: Update to 3.20.1, fix build., ???, 2016/04/30
- 33/55: gnu: gnome-online-accounts: Update to 3.20.1., ???, 2016/04/30
- 42/55: gnu: network-manager: Update to 1.2.0., ???, 2016/04/30
- 39/55: gnu: baobab: Update to 3.20.1., ???, 2016/04/30
- 37/55: gnu: gnome-control-center: Update to 3.20.1., ???, 2016/04/30
- 53/55: gnu: gnome: Add desktop-file-utils., ???, 2016/04/30
- 46/55: gnu: grilo-plugins: Update to 0.3.1., ???, 2016/04/30
- 47/55: gnu: nautilus: Update to 3.20.1., ???, 2016/04/30
- 45/55: gnu: grilo: Update to 0.3.0., ???, 2016/04/30
- 52/55: profiles: Add xdg-mime-database hook.,
??? <=
- 48/55: gnu: gnome: Add baobab, gnome-backgrounds and gvfs., ???, 2016/04/30
- 49/55: gnu: udisks: Update to 2.1.7., ???, 2016/04/30
- 41/55: gnu: librsvg: Drop 'loaders.cache' file., ???, 2016/04/30
- 50/55: gnu: gst-plugins-good: Disable a failing rtprtx test., ???, 2016/04/30
- 51/55: profiles: Add xdg-desktop-database hook., ???, 2016/04/30
- 55/55: gnu: gom: Update to 0.3.2., ???, 2016/04/30
- 54/55: profiles: Factor out 'manifest-lookup-package'., ???, 2016/04/30