ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 13:28:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: fontforge: Use modify-phases.

Browse source 
* gnu/packages/fontutils.scm (fontforge)[arguments]: Use modify-phases.
This commit is contained in:
Eric Bavier 2016-04-05 22:51:53 -05:00
parent f85cafde81
commit 5ab869f962
1 changed files with 31 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/fontutils.scm
View file

@ -541,8 +541,8 @@ (define-public fontforge
(arguments
'(#:tests? #f
#:phases
(alist-cons-before
'configure 'patch-configure
(modify-phases %standard-phases
(add-before 'configure 'patch-configure
(lambda* (#:key inputs #:allow-other-keys)
(let ((libxml2 (assoc-ref inputs "libxml2"))
(cairo (assoc-ref inputs "cairo"))
@ -556,9 +556,8 @@ (define-public fontforge
;; Similary, the search directories for cairo and pango are
;; hard-coded.
(("gww_prefix in.*") (string-append "gww_prefix in "
cairo " " pango "\n")))))
(alist-cons-after
'install 'set-library-path
cairo " " pango "\n"))))))
(add-after 'install 'set-library-path
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(potrace (string-append (assoc-ref inputs "potrace") "/bin")))
@ -572,8 +571,7 @@ (define-public fontforge
"libxml2" "zlib" "libspiro" "freetype"
"pango" "cairo" "fontconfig")))
;; Checks for potrace program at runtime
`("PATH" ":" prefix (,potrace)))))
%standard-phases))))
`("PATH" ":" prefix (,potrace)))))))))
(synopsis "Outline font editor")
(description
"FontForge allows you to create and modify postscript, truetype and