bug#27172: [PATCH 1/2] build: font: Support TrueType Collection files.

[Alex Griffin <a@ajgrf.com>]

[-- Attachment #1: Type: text/plain, Size: 199 bytes --]

This is a new version of patch 1 to fix a bug I accidentally introduced.
The first version I submitted introduced a bug where opentype fonts were
installed into the truetype folder.
-- 
Alex Griffin

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-build-font-Support-TrueType-Collection-files.patch --]
[-- Type: text/x-patch; name="0001-build-font-Support-TrueType-Collection-files.patch", Size: 1252 bytes --]

From 9f9d1e671889049758cdff30f8efb7d481d192a6 Mon Sep 17 00:00:00 2001
From: Alex Griffin <a@ajgrf.com>
Date: Wed, 31 May 2017 12:16:01 -0500
Subject: [PATCH 1/2] build: font: Support TrueType Collection files.

* guix/build/font-build-system.scm (install): Support TrueType
Collection (TTC) files.
---
 guix/build/font-build-system.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/build/font-build-system.scm b/guix/build/font-build-system.scm
index cca1e93f0..dc97ffbe8 100644
--- a/guix/build/font-build-system.scm
+++ b/guix/build/font-build-system.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2017 Alex Griffin <a@ajgrf.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -50,7 +51,7 @@ archive, or a font file."
          (source (getcwd))
          (fonts (string-append out "/share/fonts")))
     (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"))
               (find-files source "\\.otf$"))
     #t))
-- 
2.13.0