aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/fontutils.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/fontutils.scm')
-rw-r--r--gnu/packages/fontutils.scm81
1 files changed, 81 insertions, 0 deletions
diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm
index d3c10aaf3a..512dbb6406 100644
--- a/gnu/packages/fontutils.scm
+++ b/gnu/packages/fontutils.scm
@@ -24,7 +24,12 @@
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages autotools)
+ #:use-module (gnu packages gettext)
#:use-module (gnu packages python)
+ #:use-module (gnu packages image)
+ #:use-module (gnu packages glib)
+ #:use-module (gnu packages xorg)
+ #:use-module (gnu packages gtk)
#:use-module (gnu packages xml)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
@@ -278,3 +283,79 @@ useful for programs that need Unicode \"Names\", \"Annotations\", and block
definitions.")
(license license:gpl2)
(home-page "https://github.com/fontforge/libuninameslist")))
+
+(define-public fontforge
+ (package
+ (name "fontforge")
+ (version "20120731-b") ;aka 1.0
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "mirror://sourceforge/fontforge/fontforge_full-"
+ version ".tar.bz2"))
+ (sha256 (base32
+ "1dhg0i2pf76j40cb9g1wzpag21fgarpjaad0hdbk27i1zz588q8v"))))
+ (build-system gnu-build-system)
+ ;; TODO: Add python for scripting support.
+ (inputs `(("gettext" ,gnu-gettext)
+ ("libtiff" ,libtiff)
+ ("libjpeg" ,libjpeg)
+ ("libpng" ,libpng)
+ ("giflib" ,giflib) ;needs giflib 4.*
+ ("libxml2" ,libxml2)
+ ("libX11" ,libx11)
+ ("libXi" ,libxi)
+ ("libICE" ,libice)
+ ("libSM" ,libsm)
+ ("freetype" ,freetype)
+ ("potrace" ,potrace)
+ ("libspiro" ,libspiro)
+ ("zlib" ,zlib)
+ ("cairo" ,cairo)
+ ("fontconfig" ,fontconfig) ;dlopen'd
+ ("libuninameslist" ,libuninameslist)
+ ("pango" ,pango)
+ ("glib" ,glib))) ;needed for pango detection
+ (arguments
+ '(#:configure-flags `("--enable-double")
+ #: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))))
+ (synopsis "Outline font editor")
+ (description
+ "FontForge allows you to create and modify postscript, truetype and
+opentype fonts. You can save fonts in many different outline formats, and
+generate bitmaps.")
+ (license license:bsd-3)
+ (home-page "http://fontforge.org/")))