Archived
1
0
Fork 0

gnu: fontforge: Use modify-phases.

* 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

View file

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