01/02: build-system/glib-or-gtk: Add MIME directories to $XDG_DATA_DIRS.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit ca79e42ea2a6becbb444bad35dbbad4e03bfad2c
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jan 23 18:01:16 2015 +0100

    build-system/glib-or-gtk: Add MIME directories to $XDG_DATA_DIRS.
    
    Fixes an Evince regression introduced in commit 3d243e9.
    
    * guix/build/glib-or-gtk-build-system.scm (data-directories): Check the
      /mime sub-directory.
---
 guix/build/glib-or-gtk-build-system.scm |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix/build/glib-or-gtk-build-system.scm 
b/guix/build/glib-or-gtk-build-system.scm
index a404a84..92e91bf 100644
--- a/guix/build/glib-or-gtk-build-system.scm
+++ b/guix/build/glib-or-gtk-build-system.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2014 Federico Beffa <address@hidden>
-;;; Copyright © 2014 Ludovic Courtès <address@hidden>
+;;; Copyright © 2014, 2015 Ludovic Courtès <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -72,7 +72,7 @@ with all found directories."
 ;; http://www.freedesktop.org/wiki/DesktopThemeSpec
 ;; http://freedesktop.org/wiki/Specifications/sound-theme-spec
 ;; http://freedesktop.org/wiki/Specifications/icon-theme-spec
-;; 
+;;
 ;; Currently desktop themes are not well supported and do not honor
 ;; XDG_DATA_DIRS.  One example is evince which only looks for desktop themes
 ;; in $HOME/.themes (for backward compatibility) and in XDG_DATA_HOME (which
@@ -92,7 +92,8 @@ in INPUTS.  Return a list with all found directories."
                    (subdirectory-exists? datadir "/themes")
                    (subdirectory-exists? datadir "/cursors")
                    (subdirectory-exists? datadir "/wallpapers")
-                   (subdirectory-exists? datadir "/icons"))                   
+                   (subdirectory-exists? datadir "/icons")
+                   (subdirectory-exists? datadir "/mime")) ;shared-mime-info
                (not (directory-included? datadir previous)))
           (cons datadir previous)
           previous)))