nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

font-alias: Install dummy fonts.dir files. 

* gnu/packages/xorg.scm (font-alias)[arguments]: New 'install-fonts-dir'
  phase.
This commit is contained in:
Eric Bavier 2015-10-19 06:44:23 -05:00
parent 0f21557ce8
commit bf9655f57d
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/packages/xorg.scm
View File

@ -413,6 +413,23 @@ provided.")
"16ic8wfwwr3jicaml7b5a0sk6plcgc1kg84w02881yhwmqm3nicb")))) "16ic8wfwwr3jicaml7b5a0sk6plcgc1kg84w02881yhwmqm3nicb"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config))) (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/") (home-page "http://www.x.org/wiki/")
(synopsis "Xorg font aliases") (synopsis "Xorg font aliases")
(description (description