[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#30960] [PATCH 2/4] gnu: font-linuxlibertine: Switch to font-build-s
From: |
Arun Isaac |
Subject: |
[bug#30960] [PATCH 2/4] gnu: font-linuxlibertine: Switch to font-build-system. |
Date: |
Tue, 27 Mar 2018 19:44:39 +0530 |
* gnu/packages/fonts.scm (font-linuxlibertine): Switch to font-build-system.
[arguments]: Replace system* with invoke.
---
gnu/packages/fonts.scm | 39 +++++++++++++--------------------------
1 file changed, 13 insertions(+), 26 deletions(-)
diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 8ab3cdcf8..8252c1d72 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -305,37 +305,24 @@ The Liberation Fonts are sponsored by Red Hat.")
(sha256
(base32
"0x7cz6hvhpil1rh03rax9zsfzm54bh7r4bbrq8rz673gl9h47v0v"))))
- (build-system gnu-build-system)
+ (build-system font-build-system)
(arguments
- `(#:tests? #f ; there are no tests
- #:modules ((guix build utils)
- (guix build gnu-build-system)
- (srfi srfi-1)
- (srfi srfi-26))
- #:phases
+ `(#:phases
(modify-phases %standard-phases
- (delete 'configure)
- (replace 'build
+ (add-before 'install 'build
(lambda _
(let ((compile
(lambda (name ext)
- (zero? (system*
- "fontforge" "-lang=ff"
- "-c" (string-append "Open('" name "');"
- "Generate('"
- (basename name "sfd") ext
- "')"))))))
- (every (lambda (name)
- (and (compile name "ttf")
- (compile name "otf")))
- (find-files "." "\\.sfd$")))))
- (replace 'install
- (lambda* (#:key outputs #:allow-other-keys)
- (let ((font-dir (string-append (assoc-ref outputs "out")
- "/share/fonts/truetype")))
- (mkdir-p font-dir)
- (for-each (cut install-file <> font-dir)
- (find-files "." "\\.(otf|ttf)$"))
+ (invoke
+ "fontforge" "-lang=ff"
+ "-c" (string-append "Open('" name "');"
+ "Generate('"
+ (basename name "sfd") ext
+ "')")))))
+ (for-each (lambda (name)
+ (and (compile name "ttf")
+ (compile name "otf")))
+ (find-files "." "\\.sfd$"))
#t))))))
(native-inputs
`(("fontforge" ,fontforge)))
--
2.15.1
- [bug#30960] [PATCH 0/4] Switch to font-build-system, (continued)
- [bug#30960] [PATCH 0/4] Switch to font-build-system, Arun Isaac, 2018/03/27
- [bug#30960] [PATCH 0/4] Switch to font-build-system, ng0, 2018/03/27
- [bug#30960] [PATCH 0/4] Switch to font-build-system, ng0, 2018/03/27
- [bug#30960] [PATCH 0/4] Switch to font-build-system, ng0, 2018/03/27
- bug#30960: [PATCH 0/4] Switch to font-build-system, Arun Isaac, 2018/03/28
- [bug#30960] [PATCH 0/4] Switch to font-build-system, Arun Isaac, 2018/03/27
- [bug#30960] [PATCH 0/4] Switch to font-build-system, ng0, 2018/03/27
[bug#30960] [PATCH 1/4] gnu: font-lato: Switch to font-build-system., Arun Isaac, 2018/03/27