Skip to content
Snippets Groups Projects
Commit ca79e42e authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

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

Fixes an Evince regression introduced in commit 3d243e9c.

* guix/build/glib-or-gtk-build-system.scm (data-directories): Check the
  /mime sub-directory.
parent 7d8379a7
No related branches found
No related tags found
No related merge requests found
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2014 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
...@@ -72,7 +72,7 @@ (define (gtk-module-directories inputs) ...@@ -72,7 +72,7 @@ (define (gtk-module-directories inputs)
;; http://www.freedesktop.org/wiki/DesktopThemeSpec ;; http://www.freedesktop.org/wiki/DesktopThemeSpec
;; http://freedesktop.org/wiki/Specifications/sound-theme-spec ;; http://freedesktop.org/wiki/Specifications/sound-theme-spec
;; http://freedesktop.org/wiki/Specifications/icon-theme-spec ;; http://freedesktop.org/wiki/Specifications/icon-theme-spec
;; ;;
;; Currently desktop themes are not well supported and do not honor ;; Currently desktop themes are not well supported and do not honor
;; XDG_DATA_DIRS. One example is evince which only looks for desktop themes ;; 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 ;; in $HOME/.themes (for backward compatibility) and in XDG_DATA_HOME (which
...@@ -92,7 +92,8 @@ (define (data-directory input previous) ...@@ -92,7 +92,8 @@ (define (data-directory input previous)
(subdirectory-exists? datadir "/themes") (subdirectory-exists? datadir "/themes")
(subdirectory-exists? datadir "/cursors") (subdirectory-exists? datadir "/cursors")
(subdirectory-exists? datadir "/wallpapers") (subdirectory-exists? datadir "/wallpapers")
(subdirectory-exists? datadir "/icons")) (subdirectory-exists? datadir "/icons")
(subdirectory-exists? datadir "/mime")) ;shared-mime-info
(not (directory-included? datadir previous))) (not (directory-included? datadir previous)))
(cons datadir previous) (cons datadir previous)
previous))) previous)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment