diff options
author | Arun Isaac <arunisaac@systemreboot.net> | 2018-03-27 11:51:20 +0530 |
---|---|---|
committer | Arun Isaac <arunisaac@systemreboot.net> | 2018-03-28 14:58:34 +0530 |
commit | 0328c514ed597b99dcbc030807b3099a210a16ff (patch) | |
tree | 95daeaae9e220c42373f4456b30c333ffe194b5b /gnu/packages | |
parent | 15795e072342ddd95953e5d8cc745291ec354da9 (diff) | |
download | guix-patches-0328c514ed597b99dcbc030807b3099a210a16ff.tar guix-patches-0328c514ed597b99dcbc030807b3099a210a16ff.tar.gz |
gnu: culmus: Switch to font-build-system.
* gnu/packages/fonts.scm (culmus): Switch to font-build-system.
[arguments]: Replace system* with invoke.
Diffstat (limited to 'gnu/packages')
-rw-r--r-- | gnu/packages/fonts.scm | 52 |
1 files changed, 15 insertions, 37 deletions
diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index 8252c1d729..dfa96b1481 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -1202,49 +1202,27 @@ ExtraLight, Light, Book, Medium, Semibold, Bold & ExtraBold") (sha256 (base32 "1djxalm26r7bcq33ckmfa15xfs6pmqzvcl64d5lqa1dl01bl4j4z")))) - (build-system gnu-build-system) + (build-system font-build-system) (arguments - `(#:tests? #f ; 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 - "')")))))) + (invoke + "fontforge" "-lang=ff" + "-c" (string-append "Open('" name "');" + "Generate('" + (basename name "sfd") ext + "')"))))) ;; This part based on the fonts shipped in the non-source package. - (every (lambda (name) - (compile name "ttf")) - (find-files "." "^[^Nachlieli].*\\.sfd$")) - (every (lambda (name) - (compile name "otf")) - (find-files "." "^Nachlieli.*\\.sfd$")) - #t))) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref %outputs "out")) - (ttf (string-append out "/share/fonts/truetype")) - (otf (string-append out "/share/fonts/opentype")) - (license (string-append out "/share/doc/" ,name))) - (for-each (lambda (file) - (install-file file ttf)) - (find-files "." "\\.ttf$")) - (for-each (lambda (file) - (install-file file otf)) - (find-files "." "\\.otf$")) - (for-each (lambda (file) - (install-file file license)) - '("GNU-GPL" "LICENSE" "LICENSE-BITSTREAM")) + (for-each (lambda (name) + (compile name "ttf")) + (find-files "." "^[^Nachlieli].*\\.sfd$")) + (for-each (lambda (name) + (compile name "otf")) + (find-files "." "^Nachlieli.*\\.sfd$")) #t)))))) (native-inputs `(("fontforge" ,fontforge))) |