me/guix
Archived
1
0
Fork 0
Code Activity

gnu: font-comic-neue: Add fontconfig alias.

Browse source 
* gnu/packages/fonts.scm (font-comic-neue): Add fontconfig alias for "Comic
Sans MS".
[arguments]: Add new 'install-conf' phase.

Signed-off-by: Arun Isaac <arunisaac@systemreboot.net>
This commit is contained in:
Alex Griffin 2017-05-31 11:51:41 -05:00 • committed by Arun Isaac
parent b963d8c2e5
commit 532f09dff3
No known key found for this signature in database
GPG key ID: 2E25EE8B61802BB3
1 changed files with 19 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
gnu/packages/fonts.scm
View file

@ -1121,9 +1121,25 @@ later hand-tweaked with the gbdfed(1) editor:
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'install 'chdir (add-after 'install 'install-conf
(lambda _ (lambda* (#:key outputs #:allow-other-keys)
(chdir "Web") (let ((conf-dir (string-append (assoc-ref outputs "out")
"/share/fontconfig/conf.avail")))
(mkdir-p conf-dir)
(call-with-output-file
(string-append conf-dir "/30-comic-neue.conf")
(lambda (port)
(format port "<?xml version=\"1.0\"?>
<!DOCTYPE fontconfig SYSTEM \"fonts.dtd\">
<fontconfig>
<!-- If Comic Sans is missing, use Comic Neue instead. -->
<alias>
<family>Comic Sans MS</family>
<prefer>
<family>Comic Neue</family>
</prefer>
</alias>
</fontconfig>\n"))))
#t))))) #t)))))
(home-page "http://www.comicneue.com/") (home-page "http://www.comicneue.com/")
(synopsis "Font that fixes the shortcomings of Comic Sans") (synopsis "Font that fixes the shortcomings of Comic Sans")