build: font: Support font collection files.
* guix/build/font-build-system.scm (install): Support TrueType Collection (TTC) and OpenType Collection (OTC) files. Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
This commit is contained in:
parent
203a9455c4
commit
046175cd4e
|
@ -1,5 +1,6 @@
|
||||||
;;; GNU Guix --- Functional package management for GNU
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
|
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
|
||||||
|
;;; Copyright © 2017 Alex Griffin <a@ajgrf.com>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
;;;
|
;;;
|
||||||
|
@ -50,9 +51,9 @@ archive, or a font file."
|
||||||
(source (getcwd))
|
(source (getcwd))
|
||||||
(fonts (string-append out "/share/fonts")))
|
(fonts (string-append out "/share/fonts")))
|
||||||
(for-each (cut install-file <> (string-append fonts "/truetype"))
|
(for-each (cut install-file <> (string-append fonts "/truetype"))
|
||||||
(find-files source "\\.ttf$"))
|
(find-files source "\\.(ttf|ttc)$"))
|
||||||
(for-each (cut install-file <> (string-append fonts "/opentype"))
|
(for-each (cut install-file <> (string-append fonts "/opentype"))
|
||||||
(find-files source "\\.otf$"))
|
(find-files source "\\.(otf|otc)$"))
|
||||||
#t))
|
#t))
|
||||||
|
|
||||||
(define %standard-phases
|
(define %standard-phases
|
||||||
|
|
Loading…
Reference in New Issue