02/04: font-alias: Install dummy fonts.dir files.

[Eric Bavier]

bavier pushed a commit to branch master
in repository guix.

commit bf9655f57d2442d56661594b80f6d0031ca0ae73
Author: Eric Bavier <address@hidden>
Date:   Mon Oct 19 06:44:23 2015 -0500

    font-alias: Install dummy fonts.dir files.
    
    * gnu/packages/xorg.scm (font-alias)[arguments]: New 'install-fonts-dir'
      phase.
---
 gnu/packages/xorg.scm |   17 +++++++++++++++++
 1 files changed, 17 insertions(+), 0 deletions(-)

diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index 92f82f2..b39bbd4 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -413,6 +413,23 @@ provided.")
             "16ic8wfwwr3jicaml7b5a0sk6plcgc1kg84w02881yhwmqm3nicb"))))
     (build-system gnu-build-system)
     (native-inputs `(("pkg-config" ,pkg-config)))
+    (arguments
+     `(#:phases (modify-phases %standard-phases
+                  (add-after
+                   'install 'install-fonts-dir
+                   ;; The X font server will not add directories to the font
+                   ;; path unless they contain a "fonts.dir" file, so add some
+                   ;; dummy files.
+                   (lambda* (#:key outputs #:allow-other-keys)
+                     (let ((out (assoc-ref outputs "out")))
+                       (for-each (lambda (d)
+                                   (call-with-output-file
+                                       (string-append out "/share/fonts/X11"
+                                                      "/" d "/fonts.dir")
+                                     (lambda (p)
+                                       (format p "0~%"))))
+                                 '("75dpi" "100dpi" "misc" "cyrillic"))
+                       #t))))))
     (home-page "http://www.x.org/wiki/";)
     (synopsis "Xorg font aliases")
     (description