guix-patches
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[bug#69429] [PATCH 3/3] gnu: font-chiron-sung-hk: Split outputs.


From: Hilton Chain
Subject: [bug#69429] [PATCH 3/3] gnu: font-chiron-sung-hk: Split outputs.
Date: Tue, 27 Feb 2024 23:58:23 +0800

* gnu/packages/fonts.scm (font-chiron-sung-hk)[arguments]: Split outputs.
[outputs]: Add "otf" and "ttf".

Change-Id: Id96bba47e8f9ae9404a528bcceab3e110a05db4e
---
 gnu/packages/fonts.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 73041ce79c..7b2cd7a396 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -3332,6 +3332,28 @@ (define-public font-chiron-sung-hk
                (base32
                 "1916bb834y4r4312g14zid7w3pbx1i70jcgkkfbf4z20grrj891m"))))
     (build-system font-build-system)
+    (arguments
+     (list #:modules
+           '((guix build font-build-system)
+             (guix build utils)
+             (srfi srfi-26))
+           #:phases
+           #~(modify-phases %standard-phases
+               (replace 'install
+                 (lambda _
+                   (let ((var-dir (string-append
+                                   #$output "/share/fonts/opentype"))
+                         (otf-dir (string-append
+                                   #$output:otf "/share/fonts/opentype"))
+                         (ttf-dir (string-append
+                                   #$output:ttf "/share/fonts/truetype")))
+                     (for-each (cut install-file <> var-dir)
+                               (find-files "VAR" "\\.otf$"))
+                     (mkdir-p (dirname otf-dir))
+                     (copy-recursively "OTF" otf-dir)
+                     (mkdir-p (dirname ttf-dir))
+                     (copy-recursively "TTF" ttf-dir)))))))
+    (outputs '("out" "otf" "ttf"))
     (home-page "https://chiron-fonts.github.io/";)
     (synopsis "Traditional Chinese Song typeface")
     (description
-- 
2.41.0






reply via email to

[Prev in Thread] Current Thread [Next in Thread]