amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

profiles: xdg-mime-database: Union the "share/mime/packages" directory.

Browse source 
* guix/profiles.scm (xdg-mime-database): Call 'union-build' for the
"share/mime/packages" directory of inputs.
This commit is contained in:
宋文武 2016-06-11 09:57:11 +08:00
parent 436dd04636
commit 359f06aac8
No known key found for this signature in database
GPG key ID: 26525665AE727D37
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix/profiles.scm
View file

@ -733,15 +733,15 @@ entries. It's used to query the MIME type of a given file."
(guix build union)) (guix build union))
(let* ((datadir (string-append #$output "/share")) (let* ((datadir (string-append #$output "/share"))
(destdir (string-append datadir "/mime")) (destdir (string-append datadir "/mime"))
(mimedirs (filter file-exists? (pkgdirs (filter file-exists?
(map (cut string-append <> (map (cut string-append <>
"/share/mime") "/share/mime/packages")
'#$(manifest-inputs manifest)))) '#$(manifest-inputs manifest))))
(update-mime-database (string-append (update-mime-database (string-append
#+shared-mime-info #+shared-mime-info
"/bin/update-mime-database"))) "/bin/update-mime-database")))
(mkdir-p datadir) (mkdir-p destdir)
(union-build destdir mimedirs (union-build (string-append destdir "/packages") pkgdirs
#:log-port (%make-void-port "w")) #:log-port (%make-void-port "w"))
(setenv "XDG_DATA_HOME" datadir) (setenv "XDG_DATA_HOME" datadir)
(zero? (system* update-mime-database destdir))))) (zero? (system* update-mime-database destdir)))))