mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
gnu: fontforge: Install 'showttf' tool.
* gnu/packages/fontutils.scm (fontforge)[arguments]: Add 'build-contrib' phase.
This commit is contained in:
parent
5ab869f962
commit
5f031ed242
1 changed files with 8 additions and 0 deletions
|
@ -557,6 +557,14 @@ (define-public fontforge
|
||||||
;; hard-coded.
|
;; hard-coded.
|
||||||
(("gww_prefix in.*") (string-append "gww_prefix in "
|
(("gww_prefix in.*") (string-append "gww_prefix in "
|
||||||
cairo " " pango "\n"))))))
|
cairo " " pango "\n"))))))
|
||||||
|
(add-after 'build 'build-contrib
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
(bin (string-append out "/bin")))
|
||||||
|
(and (zero? (system* "make" "-Ccontrib/fonttools"
|
||||||
|
"CC=gcc" "showttf"))
|
||||||
|
(begin (install-file "contrib/fonttools/showttf" bin)
|
||||||
|
#t)))))
|
||||||
(add-after 'install 'set-library-path
|
(add-after 'install 'set-library-path
|
||||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||||
(let ((out (assoc-ref outputs "out"))
|
(let ((out (assoc-ref outputs "out"))
|
||||||
|
|
Loading…
Reference in a new issue