[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 8/9] gnu: fontforge: Use modify-phases.
From: |
ericbavier |
Subject: |
[PATCH 8/9] gnu: fontforge: Use modify-phases. |
Date: |
Tue, 5 Apr 2016 23:33:00 -0500 |
From: Eric Bavier <address@hidden>
* gnu/packages/fontutils.scm (fontforge)[arguments]: Use modify-phases.
---
gnu/packages/fontutils.scm | 64 ++++++++++++++++++++++------------------------
1 file changed, 31 insertions(+), 33 deletions(-)
diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm
index 5ca9835..5b3247b 100644
--- a/gnu/packages/fontutils.scm
+++ b/gnu/packages/fontutils.scm
@@ -546,39 +546,37 @@ definitions.")
(arguments
'(#:tests? #f
#:phases
- (alist-cons-before
- 'configure 'patch-configure
- (lambda* (#:key inputs #:allow-other-keys)
- (let ((libxml2 (assoc-ref inputs "libxml2"))
- (cairo (assoc-ref inputs "cairo"))
- (pango (assoc-ref inputs "pango")))
- (substitute* "configure"
- ;; configure looks for a directory to be present to determine
- ;; whether libxml2 is available, rather than checking for the
- ;; library or headers. Point it to the correct directory.
- (("/usr/include/libxml2")
- (string-append libxml2 "/include/libxml2"))
- ;; 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
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (let ((out (assoc-ref outputs "out"))
- (potrace (string-append (assoc-ref inputs "potrace") "/bin")))
- (wrap-program (string-append out "/bin/fontforge")
- ;; Fontforge dynamically opens libraries.
- `("LD_LIBRARY_PATH" ":" prefix
- ,(map (lambda (input)
- (string-append (assoc-ref inputs input)
- "/lib"))
- '("libtiff" "libjpeg" "libpng" "giflib"
- "libxml2" "zlib" "libspiro" "freetype"
- "pango" "cairo" "fontconfig")))
- ;; Checks for potrace program at runtime
- `("PATH" ":" prefix (,potrace)))))
- %standard-phases))))
+ (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"))
+ (pango (assoc-ref inputs "pango")))
+ (substitute* "configure"
+ ;; configure looks for a directory to be present to determine
+ ;; whether libxml2 is available, rather than checking for the
+ ;; library or headers. Point it to the correct directory.
+ (("/usr/include/libxml2")
+ (string-append libxml2 "/include/libxml2"))
+ ;; Similary, the search directories for cairo and pango are
+ ;; hard-coded.
+ (("gww_prefix in.*") (string-append "gww_prefix in "
+ 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")))
+ (wrap-program (string-append out "/bin/fontforge")
+ ;; Fontforge dynamically opens libraries.
+ `("LD_LIBRARY_PATH" ":" prefix
+ ,(map (lambda (input)
+ (string-append (assoc-ref inputs input)
+ "/lib"))
+ '("libtiff" "libjpeg" "libpng" "giflib"
+ "libxml2" "zlib" "libspiro" "freetype"
+ "pango" "cairo" "fontconfig")))
+ ;; Checks for potrace program at runtime
+ `("PATH" ":" prefix (,potrace)))))))))
(synopsis "Outline font editor")
(description
"FontForge allows you to create and modify postscript, truetype and
--
2.7.3
- Re: [PATCH 2/9] gnu: Add woff-tools., (continued)
- [PATCH 7/9] gnu: Add font-fantasque-sans., ericbavier, 2016/04/06
- [PATCH 9/9] gnu: fontforge: Install 'showttf' tool., ericbavier, 2016/04/06
- [PATCH 8/9] gnu: fontforge: Use modify-phases.,
ericbavier <=
- Re: [PATCH 1/9] gnu: Add ttfautohint., Alex Kost, 2016/04/06
- Re: [PATCH 1/9] gnu: Add ttfautohint., Eric Bavier, 2016/04/06
- Specifying package patches in a more convenient form, Alex Kost, 2016/04/07
- Re: Specifying package patches in a more convenient form, Andy Wingo, 2016/04/07
- Re: Specifying package patches in a more convenient form, Eric Bavier, 2016/04/07
- Re: Specifying package patches in a more convenient form, Alex Kost, 2016/04/08
- Re: Specifying package patches in a more convenient form, Ludovic Courtès, 2016/04/09
- Re: Specifying package patches in a more convenient form, Ludovic Courtès, 2016/04/07
- Re: Specifying package patches in a more convenient form, Alex Kost, 2016/04/09
- Re: Specifying package patches in a more convenient form, Andreas Enge, 2016/04/09