08/53: gnu: font-intel-one-mono: Split outputs for "out", "ttf" and "woff".

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit be1d8cdc76ff51878d2aca34a3fbbc990fcbc7be
Author: 宋文武 <iyzsong@member.fsf.org>
AuthorDate: Wed Feb 14 10:53:24 2024 +0800

    gnu: font-intel-one-mono: Split outputs for "out", "ttf" and "woff".
    
    * gnu/packages/fonts.scm (font-intel-one-mono)[outputs]: New field.
    [arguments]: Add 'split-outputs phase.
    
    Change-Id: I0323fb55b9609c93c916b32fef4821533d580b48
    Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
---
 gnu/packages/fonts.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index fb1349c9ba..01d280f55f 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -226,7 +226,25 @@ in print.  With attention to detail for high resolution 
rendering.")
               (sha256
                (base32
                 "0w9isn8az1k3a3q4m2llwnryy79i5v30dx1hfaf90x0zkj98ky5h"))))
+    (outputs '("out" "ttf" "woff"))
     (build-system font-build-system)
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'split-outputs
+                 (lambda* (#:key outputs #:allow-other-keys)
+                   (let ((out-fonts (string-append (assoc-ref outputs "out")
+                                                   "/share/fonts"))
+                         (ttf-fonts (string-append (assoc-ref outputs "ttf")
+                                                   "/share/fonts"))
+                         (woff-fonts (string-append (assoc-ref outputs "woff")
+                                                    "/share/fonts")))
+                     (mkdir-p ttf-fonts)
+                     (mkdir-p woff-fonts)
+                     (rename-file (string-append out-fonts "/truetype")
+                                  (string-append ttf-fonts "/truetype"))
+                     (rename-file (string-append out-fonts "/web")
+                                  (string-append woff-fonts "/web"))))))))
     (home-page "https://github.com/intel/intel-one-mono";)
     (synopsis "Expressive monospaced font family")
     (description