guix-patches
[Top][All Lists]
Advanced

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

[bug#69115] [PATCH 2/2] gnu: font-intel-one-mono: Split outputs for "out


From: iyzsong
Subject: [bug#69115] [PATCH 2/2] gnu: font-intel-one-mono: Split outputs for "out", "ttf" and "woff".
Date: Wed, 14 Feb 2024 10:53:24 +0800

From: 宋文武 <iyzsong@member.fsf.org>

* gnu/packages/fonts.scm (font-intel-one-mono)[outputs]: New field.
[arguments]: Add 'split-outputs phase.

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

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 2c532a6b5d..dc82040e84 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -226,7 +226,25 @@ (define-public font-intel-one-mono
               (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
-- 
2.41.0






reply via email to

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