diff options
| author | Eric Bavier <bavier@member.fsf.org> | 2015-10-19 06:44:23 -0500 |
|---|---|---|
| committer | Eric Bavier <bavier@member.fsf.org> | 2015-10-20 15:40:09 -0500 |
| commit | bf9655f57d2442d56661594b80f6d0031ca0ae73 (patch) | |
| tree | 33eb1df43c77d0f0e451b2cf7080f60425765698 | |
| parent | 0f21557ce8c8df8b53f3e943b84f40f68ae0d593 (diff) | |
| download | guix-bf9655f57d2442d56661594b80f6d0031ca0ae73.tar.gz guix-bf9655f57d2442d56661594b80f6d0031ca0ae73.zip | |
font-alias: Install dummy fonts.dir files.
* gnu/packages/xorg.scm (font-alias)[arguments]: New 'install-fonts-dir'
phase.
| -rw-r--r-- | 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 92f82f29b2..b39bbd436f 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 |