09/11: gnu: fontforge: Install 'showttf' tool.

[Eric Bavier]

bavier pushed a commit to branch master
in repository guix.

commit 5f031ed242f979a9687f14fac9c311068f6b437b
Author: Eric Bavier <address@hidden>
Date:   Tue Apr 5 22:52:58 2016 -0500

    gnu: fontforge: Install 'showttf' tool.
    
    * gnu/packages/fontutils.scm (fontforge)[arguments]: Add 'build-contrib'
    phase.
---
 gnu/packages/fontutils.scm |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm
index e438aaf..7141f18 100644
--- a/gnu/packages/fontutils.scm
+++ b/gnu/packages/fontutils.scm
@@ -557,6 +557,14 @@ definitions.")
                 ;; hard-coded.
                 (("gww_prefix in.*") (string-append "gww_prefix in "
                                                    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
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (let ((out (assoc-ref outputs "out"))