05/13: gnu: font-chiron-sung-hk: Split outputs.

[guix-commits]

hako pushed a commit to branch master
in repository guix.

commit a900fa3c6c81fb9319d00966b89fa5c52fdd6ec1
Author: Hilton Chain <hako@ultrarare.space>
AuthorDate: Tue Feb 27 23:12:24 2024 +0800

    gnu: font-chiron-sung-hk: Split outputs.
    
    * gnu/packages/fonts.scm (font-chiron-sung-hk)[arguments]: Split outputs.
    [outputs]: Add "otf" and "ttf".
    
    Change-Id: Id96bba47e8f9ae9404a528bcceab3e110a05db4e
---
 gnu/packages/fonts.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index e1e4c50388..7700eaa4fa 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -3332,6 +3332,20 @@ dialects in Hong Kong and Taiwan.")))
                (base32
                 "1916bb834y4r4312g14zid7w3pbx1i70jcgkkfbf4z20grrj891m"))))
     (build-system font-build-system)
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (replace 'install
+                 (lambda _
+                   (let ((install (assoc-ref %standard-phases 'install)))
+                     (with-directory-excursion "VAR"
+                       (for-each delete-file (find-files "." "\\.ttf$"))
+                       (install #:outputs `(("out" . ,#$output))))
+                     (with-directory-excursion "OTF"
+                       (install #:outputs `(("out" . ,#$output:otf))))
+                     (with-directory-excursion "TTF"
+                       (install #:outputs `(("out" . ,#$output:ttf))))))))))
+    (outputs '("out" "otf" "ttf"))
     (home-page "https://chiron-fonts.github.io/";)
     (synopsis "Traditional Chinese Song typeface")
     (description