1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2013, 2014, 2015 Andreas Enge <andreas@enge.fr>
3 ;;; Copyright © 2014, 2016 Eric Bavier <bavier@member.fsf.org>
4 ;;; Copyright © 2016 Mark H Weaver <mhw@netris.org>
5 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
7 ;;; This file is part of GNU Guix.
9 ;;; GNU Guix is free software; you can redistribute it and/or modify it
10 ;;; under the terms of the GNU General Public License as published by
11 ;;; the Free Software Foundation; either version 3 of the License, or (at
12 ;;; your option) any later version.
14 ;;; GNU Guix is distributed in the hope that it will be useful, but
15 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;;; GNU General Public License for more details.
19 ;;; You should have received a copy of the GNU General Public License
20 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
22 (define-module (gnu packages fontutils)
23 #:use-module (gnu packages)
24 #:use-module (gnu packages compression)
25 #:use-module (gnu packages ghostscript)
26 #:use-module (gnu packages perl)
27 #:use-module (gnu packages pkg-config)
28 #:use-module (gnu packages autotools)
29 #:use-module (gnu packages gettext)
30 #:use-module (gnu packages python)
31 #:use-module (gnu packages image)
32 #:use-module (gnu packages bison)
33 #:use-module (gnu packages flex)
34 #:use-module (gnu packages glib)
35 #:use-module (gnu packages xorg)
36 #:use-module (gnu packages gtk)
37 #:use-module (gnu packages xml)
38 #:use-module ((guix licenses) #:prefix license:)
39 #:use-module (guix packages)
40 #:use-module (guix download)
41 #:use-module (guix svn-download)
42 #:use-module (guix git-download)
43 #:use-module (guix build-system cmake)
44 #:use-module (guix build-system gnu))
46 (define-public freetype
52 (uri (string-append "mirror://savannah/freetype/freetype-"
55 "18k3b026762lmyrxfil5xv8qwnvj7hc12gz9bjqzbb12lmx707ip"))))
56 (build-system gnu-build-system)
58 `(("pkg-config" ,pkg-config)))
60 ;; These are all in the Requires.private field of freetype2.pc.
64 (synopsis "Font rendering library")
66 "Freetype is a library that can be used by applications to access the
67 contents of font files. It provides a uniform interface to access font files.
68 It supports both bitmap and scalable formats, including TrueType, OpenType,
69 Type1, CID, CFF, Windows FON/FNT, X11 PCF, and others. It supports high-speed
70 anti-aliased glyph bitmap generation with 256 gray levels.")
71 (license license:freetype) ; some files have other licenses
72 (home-page "http://www.freetype.org/")))
74 (define-public ttfautohint
81 (uri (string-append "mirror://savannah/freetype/ttfautohint-"
85 "1lgghck46p33z3hg8dnl76jryig4fh6d8rhzms837zp7x4hyfkv4"))
86 (patches (list (search-patch "ttfautohint-source-date-epoch.patch")))))
87 (build-system gnu-build-system)
91 ("pkg-config" ,pkg-config)))
93 `(("freetype" ,freetype)
94 ("harfbuzz" ,harfbuzz)))
96 `(#:configure-flags '("--with-qt=no"))) ;no gui
97 (synopsis "Automated font hinting")
99 "ttfautohint provides a 99% automated hinting process and a platform for
100 finely hand-hinting the last 1%. It is ideal for web fonts and supports many
102 (license (list license:gpl2+ license:freetype)) ;choose one or the other
103 (home-page "http://www.freetype.org/ttfautohint/")))
105 (define-public woff-tools
108 (version "2009.10.04")
112 ;; Upstream source is unversioned, so use Debian's versioned tarball
113 (uri (string-append "mirror://debian/pool/main/w/woff-tools/"
114 "woff-tools_" version ".orig.tar.gz"))
115 (file-name (string-append name "-" version ".tar.gz"))
118 "1i97gkqa6jfzlslsngqf556kx60knlgf7yc9pzsq2pizc6f0d4zl"))))
119 (build-system gnu-build-system)
123 `(#:make-flags '("CC=gcc")
124 #:tests? #f ;no tests
126 (modify-phases %standard-phases
127 (delete 'configure) ;no configuration
129 (lambda* (#:key outputs #:allow-other-keys)
130 (let* ((out (assoc-ref outputs "out"))
131 (bin (string-append out "/bin")))
132 (install-file "sfnt2woff" bin)
133 (install-file "woff2sfnt" bin)))))))
134 (synopsis "Convert between OpenType and WOFF fonts")
136 "This package provides two tools:
139 Converts OpenType fonts to WOFF fonts
141 Converts WOFF fonts to OpenType fonts
143 (license (list license:mpl1.1 license:gpl2+ license:lgpl2.1+))
144 (home-page "https://people.mozilla.com/~jkew/woff/")))
146 (define-public ttf2eot
153 (uri (string-append "https://storage.googleapis.com/"
154 "google-code-archive-downloads/v2/"
155 "code.google.com/ttf2eot/"
156 "ttf2eot-" version ".tar.gz"))
159 "1f4dzzmhn0208dvbm3ia5ar6ls9apwc6ampy5blmfxkigi6z0g02"))
160 (patches (list (search-patch "ttf2eot-cstddef.patch")))))
161 (build-system gnu-build-system)
163 `(#:tests? #f ;no tests
165 (modify-phases %standard-phases
166 (delete 'configure) ;no configuration
168 (lambda* (#:key outputs #:allow-other-keys)
169 (let* ((out (assoc-ref outputs "out"))
170 (bin (string-append out "/bin")))
171 (install-file "ttf2eot" bin)))))))
172 (synopsis "Convert from TrueType to Embeddable Open Type")
174 "This package contains a commandline wrapper around OpenTypeUtilities.cpp
175 from Chromium, used to make EOT (Embeddable Open Type) files from
176 TTF (TrueType/OpenType Font) files.")
177 ;; While the README states "License: Derived from WebKit, so BSD/LGPL
178 ;; 2/LGPL 2.1", the single derived source file includes only BSD in its
179 ;; license header, and the wrapper source contains no license header.
180 (license license:bsd-2)
181 (home-page "https://code.google.com/archive/p/ttf2eot/")))
184 (let ((commit "4e698b8c6c5e070d53c340db9ddf160e21070ede")
188 (version (string-append "20160306-" revision "."
189 (string-take commit 7)))
193 (url "https://github.com/google/woff2.git")
195 (file-name (string-append name "-" version ".tar.xz"))
198 "0wka0yhf0cjmd4rv2jckxpyv6lb5ckj4nj0k1ajq5hrjy7f30lcp"))
199 (patches (list (search-patch "woff2-libbrotli.patch")))))
200 (build-system gnu-build-system)
202 `(("pkg-config" ,pkg-config)))
204 `(("brotli" ,brotli)))
206 `(#:tests? #f ;no tests
207 #:phases (modify-phases %standard-phases
210 (lambda* (#:key outputs #:allow-other-keys)
211 (let* ((out (assoc-ref outputs "out"))
212 (bin (string-append out "/bin")))
213 (install-file "woff2_compress" bin)
214 (install-file "woff2_decompress" bin)
216 (synopsis "Compress TrueType fonts to WOFF2")
218 "This package provides utilities for compressing/decompressing TrueType
219 fonts to/from the WOFF2 format.")
220 (license license:asl2.0)
221 (home-page "https://github.com/google/woff2"))))
223 (define-public fontconfig
230 "https://www.freedesktop.org/software/fontconfig/release/fontconfig-"
233 "1wy7svvp7df6bjpg1m5vizb3ngd7rhb20vpclv3x3qa71khs6jdl"))))
234 (build-system gnu-build-system)
235 (propagated-inputs `(("expat" ,expat)
236 ("freetype" ,freetype)))
237 (inputs `(("gs-fonts" ,gs-fonts)))
239 `(("pkg-config" ,pkg-config)))
242 (list "--with-cache-dir=/var/cache/fontconfig"
243 ;; register gs-fonts as default fonts
244 (string-append "--with-default-fonts="
245 (assoc-ref %build-inputs "gs-fonts")
248 ;; Register fonts from user and system profiles.
249 (string-append "--with-add-fonts="
250 "~/.guix-profile/share/fonts,"
251 "/run/current-system/profile/share/fonts")
253 ;; python is not actually needed
256 (modify-phases %standard-phases
259 ;; Don't try to create /var/cache/fontconfig.
260 (zero? (system* "make" "install"
261 "fc_cachedir=$(TMPDIR)"
262 "RUN_FC_CACHE_TEST=false")))))))
263 (synopsis "Library for configuring and customizing font access")
265 "Fontconfig can discover new fonts when installed automatically;
266 perform font name substitution, so that appropriate alternative fonts can
267 be selected if fonts are missing;
268 identify the set of fonts required to completely cover a set of languages;
269 have GUI configuration tools built as it uses an XML-based configuration file;
270 efficiently and quickly find needed fonts among the set of installed fonts;
271 be used in concert with the X Render Extension and FreeType to implement
272 high quality, anti-aliased and subpixel rendered text on a display.")
273 ; The exact license is more X11-style than BSD-style.
274 (license (license:non-copyleft "file://COPYING"
275 "See COPYING in the distribution."))
276 (home-page "http://www.freedesktop.org/wiki/Software/fontconfig")))
284 (uri (list (string-append "ftp://sunsite.unc.edu/pub/Linux/libs/"
285 "graphics/" name "-" version ".tar.gz")
286 (string-append "https://fossies.org/linux/misc/old/"
287 name "-" version ".tar.gz")))
289 "0nbvjpnmcznib1nlgg8xckrmsw3haa154byds2h90y2g0nsjh4w2"))
290 (patches (search-patches
291 "t1lib-CVE-2010-2642.patch"
292 "t1lib-CVE-2011-0764.patch"
293 "t1lib-CVE-2011-1552+CVE-2011-1553+CVE-2011-1554.patch"))))
294 (build-system gnu-build-system)
296 ;; Making the documentation requires latex, but t1lib is also an input
297 ;; for building texlive.
298 `(#:tests? #f ; no test target
301 (synopsis "Library for generating bitmaps from Type 1 fonts")
303 "T1lib is a library for generating/rasterising bitmaps from Type 1 fonts.
304 It is based on the code of the X11 rasteriser of the X11 project.
306 The bitmaps created by t1lib are returned in a data structure with type
307 GLYPH. This special GLYPH-type is also used in the X11 window system to
308 describe character bitmaps. It contains the bitmap data as well as some
309 metric information. But t1lib is in itself entirely independent of the
310 X11-system or any other graphical user interface.")
311 (license license:gpl2)
312 (home-page "http://www.t1lib.org/")))
314 (define-public teckit
319 ;; Downloaded tarballs vary with each download, so we use an
320 ;; svn snapshot. The 2.5.4 release seems to be made in r128,
321 ;; but r132 updates additional files to contain the correct
322 ;; version number (r129 to r131 do not concern TRUNK).
325 (url "https://scripts.sil.org/svn-public/teckit/TRUNK")
327 (file-name (string-append name "-" version))
330 "1xqkqgw30pb24snh46srmjs2j4zhz2dfi5pf7znia0k34mrpwivz"))))
331 (build-system gnu-build-system)
332 (inputs `(("zlib" ,zlib)))
334 `(("autoconf" ,autoconf)
335 ("automake" ,automake)
337 ("perl" ,perl))) ; for the tests
340 (modify-phases %standard-phases
341 (add-after 'unpack 'autogen
343 (zero? (system* "sh" "autogen.sh")))))))
344 (synopsis "Toolkit for encoding conversions")
346 "TECkit is a low-level toolkit intended to be used by other applications
347 that need to perform encoding conversions (e.g., when importing legacy data
348 into a Unicode-based application). The primary component of the TECkit
349 package is therefore a library that performs conversions; this is the
350 \"TECkit engine\". The engine relies on mapping tables in a specific binary
351 format (for which documentation is available); there is a compiler that
352 creates such tables from a human-readable mapping description (a simple
355 To facilitate the development and testing of mapping tables for TECkit,
356 several applications are also included in the current package; these
357 include simple tools for applying conversions to plain-text and Standard
358 Format files, as well as both command-line and simple GUI versions of the
359 TECkit compiler. However, it is not intended that these tools will be the
360 primary means by which end users perform conversions, and they have not
361 been designed, tested, and debugged to the extent that general-purpose
362 applications should be.")
363 (license license:lgpl2.1+)
364 (home-page "http://scripts.sil.org/cms/scripts/page.php?cat_id=teckit")))
366 (define-public graphite2
373 (uri (string-append "https://github.com/silnrsi/graphite/releases/"
374 "download/" version "/" name "-" version ".tgz"))
377 "1hlc9j7w7gihy6gvzfa7902pr6yxq1sr1xkp5rwf0p29m2rjagwz"))))
378 (build-system cmake-build-system)
380 `(("python" ,python-2) ; because of "import imap" in tests
381 ("python-fonttools" ,python2-fonttools)))
383 `(("freetype" ,freetype)))
384 (synopsis "Reimplementation of the SIL Graphite text processing engine")
386 "Graphite2 is a reimplementation of the SIL Graphite text processing
387 engine. Graphite is a smart font technology designed to facilitate the
388 process known as shaping. This process takes an input Unicode text string
389 and returns a sequence of positioned glyphids from the font.")
390 (license license:lgpl2.1+)
391 (home-page "https://github.com/silnrsi/graphite")))
393 (define-public potrace
400 (uri (string-append "mirror://sourceforge/potrace/" version
401 "/potrace-" version ".tar.gz"))
404 "115p2vgyq7p2mf4nidk2x3aa341nvv2v8ml056vbji36df5l6lk2"))))
405 (build-system gnu-build-system)
406 (native-inputs `(("ghostscript" ,ghostscript))) ;for tests
407 (inputs `(("zlib" ,zlib)))
410 `("--with-libpotrace"))) ; install library and headers
411 (synopsis "Transform bitmaps into vector graphics")
413 "Potrace is a tool for tracing a bitmap, which means, transforming a
414 bitmap into a smooth, scalable image. The input is a bitmap (PBM, PGM, PPM,
415 or BMP format), and the default output is an encapsulated PostScript
416 file (EPS). A typical use is to create EPS files from scanned data, such as
417 company or university logos, handwritten notes, etc. The resulting image is
418 not \"jaggy\" like a bitmap, but smooth. It can then be rendered at any
420 (license license:gpl2+)
421 (home-page "http://potrace.sourceforge.net/")))
423 (define-public libotf
429 (uri (string-append "mirror://savannah/m17n/libotf-"
432 (base32 "0239zvfan56w7vrppriwy77fzb10ag9llaz15nsraps2a2x6di3v"))))
433 (build-system gnu-build-system)
435 `(("freetype" ,freetype)))
436 (home-page "http://www.nongnu.org/m17n/")
437 (synopsis "Library for handling OpenType Font")
438 (description "This library can read Open Type Layout Tables from an OTF
439 file. Currently these tables are supported; head, name, cmap, GDEF, GSUB, and
440 GPOS. It can convert a Unicode character sequence to a glyph code sequence by
441 using the above tables.")
442 (license license:lgpl2.0+)))
444 (define-public libspiro
451 (uri (string-append "mirror://sourceforge/libspiro/libspiro/"
452 version "/libspiro_src-" version ".tar.bz2"))
455 "1kylz8pvwnb85yya150r9i6mhbpzx38f32qy523qg3ylgd9b3zhy"))))
456 (build-system gnu-build-system)
457 (arguments `(#:tests? #f)) ;no tests
458 (synopsis "Clothoid to bezier conversion library")
460 "Raph Levien's Spiro package as a library. A mechanism for drawing
461 smooth contours with constant curvature at the spline joins.")
462 (license license:gpl2+)
463 (home-page "http://libspiro.sourceforge.net/")))
465 (define-public libuninameslist
467 (name "libuninameslist")
472 (uri (string-append "https://github.com/fontforge/libuninameslist/"
473 "archive/" version ".tar.gz"))
474 (file-name (string-append name "-" version ".tar.gz"))
477 "12xxb301a66dh282pywpy00wxiaq5z8z20qm3pr2vql04r2g8d0x"))))
478 (build-system gnu-build-system)
479 (native-inputs `(("autoconf" ,autoconf)
480 ("automake" ,automake)
481 ("libtool" ,libtool)))
484 (modify-phases %standard-phases
485 (add-after 'unpack 'bootstrap
486 (lambda _ (zero? (system* "autoreconf" "-vi")))))))
487 (synopsis "Unicode names and annotation list")
489 "LibUniNamesList holds www.unicode.org Nameslist.txt data which can be
490 useful for programs that need Unicode \"Names\", \"Annotations\", and block
492 (license license:gpl2)
493 (home-page "https://github.com/fontforge/libuninameslist")))
495 (define-public fontforge
502 "https://github.com/fontforge/fontforge/releases/download/"
503 version "/fontforge-dist-" version ".tar.gz"))
505 "1kavnhbkzc1hk6f39fynq9s0haama81ddrbld4b5x60d0dbaawvc"))
506 (modules '((guix build utils)))
509 ;; Make builds bit-reproducible by using fixed date strings.
510 (substitute* "configure"
511 (("^FONTFORGE_MODTIME=.*$")
512 "FONTFORGE_MODTIME=\"1459819518L\"\n")
513 (("^FONTFORGE_MODTIME_STR=.*$")
514 "FONTFORGE_MODTIME_STR=\"20:25 CDT 4-Apr-2016\"\n")
515 (("^FONTFORGE_VERSIONDATE=.*$")
516 "FONTFORGE_VERSIONDATE=\"20160404\"\n"))))
517 (patches (list (search-patch "fontforge-svg-modtime.patch")))))
518 (build-system gnu-build-system)
520 `(("pkg-config" ,pkg-config)))
521 (inputs `(("cairo" ,cairo)
522 ("fontconfig" ,fontconfig) ;dlopen'd
523 ("freetype" ,freetype)
524 ("gettext" ,gettext-minimal)
525 ("glib" ,glib) ;needed for pango detection
533 ("libspiro" ,libspiro)
535 ("libungif" ,libungif)
536 ("libuninameslist" ,libuninameslist)
546 (modify-phases %standard-phases
547 (add-after 'build 'build-contrib
548 (lambda* (#:key outputs #:allow-other-keys)
549 (let* ((out (assoc-ref outputs "out"))
550 (bin (string-append out "/bin")))
551 (and (zero? (system* "make" "-Ccontrib/fonttools"
553 (begin (install-file "contrib/fonttools/showttf" bin)
555 (add-after 'install 'set-library-path
556 (lambda* (#:key inputs outputs #:allow-other-keys)
557 (let ((out (assoc-ref outputs "out"))
558 (potrace (string-append (assoc-ref inputs "potrace") "/bin")))
559 (wrap-program (string-append out "/bin/fontforge")
560 ;; Fontforge dynamically opens libraries.
561 `("LD_LIBRARY_PATH" ":" prefix
562 ,(map (lambda (input)
563 (string-append (assoc-ref inputs input)
565 '("libtiff" "libjpeg" "libpng" "libungif"
566 "libxml2" "zlib" "libspiro" "freetype"
567 "pango" "cairo" "fontconfig")))
568 ;; Checks for potrace program at runtime
569 `("PATH" ":" prefix (,potrace)))))))))
570 (synopsis "Outline font editor")
572 "FontForge allows you to create and modify postscript, truetype and
573 opentype fonts. You can save fonts in many different outline formats, and
575 (license license:gpl3+)
576 (home-page "http://fontforge.org/")))