gnu/packages/fonts.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2014, 2017 Mark H Weaver <mhw@netris.org>
   4 ;;; Copyright © 2014 Joshua Grant <tadni@riseup.net>
   5 ;;; Copyright © 2014 Alex Kost <alezost@gmail.com>
   6 ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
   7 ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
   8 ;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net>
   9 ;;; Copyright © 2015, 2016 Leo Famulari <leo@famulari.name>
  10 ;;; Copyright © 2016, 2017 ng0 <ng0@no-reply.pragmatique.xyz>
  11 ;;; Copyright © 2016 Jookia <166291@gmail.com>
  12 ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
  13 ;;; Copyright © 2016 Dmitry Nikolaev <cameltheman@gmail.com>
  14 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
  15 ;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
  16 ;;; Copyright © 2016 Toni Reina <areina@riseup.net>
  17 ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
  18 ;;; Copyright © 2017 José Miguel Sánchez García <jmi2k@openmailbox.com>
  19 ;;; Copyright © 2017 Alex Griffin <a@ajgrf.com>
  20 ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
  21 ;;; Copyright © 2017 Brendan Tildesley <brendan.tildesley@openmailbox.org>
  22 ;;;
  23 ;;; This file is part of GNU Guix.
  24 ;;;
  25 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  26 ;;; under the terms of the GNU General Public License as published by
  27 ;;; the Free Software Foundation; either version 3 of the License, or (at
  28 ;;; your option) any later version.
  29 ;;;
  30 ;;; GNU Guix is distributed in the hope that it will be useful, but
  31 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  32 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  33 ;;; GNU General Public License for more details.
  34 ;;;
  35 ;;; You should have received a copy of the GNU General Public License
  36 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  37
  38 (define-module (gnu packages fonts)
  39   #:use-module (ice-9 regex)
  40   #:use-module (guix utils)
  41   #:use-module ((guix licenses) #:prefix license:)
  42   #:use-module (guix packages)
  43   #:use-module (guix download)
  44   #:use-module (guix git-download)
  45   #:use-module (guix build-system font)
  46   #:use-module (guix build-system gnu)
  47   #:use-module (guix build-system trivial)
  48   #:use-module (gnu packages base)
  49   #:use-module (gnu packages compression)
  50   #:use-module (gnu packages fontutils)
  51   #:use-module (gnu packages golang)
  52   #:use-module (gnu packages perl)
  53   #:use-module (gnu packages pkg-config)
  54   #:use-module (gnu packages python)
  55   #:use-module (gnu packages xorg)
  56   #:use-module (gnu packages zip))
  57
  58 (define-public font-inconsolata
  59   (package
  60     (name "font-inconsolata")
  61     (version "0.80")
  62     (source (origin
  63               (method url-fetch)
  64               (uri "http://www.levien.com/type/myfonts/Inconsolata.otf")
  65               (sha256
  66                (base32
  67                 "06js6znbcf7swn8y3b8ki416bz96ay7d3yvddqnvi88lqhbfcq8m"))))
  68     (build-system font-build-system)
  69     (home-page "http://levien.com/type/myfonts/inconsolata.html")
  70     (synopsis "Monospace font")
  71     (description "A monospace font, designed for code listings and the like,
  72 in print.  With attention to detail for high resolution rendering.")
  73     (license license:silofl1.1)))
  74
  75 (define-public font-ubuntu
  76   (package
  77     (name "font-ubuntu")
  78     (version "0.83")
  79     (source (origin
  80               (method url-fetch)
  81               (uri (string-append
  82                     "http://font.ubuntu.com/download/ubuntu-font-family-"
  83                     version ".zip"))
  84               (sha256
  85                (base32
  86                 "0hjvq2x758dx0sfwqhzflns0ns035qm7h6ygskbx1svzg517sva5"))))
  87     (build-system font-build-system)
  88     (home-page "http://font.ubuntu.com/")
  89     (synopsis "The Ubuntu Font Family")
  90     (description "The Ubuntu Font Family is a unique, custom designed font
  91 that has a very distinctive look and feel.  This package provides the
  92 TrueType (TTF) files.")
  93     (license
  94      (license:non-copyleft
  95       "http://font.ubuntu.com/ufl/ubuntu-font-licence-1.0.txt"
  96       "Ubuntu Font License v1.0"))))
  97
  98 (define-public font-dejavu
  99   (package
 100     (name "font-dejavu")
 101     (version "2.37")
 102     (source (origin
 103              (method url-fetch)
 104              (uri (string-append "mirror://sourceforge/dejavu/dejavu/"
 105                                  version "/dejavu-fonts-ttf-"
 106                                  version ".tar.bz2"))
 107              (sha256
 108               (base32
 109                "1mqpds24wfs5cmfhj57fsfs07mji2z8812i5c4pi5pbi738s977s"))))
 110     (build-system font-build-system)
 111     (arguments
 112      `(#:phases
 113        (modify-phases %standard-phases
 114          (add-after 'install 'install-conf
 115            (lambda* (#:key outputs #:allow-other-keys)
 116              (let ((conf-dir (string-append (assoc-ref outputs "out")
 117                                             "/share/fontconfig/conf.avail")))
 118                (copy-recursively "fontconfig" conf-dir)))))))
 119     (home-page "http://dejavu-fonts.org/")
 120     (synopsis "Vera font family derivate with additional characters")
 121     (description "DejaVu provides an expanded version of the Vera font family
 122 aiming for quality and broader Unicode coverage while retaining the original
 123 Vera style.  DejaVu currently works towards conformance to the Multilingual
 124 European Standards (MES-1 and MES-2) for Unicode coverage.  The DejaVu fonts
 125 provide serif, sans and monospaced variants.")
 126     (license
 127      (license:x11-style
 128       "http://dejavu-fonts.org/"))))
 129
 130 (define-public font-bitstream-vera
 131   (package
 132     (name "font-bitstream-vera")
 133     (version "1.10")
 134     (source (origin
 135              (method url-fetch)
 136              (uri (string-append "mirror://gnome/sources/ttf-bitstream-vera/"
 137                                  version "/ttf-bitstream-vera-"
 138                                  version ".tar.bz2"))
 139              (sha256
 140               (base32
 141                "1p3qs51x5327gnk71yq8cvmxc6wgx79sqxfvxcv80cdvgggjfnyv"))))
 142     (build-system font-build-system)
 143     (home-page "http://www.gnome.org/fonts/")
 144     (synopsis "Bitstream Vera sans-serif typeface")
 145     (description "Vera is a sans-serif typeface from Bitstream, Inc.  This
 146 package provides the TrueType (TTF) files.")
 147     (license
 148      (license:fsdg-compatible
 149       "https://www.gnome.org/fonts/#Final_Bitstream_Vera_Fonts"
 150       "The Font Software may be sold as part of a larger software package but
 151 no copy of one or more of the Font Software typefaces may be sold by
 152 itself."))))
 153
 154 (define-public font-cantarell
 155   (package
 156     (name "font-abattis-cantarell")
 157     (version "0.0.25")
 158     (source (origin
 159               (method url-fetch)
 160               (uri (string-append "mirror://gnome/sources/cantarell-fonts/"
 161                                   (version-major+minor version)
 162                                   "/cantarell-fonts-" version ".tar.xz"))
 163               (sha256
 164                (base32
 165                 "0zvkd8cm1cg2919v1js9qmzwa02sjl7qajj3gcvgqvai1fm2i8hl"))))
 166     (build-system gnu-build-system)
 167     (home-page "https://wiki.gnome.org/Projects/CantarellFonts")
 168     (synopsis "Cantarell sans-serif typeface")
 169     (description "The Cantarell font family is a contemporary Humanist
 170 sans-serif designed for on-screen reading.  It is used by GNOME@tie{}3.")
 171     (license license:silofl1.1)))
 172
 173 (define-public font-gnu-freefont-ttf
 174   (package
 175     (name "font-gnu-freefont-ttf")
 176     (version "20120503")
 177     (source (origin
 178              (method url-fetch)
 179              (uri (string-append "mirror://gnu/freefont/freefont-src-"
 180                                  version ".tar.gz"))
 181              (sha256
 182               (base32
 183                "0yk58blhcd4hm7nyincmqq4jrzjjk82wif2zmk1l3y2m4vif4qhd"))))
 184     (build-system gnu-build-system)
 185     (arguments
 186      `(#:phases (modify-phases %standard-phases
 187                   (delete 'configure)
 188                   (replace 'install
 189                    (lambda _
 190                      (let ((doc-dir  (string-append %output "/share/doc/"
 191                                                     ,name "-" ,version))
 192                            (font-dir (string-append %output
 193                                                     "/share/fonts/truetype")))
 194                        (mkdir-p doc-dir)
 195                        (substitute* "Makefile"
 196                          (("\\$\\(TMPDIR\\)") doc-dir)
 197                          (("sfd/\\*.ttf") ""))
 198                        (system* "make" "ttftar")
 199                        (mkdir-p font-dir)
 200                        (for-each (lambda (file)
 201                                    (install-file file font-dir))
 202                                  (filter
 203                                    (lambda (file) (string-suffix? "ttf" file))
 204                                    (find-files "." "")))))))
 205        #:test-target "tests"))
 206     ;; replace python 3 with python 2
 207     ;; python 3 support commits aren't yet released in 20120503
 208     ;; so freefont needs python 2 support in fontforge
 209     (native-inputs `(("fontforge" ,(package (inherit fontforge)
 210                                      (inputs `(("python-2" ,python-2)
 211                                      ,@(package-inputs fontforge)))))))
 212     (home-page "https://www.gnu.org/software/freefont/")
 213     (synopsis "Unicode-encoded outline fonts")
 214     (description
 215      "The GNU Freefont project aims to provide a set of free outline
 216  (PostScript Type0, TrueType, OpenType...) fonts covering the ISO
 217 10646/Unicode UCS (Universal Character Set).")
 218     (license license:gpl3+)
 219     (properties '((upstream-name . "freefont")
 220                   (ftp-directory . "/gnu/freefont")))))
 221
 222 (define-public font-liberation
 223   (package
 224     (name "font-liberation")
 225     (version "2.00.1")
 226     (source (origin
 227               (method url-fetch)
 228               (uri (string-append "https://releases.pagure.org/"
 229                                   "liberation-fonts/liberation-fonts-ttf-"
 230                                   version ".tar.gz"))
 231               (sha256
 232                (base32
 233                 "010m4zfqan4w04b6bs9pm3gapn9hsb18bmwwgp2p6y6idj52g43q"))))
 234     (build-system font-build-system)
 235     (home-page "https://pagure.io/liberation-fonts/")
 236     (synopsis
 237      "Fonts compatible with Arial, Times New Roman, and Courier New")
 238     (description
 239      "The Liberation font family aims at metric compatibility with
 240 Arial, Times New Roman, and Courier New.
 241 There are three sets:
 242
 243 @enumerate
 244 @item Sans (a substitute for Arial, Albany, Helvetica, Nimbus Sans L, and
 245 Bitstream Vera Sans);
 246 @item Serif (a substitute for Times New Roman, Thorndale, Nimbus Roman, and
 247 Bitstream Vera Serif);
 248 @item Mono (a substitute for Courier New, Cumberland, Courier, Nimbus Mono L,
 249 and Bitstream Vera Sans Mono).
 250 @end enumerate
 251
 252 The Liberation Fonts are sponsored by Red Hat.")
 253     (license license:silofl1.1)))
 254
 255 (define-public font-linuxlibertine
 256   (package
 257     (name "font-linuxlibertine")
 258     (version "5.3.0")
 259     (source (origin
 260               (method url-fetch/tarbomb)
 261               (uri (string-append "mirror://sourceforge/linuxlibertine/"
 262                                   "linuxlibertine/" version
 263                                   "/LinLibertineSRC_" version "_2012_07_02.tgz"))
 264               (sha256
 265                (base32
 266                 "0x7cz6hvhpil1rh03rax9zsfzm54bh7r4bbrq8rz673gl9h47v0v"))))
 267     (build-system gnu-build-system)
 268     (arguments
 269      `(#:tests? #f ; there are no tests
 270        #:modules ((guix build utils)
 271                   (guix build gnu-build-system)
 272                   (srfi srfi-1)
 273                   (srfi srfi-26))
 274        #:phases
 275        (modify-phases %standard-phases
 276          (delete 'configure)
 277          (replace 'build
 278            (lambda _
 279              (let ((compile
 280                     (lambda (name ext)
 281                       (zero? (system*
 282                               "fontforge" "-lang=ff"
 283                               "-c" (string-append "Open('" name "');"
 284                                                   "Generate('"
 285                                                   (basename name "sfd") ext
 286                                                   "')"))))))
 287                (every (lambda (name)
 288                         (and (compile name "ttf")
 289                              (compile name "otf")))
 290                       (find-files "." "\\.sfd$")))))
 291          (replace 'install
 292            (lambda* (#:key outputs #:allow-other-keys)
 293              (let ((font-dir (string-append (assoc-ref outputs "out")
 294                                             "/share/fonts/truetype")))
 295                (mkdir-p font-dir)
 296                (for-each (cut install-file <> font-dir)
 297                          (find-files "." "\\.(otf|ttf)$"))
 298                #t))))))
 299     (native-inputs
 300      `(("fontforge" ,fontforge)))
 301     (home-page "http://www.linuxlibertine.org/")
 302     (synopsis "Serif and sans serif typefaces")
 303     (description "The Linux Libertine fonts is a set of typefaces containing
 304 both a Serif version (\"Linux Libertine\") and a Sans Serif (\"Linux
 305 Biolinum\") designed to be used together as an alternative for Times/Times New
 306 Roman and Helvetica/Arial.  The Serif typeface comes in two shapes and two
 307 weights, and with a Small Capitals version of the regular typeface.  Linux
 308 Biolinum is available in both Regular and Bold weights.")
 309     ;; The fonts are released under either of these licenses.
 310     (license (list license:gpl2+ license:silofl1.1))))
 311
 312 (define-public font-terminus
 313   (package
 314     (name "font-terminus")
 315     (version "4.40")
 316     (source
 317       (origin
 318         (method url-fetch)
 319         (uri (string-append
 320                "mirror://sourceforge/terminus-font/terminus-font-"
 321                version
 322                "/terminus-font-"
 323                version
 324                ".tar.gz"))
 325         (sha256
 326          (base32
 327           "0487cyx5h1f0crbny5sg73a22gmym5vk1i7646gy7hgiscj2rxb4"))))
 328     (build-system gnu-build-system)
 329     (native-inputs
 330      `(("pkg-config" ,pkg-config)
 331        ("perl" ,perl)
 332        ("bdftopcf" ,bdftopcf)
 333        ("font-util" ,font-util)
 334        ("mkfontdir" ,mkfontdir)))
 335     (arguments
 336      `(#:configure-flags (list
 337                           ;; install fonts into subdirectory of package output
 338                           ;; instead of font-util-?.?.?/share/fonts/X11
 339                           (string-append "--with-fontrootdir="
 340                                          %output "/share/fonts/X11"))
 341        #:tests? #f)) ;; No test target in tarball
 342     (home-page "http://terminus-font.sourceforge.net/")
 343     (synopsis "Simple bitmap programming font")
 344     (description "Terminus Font is a clean, fixed-width bitmap font, designed
 345 for long periods of working with computers (8 or more hours per day).")
 346     (license license:silofl1.1)))
 347
 348 (define-public font-adobe-source-han-sans
 349   (package
 350     (name "font-adobe-source-han-sans")
 351     (version "1.004")
 352     (source (origin
 353               (method url-fetch)
 354               (uri (string-append
 355                     "https://github.com/adobe-fonts/source-han-sans/archive/"
 356                     version "R.tar.gz"))
 357               (file-name (string-append "source-han-sans-" version "R.tar.gz"))
 358               (sha256
 359                (base32
 360                 "1ssx0fw90sy6mj8fv8fv4dgzszpqwbmwpjnlx16g4pvaqzdmybbz"))))
 361     (outputs '("out"                 ; OpenType/CFF Collection (OTC), 121 MiB.
 362                "cn" "jp" "kr" "tw")) ; Region-specific Subset OpenType/CFF.
 363     (build-system trivial-build-system)
 364     (arguments
 365      `(#:modules ((guix build utils))
 366        #:builder
 367        (begin
 368          (use-modules (guix build utils))
 369          (let ((tar  (string-append (assoc-ref %build-inputs
 370                                                "tar")
 371                                     "/bin/tar"))
 372                (PATH (string-append (assoc-ref %build-inputs
 373                                                "gzip")
 374                                     "/bin"))
 375                (install-opentype-fonts
 376                 (lambda (fonts-dir out)
 377                   (copy-recursively fonts-dir
 378                                     (string-append (assoc-ref %outputs out)
 379                                                    "/share/fonts/opentype")))))
 380            (setenv "PATH" PATH)
 381            (system* tar "xvf" (assoc-ref %build-inputs "source"))
 382            (chdir (string-append "source-han-sans-" ,version "R"))
 383            (install-opentype-fonts "OTC" "out")
 384            (install-opentype-fonts "SubsetOTF/CN" "cn")
 385            (install-opentype-fonts "SubsetOTF/JP" "jp")
 386            (install-opentype-fonts "SubsetOTF/KR" "kr")
 387            (install-opentype-fonts "SubsetOTF/TW" "tw")
 388            (for-each delete-file (find-files %output "\\.zip$"))))))
 389     (native-inputs
 390      `(("gzip" ,gzip)
 391        ("tar" ,tar)))
 392     (home-page "https://github.com/adobe-fonts/source-han-sans")
 393     (synopsis "Pan-CJK fonts")
 394     (description
 395      "Source Han Sans is a sans serif Pan-CJK font family that is offered in
 396 seven weights: ExtraLight, Light, Normal, Regular, Medium, Bold, and Heavy.
 397 And in several OpenType/CFF-based deployment configurations to accommodate
 398 various system requirements or limitations.  As the name suggests, Pan-CJK
 399 fonts are intended to support the characters necessary to render or display
 400 text in Simplified Chinese, Traditional Chinese, Japanese, and Korean.")
 401     (license license:silofl1.1)))
 402
 403 (define-public font-cns11643
 404   (package
 405     (name "font-cns11643")
 406     (version "98.1.20170405")
 407     (source (origin
 408               (method url-fetch)
 409               (uri "http://www.cns11643.gov.tw/AIDB/Open_Data.zip")
 410               (sha256
 411                (base32
 412                 "02kb3bwjrra0k2hlr2p8xswd2y0xs6j8d9vm6yrby734h02a40qf"))))
 413     (outputs '("out" "tw-kai" "tw-sung"))
 414     (build-system trivial-build-system)
 415     (native-inputs
 416      `(("unzip" ,unzip)))
 417     (arguments
 418      `(#:modules ((guix build utils))
 419        #:builder
 420        (begin
 421          (use-modules (guix build utils))
 422          (let* ((font-dir "/share/fonts/truetype/cns11643")
 423                 (out (string-append
 424                       (assoc-ref %outputs "out") font-dir))
 425                 (tw-kai (string-append
 426                          (assoc-ref %outputs "tw-kai") font-dir))
 427                 (tw-sung (string-append
 428                           (assoc-ref %outputs "tw-sung") font-dir))
 429                 (unzip (string-append
 430                         (assoc-ref %build-inputs "unzip") "/bin/unzip")))
 431            (system* unzip (assoc-ref %build-inputs "source"))
 432            (chdir "Open_Data/Fonts/")
 433            (install-file "TW-Kai-98_1.ttf" tw-kai)
 434            (install-file "TW-Sung-98_1.ttf" tw-sung)
 435            (install-file "TW-Kai-98_1.ttf" out)
 436            (install-file "TW-Kai-Ext-B-98_1.ttf" out)
 437            (install-file "TW-Kai-Plus-98_1.ttf" out)
 438            (install-file "TW-Sung-98_1.ttf" out)
 439            (install-file "TW-Sung-Ext-B-98_1.ttf" out)
 440            (install-file "TW-Sung-Plus-98_1.ttf" out)
 441            #t))))
 442     (home-page "http://www.cns11643.gov.tw/AIDB/welcome.do")
 443     (synopsis "CJK TrueType fonts, TW-Kai and TW-Sung")
 444     (description
 445      "@code{CNS 11643} character set (Chinese National Standard, or Chinese
 446 Standard Interchange Code) is the standard character set of the Republic of
 447 China (Taiwan) for Chinese Characters and other Unicode symbols.  Contained
 448 are six TrueType fonts based on two script styles, Regular script (Kai), and
 449 Sung/Ming script, each with three variants:
 450
 451 @itemize
 452 @item @code{CNS 11643} (@code{TW-Kai} and @code{TW-Sung}): Tens of thousands
 453 of CJK characters from frequency tables published by the Taiwanese
 454 Ministry of Education.  ISO 10646 and Unicode compatible encoding.
 455 @item @code{Big-5 Plus}: Several thousand frequently used CJK characters
 456 encoded in the user defined area of the Big-5 code.
 457 @item @code{Big-5 Extended}: A Big-5 character set based on the
 458 @code{Big-5 Plus} and @code{CNS 11643} character sets.
 459 @end itemize\n")
 460     (license (license:non-copyleft
 461               "http://data.gov.tw/license")))) ; CC-BY 4.0 compatible
 462
 463 (define-public font-cns11643-swjz
 464   (package
 465     (name "font-cns11643-swjz")
 466     (version "1")
 467     (source
 468      (origin
 469        (method url-fetch)
 470        (uri "https://www.moedict.tw/fonts/truetype/cns11643/ebas927.ttf")
 471        (sha256
 472         (base32
 473          "1qkljldbmb53zp1rcmpsb8rzy67rnsqcjxi549m9743ifk4isl78"))))
 474     (build-system trivial-build-system)
 475     (arguments
 476      `(#:modules ((guix build utils))
 477        #:builder
 478        (begin
 479          (use-modules (guix build utils))
 480          (let ((font-dir (string-append %output
 481                                         "/share/fonts/truetype/cns11643"))
 482                (source (assoc-ref %build-inputs "source")))
 483            (mkdir-p font-dir)
 484            (copy-file source
 485                       (string-append font-dir "/" "ebas927.ttf"))
 486            #t))))
 487     (home-page
 488      (string-append "http://www.cns11643.gov.tw/AIDB/download.do"
 489                     "?name=%E5%AD%97%E5%9E%8B%E4%B8%8B%E8%BC%89"))
 490     (synopsis "TrueType seal script font")
 491     (description
 492      "@code{Shuowen Jiezi} is a TrueType seal script font based on the ancient
 493 text of the same name published by the Executive Yuan of Taiwan.  6721 glyphs
 494 are included, at Unicode compatible code points corresponding to their modern
 495 variants.")
 496     ;; Original text only available in Chinese. More info at
 497     ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=26703#11
 498     (license (license:non-copyleft
 499               "http://www.cns11643.gov.tw/AIDB/copyright.do"))))
 500
 501 (define-public font-wqy-zenhei
 502   (package
 503     (name "font-wqy-zenhei")
 504     (version "0.9.45")
 505     (source (origin
 506               (method url-fetch)
 507               (uri (string-append
 508                     "mirror://sourceforge/wqy/wqy-zenhei/" version
 509                     "%20%28Fighting-state%20RC1%29/wqy-zenhei-"
 510                     version ".tar.gz"))
 511               (file-name (string-append "wqy-zenhei-" version ".tar.gz"))
 512               (sha256
 513                (base32
 514                 "1mkmxq8g2hjcglb3zajfqj20r4r88l78ymsp2xyl5yav8w3f7dz4"))))
 515     (build-system trivial-build-system)
 516     (arguments
 517      `(#:modules ((guix build utils))
 518        #:builder
 519        (begin
 520          (use-modules (guix build utils))
 521          (let ((PATH (string-append (assoc-ref %build-inputs "tar")  "/bin:"
 522                                     (assoc-ref %build-inputs "gzip") "/bin"))
 523                (font-dir (string-append (assoc-ref %outputs "out")
 524                                         "/share/fonts/wenquanyi/")))
 525            (setenv "PATH" PATH)
 526            (mkdir-p font-dir)
 527            (system* "tar" "xvf" (assoc-ref %build-inputs "source"))
 528            (chdir "wqy-zenhei")
 529            (install-file "wqy-zenhei.ttc" font-dir)))))
 530     (native-inputs
 531      `(("gzip" ,gzip)
 532        ("tar" ,tar)))
 533     (home-page "http://wenq.org/wqy2/")
 534     (synopsis "CJK font")
 535     (description
 536      "WenQuanYi Zen Hei is a Hei-Ti style (sans-serif type) Chinese outline
 537 font.  It is designed for general purpose text formatting and on-screen
 538 display of Chinese characters and symbols from many other languages.
 539 WenQuanYi Zen Hei provides a rather complete coverage of Chinese Hanzi glyphs,
 540 including both simplified and traditional forms.  The total glyph number in
 541 this font is over 35,000, including over 21,000 Chinese Hanzi.  This font has
 542 full coverage of the GBK (CP936) charset, CJK Unified Ideographs, as well as
 543 the code-points needed for zh_cn, zh_sg, zh_tw, zh_hk, zh_mo, ja (Japanese) and
 544 ko (Korean) locales for @code{fontconfig}.")
 545     ;; GPLv2 with font embedding exception
 546     (license license:gpl2)))
 547
 548 (define-public font-wqy-microhei
 549   (package
 550     (name "font-wqy-microhei")
 551     (version "0.2.0-beta")
 552     (source (origin
 553               (method url-fetch)
 554               (uri (string-append "mirror://sourceforge/wqy/wqy-microhei/"
 555                                   version "/wqy-microhei-" version ".tar.gz"))
 556               (sha256
 557                (base32
 558                 "0gi1yxqph8xx869ichpzzxvx6y50wda5hi77lrpacdma4f0aq0i8"))))
 559     (build-system trivial-build-system)
 560     (arguments
 561      `(#:modules ((guix build utils))
 562        #:builder
 563        (begin
 564          (use-modules (guix build utils))
 565          (let ((PATH (string-append (assoc-ref %build-inputs "tar")  "/bin:"
 566                                     (assoc-ref %build-inputs "gzip") "/bin"))
 567                (font-dir (string-append (assoc-ref %outputs "out")
 568                                         "/share/fonts/wenquanyi")))
 569            (mkdir-p font-dir)
 570            (setenv "PATH" PATH)
 571            (system* "tar" "xvf" (assoc-ref %build-inputs "source"))
 572            (install-file "wqy-microhei/wqy-microhei.ttc" font-dir)))))
 573     (native-inputs
 574      `(("gzip" ,gzip)
 575        ("tar" ,tar)))
 576     (home-page "http://wenq.org/wqy2/")
 577     (synopsis "CJK font")
 578     (description
 579      "WenQuanYi Micro Hei is a Sans-Serif style (also known as Hei, Gothic or
 580 Dotum among the Chinese/Japanese/Korean users) high quality CJK outline font.
 581 It was derived from \"Droid Sans Fallback\" and \"Droid Sans\" released by
 582 Google Inc.  This font contains all the unified CJK Han glyphs in the range of
 583 U+4E00-U+9FC3 defined in Unicode Standard 5.1, together with many other
 584 languages unicode blocks, including Latins, Extended Latins, Hanguls and
 585 Kanas.  The font file is extremely compact (~4M) compared with most known CJK
 586 fonts.")
 587     ;; This font is licensed under Apache2.0 or GPLv3 with font embedding
 588     ;; exceptions.
 589     (license license:gpl3)))
 590
 591 (define-public font-tex-gyre
 592   (package
 593     (name "font-tex-gyre")
 594     (version "2.005")
 595     (source
 596      (origin
 597        (method url-fetch)
 598        (uri (string-append "http://www.gust.org.pl/projects/e-foundry/"
 599                            "tex-gyre/whole/tg-" version "otf.zip"))
 600        (sha256
 601         (base32
 602          "0kph9l3g7jb2bpmxdbdg5zl56wacmnvdvsdn7is1gc750sqvsn31"))))
 603     (build-system trivial-build-system)
 604     (arguments
 605      `(#:modules ((guix build utils))
 606        #:builder
 607        (begin
 608          (use-modules (guix build utils))
 609
 610          (let ((unzip    (string-append (assoc-ref %build-inputs "unzip")
 611                                         "/bin/unzip"))
 612                (font-dir (string-append %output "/share/fonts/opentype")))
 613            (mkdir-p font-dir)
 614            (system* unzip
 615                     (assoc-ref %build-inputs "source")
 616                     "-d" font-dir)))))
 617     (native-inputs
 618      `(("unzip" ,unzip)))
 619     (home-page "http://www.gust.org.pl/projects/e-foundry/tex-gyre/")
 620     (synopsis "Remake of Ghostscript fonts")
 621     (description "The TeX Gyre collection of fonts is the result of an
 622 extensive remake and extension of the freely available base PostScript fonts
 623 distributed with Ghostscript version 4.00.  The collection contains the
 624 following fonts in the OpenType format: Adventor, Bonum, Chorus, Cursor,
 625 Heros, Pagella, Schola, Termes.")
 626     (license license:gfl1.0)))
 627
 628 (define-public font-anonymous-pro
 629   (package
 630     (name "font-anonymous-pro")
 631     (version "1.002")
 632     (source (origin
 633               (method url-fetch)
 634               (uri (string-append
 635                     "http://www.marksimonson.com/assets/content/fonts/"
 636                     "AnonymousPro-" version ".zip"))
 637               (sha256
 638                (base32
 639                 "1asj6lykvxh46czbal7ymy2k861zlcdqpz8x3s5bbpqwlm3mhrl6"))))
 640     (build-system trivial-build-system)
 641     (arguments
 642      `(#:modules ((guix build utils))
 643        #:builder
 644        (begin
 645          (use-modules (guix build utils))
 646          (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
 647                                      "/bin/unzip"))
 648                (font-dir (string-append %output "/share/fonts/truetype"))
 649                (doc-dir  (string-append %output "/share/doc/" ,name)))
 650            (system* unzip (assoc-ref %build-inputs "source"))
 651            (mkdir-p font-dir)
 652            (mkdir-p doc-dir)
 653            (chdir (string-append "AnonymousPro-" ,version ".001"))
 654            (for-each (lambda (ttf)
 655                        (install-file ttf font-dir))
 656                      (find-files "." "\\.ttf$"))
 657            (for-each (lambda (doc)
 658                        (install-file doc doc-dir))
 659                      (find-files "." "\\.txt$"))))))
 660     (native-inputs
 661      `(("unzip" ,unzip)))
 662     (home-page "http://www.marksimonson.com/fonts/view/anonymous-pro")
 663     (synopsis "Fixed-width fonts designed with coding in mind")
 664     (description "Anonymous Pro is a family of four fixed-width fonts designed
 665 with coding in mind.  Anonymous Pro features an international, Unicode-based
 666 character set, with support for most Western and Central European Latin-based
 667 languages, plus Greek and Cyrillic.")
 668     (license license:silofl1.1)))
 669
 670 (define-public font-gnu-unifont
 671   (package
 672     (name "font-gnu-unifont")
 673     (version "9.0.06")
 674     (source (origin
 675               (method url-fetch)
 676               (uri (string-append
 677                     "mirror://gnu/unifont/unifont-" version "/unifont-"
 678                     version ".tar.gz"))
 679               (sha256
 680                (base32
 681                 "0ybyraxi8pngibazfq4zlsqmg8kn5xlhvaiwnxb11znhfi61vi87"))))
 682     (build-system gnu-build-system)
 683     (outputs '("out" ; TrueType version
 684                "pcf" ; PCF (bitmap) version
 685                "psf" ; PSF (console) version
 686                "bin" ; Utilities to manipulate '.hex' format
 687                ))
 688     (arguments
 689      '(#:parallel-build? #f ; parallel build fails
 690        #:tests? #f          ; no check target
 691        #:phases
 692        (modify-phases %standard-phases
 693          (replace
 694           'configure
 695           (lambda _ (setenv "CC" "gcc") #t))
 696          (replace
 697           'install
 698           (lambda* (#:key outputs #:allow-other-keys)
 699             (let* ((ttf (string-append (assoc-ref outputs "out")
 700                                        "/share/fonts/truetype"))
 701                    (pcf (string-append (assoc-ref outputs "pcf")
 702                                        "/share/fonts/misc"))
 703                    (psf (string-append (assoc-ref outputs "psf")
 704                                        "/share/consolefonts"))
 705                    (bin (assoc-ref outputs "bin")))
 706               (system* "make"
 707                        (string-append "PREFIX=" bin)
 708                        (string-append "TTFDEST=" ttf)
 709                        (string-append "PCFDEST=" pcf)
 710                        (string-append "CONSOLEDEST=" psf)
 711                        "install")
 712               ;; Move Texinfo file to the right place.
 713               (mkdir (string-append bin "/share/info"))
 714               (rename-file (string-append bin "/share/unifont/unifont.info.gz")
 715                            (string-append bin "/share/info/unifont.info.gz"))
 716               #t))))))
 717     (inputs
 718      `(("perl" ,perl))) ; for utilities
 719     (synopsis
 720      "Large bitmap font covering Unicode's Basic Multilingual Plane")
 721     (description
 722      "GNU Unifont is a bitmap font covering essentially all of
 723 Unicode's Basic Multilingual Plane.  The package also includes
 724 utilities to ease adding new glyphs to the font.")
 725     (home-page "http://unifoundry.com/unifont.html")
 726     (license license:gpl2+)))
 727
 728 (define-public font-google-noto
 729   (package
 730     (name "font-google-noto")
 731     (version "20150929")
 732     (source (origin
 733               (method url-fetch)
 734               (uri (string-append "https://noto-website-2.storage.googleapis.com/"
 735                                   "pkgs/Noto-hinted.zip"))
 736               (sha256
 737                (base32
 738                 "13jhpqzhsqhyby8n0ksqg155a3jyaif3nzj9anzbq8s2gn1xjyd9"))))
 739     (build-system trivial-build-system)
 740     (arguments
 741      `(#:modules ((guix build utils))
 742        #:builder (begin
 743                    (use-modules (guix build utils)
 744                                 (srfi srfi-26))
 745
 746                    (let ((PATH     (string-append (assoc-ref %build-inputs
 747                                                              "unzip")
 748                                                   "/bin"))
 749                          (font-dir (string-append %output
 750                                                   "/share/fonts/truetype")))
 751                      (setenv "PATH" PATH)
 752                      (system* "unzip" (assoc-ref %build-inputs "source"))
 753
 754                      (mkdir-p font-dir)
 755                      (for-each (lambda (ttf)
 756                                  (install-file ttf font-dir))
 757                                (find-files "." "\\.ttf$"))
 758                      (for-each (lambda (otf)
 759                                  (install-file otf font-dir))
 760                                (find-files "." "\\.otf$"))))))
 761     (native-inputs `(("unzip" ,unzip)))
 762     (home-page "https://www.google.com/get/noto/")
 763     (synopsis "Fonts to cover all languages")
 764     (description "Google Noto Fonts is a family of fonts designed to support
 765 all languages with a consistent look and aesthetic.  Its goal is to properly
 766 display all Unicode symbols.")
 767     (license license:silofl1.1)))
 768
 769 (define-public font-google-roboto
 770   (package
 771     (name "font-google-roboto")
 772     (version "2.136")
 773     (source
 774      (origin
 775        (method url-fetch)
 776        (uri (string-append "https://github.com/google/roboto/releases/download/"
 777                            "v" version "/roboto-hinted.zip"))
 778        (file-name (string-append name "-" version ".zip"))
 779        (sha256
 780         (base32
 781          "0spscx08fad7i8qs7icns96iwcapniq8lwwqqvbf7bamvs8qfln4"))))
 782     (native-inputs `(("unzip" ,unzip)))
 783     (build-system trivial-build-system)
 784     (arguments
 785      `(#:modules ((guix build utils))
 786        #:builder (begin
 787                    (use-modules (guix build utils)
 788                                 (srfi srfi-26))
 789
 790                    (let ((PATH (string-append (assoc-ref %build-inputs
 791                                                          "unzip")
 792                                               "/bin"))
 793                          (font-dir (string-append %output
 794                                                   "/share/fonts/truetype")))
 795                      (setenv "PATH" PATH)
 796                      (system* "unzip" (assoc-ref %build-inputs "source"))
 797
 798                      (mkdir-p font-dir)
 799                      (chdir "roboto-hinted")
 800                      (for-each (lambda (ttf)
 801                                  (install-file ttf font-dir))
 802                                (find-files "." "\\.ttf$"))))))
 803     (home-page "https://github.com/google/roboto")
 804     (synopsis "The Roboto family of fonts")
 805     (description
 806      "Roboto is Google’s signature family of fonts, the default font on Android
 807 and Chrome OS, and the recommended font for the
 808 visual language \"Material Design\".")
 809     (license license:asl2.0)))
 810
 811 (define-public font-un
 812   (package
 813     (name "font-un")
 814     (version "1.0.2-080608")
 815     (source (origin
 816               (method url-fetch)
 817               (uri (string-append
 818                     "https://kldp.net/unfonts/release/2607-"
 819                     "un-fonts-core-" version ".tar.gz"))
 820               (file-name (string-append name "-" version ".tar.gz"))
 821               (sha256
 822                (base32
 823                 "13liaz2pmww3aqabm55la5npd08m1skh334ky7qfidxaz5s742iv"))))
 824     (build-system trivial-build-system)
 825     (arguments
 826      `(#:modules ((guix build utils))
 827        #:builder
 828        (begin
 829          (use-modules (guix build utils))
 830
 831          (let ((tar      (string-append (assoc-ref %build-inputs "tar")
 832                                         "/bin/tar"))
 833                (PATH     (string-append (assoc-ref %build-inputs "gzip")
 834                                         "/bin"))
 835                (font-dir (string-append %output "/share/fonts/truetype"))
 836                (doc-dir  (string-append %output "/share/doc/" ,name)))
 837            (setenv "PATH" PATH)
 838            (system* tar "xvf" (assoc-ref %build-inputs "source"))
 839            (mkdir-p font-dir)
 840            (mkdir-p doc-dir)
 841            (chdir (string-append "un-fonts"))
 842            (for-each (lambda (ttf)
 843                        (install-file ttf font-dir))
 844                      (find-files "." "\\.ttf$"))
 845            (for-each (lambda (doc)
 846                        (install-file doc doc-dir))
 847                      '("COPYING" "README"))))))
 848     (native-inputs
 849      `(("tar" ,tar)
 850        ("gzip" ,gzip)))
 851     (home-page "https://kldp.net/projects/unfonts/")
 852     (synopsis "Collection of Korean fonts")
 853     (description
 854      "Un-fonts is a family of mainly Korean fonts.
 855 It contains the following fonts and styles:
 856
 857 @enumerate
 858 @item UnBatang, UnBatangBold: serif;
 859 @item UnDotum, UnDotumBold: sans-serif;
 860 @item UnGraphic, UnGraphicBold: sans-serif style;
 861 @item UnDinaru, UnDinaruBold, UnDinaruLight;
 862 @item UnPilgi, UnPilgiBold: script;
 863 @item UnGungseo: cursive, brush-stroke.
 864 @end enumerate\n")
 865     (license license:gpl2+)))
 866
 867 (define-public font-fantasque-sans
 868   (package
 869     (name "font-fantasque-sans")
 870     (version "1.7.1")
 871     (source
 872      (origin
 873        (method url-fetch)
 874        (uri (string-append "https://github.com/belluzj/fantasque-sans/"
 875                            "archive/v" version ".tar.gz"))
 876        (file-name (string-append name "-" version ".tar.gz"))
 877        (sha256
 878         (base32
 879          "07fpy53k2x2nz5q61swkab6cfk9gw2kc4x4brsj6zjgbm16fap85"))))
 880     (build-system gnu-build-system)
 881     (native-inputs
 882      `(("ttfautohint" ,ttfautohint)
 883        ("woff-tools" ,woff-tools)
 884        ("fontforge" ,fontforge)
 885        ("woff2" ,woff2)
 886        ("ttf2eot" ,ttf2eot)))
 887     (arguments
 888      `(#:tests? #f                 ;test target intended for visual inspection
 889        #:phases (modify-phases %standard-phases
 890                   (delete 'configure)   ;no configuration
 891                   (replace 'install
 892                     ;; 'make install' wants to install to ~/.fonts, install to
 893                     ;; output instead.
 894                     (lambda* (#:key outputs #:allow-other-keys)
 895                       (let* ((out (assoc-ref outputs "out"))
 896                              (font-dir (string-append out "/share/fonts"))
 897                              (truetype-dir (string-append font-dir "/truetype"))
 898                              (opentype-dir (string-append font-dir "/opentype"))
 899                              (webfonts-dir (string-append font-dir "/webfonts")))
 900                         (copy-recursively "OTF" opentype-dir)
 901                         (for-each (lambda (f) (install-file f truetype-dir))
 902                                   (find-files "." "\\.ttf$"))
 903                         (copy-recursively "Webfonts" webfonts-dir)
 904                         #t))))))
 905     (synopsis "Font family with a monospaced variant for programmers")
 906     (description
 907      "Fantasque Sans Mono is a programming font designed with functionality in
 908 mind.  The font includes a bold version and a good italic version with new
 909 glyph designs, not just an added slant.")
 910     (home-page "https://fontlibrary.org/en/font/fantasque-sans-mono")
 911     (license license:silofl1.1)))
 912
 913 (define-public font-hack
 914   (package
 915     (name "font-hack")
 916     (version "2.020")
 917     (source (origin
 918               (method url-fetch)
 919               (uri (string-append
 920                     "https://github.com/chrissimpkins/Hack/releases/download/v"
 921                     version "/Hack-v"
 922                     (string-replace-substring version "." "_")
 923                     "-ttf.zip"))
 924               (sha256
 925                (base32
 926                 "16kkmc3psckw1b7k07ccn1gi5ymhlg9djh43nqjzg065g6p6d184"))))
 927     (build-system trivial-build-system)
 928     (arguments
 929      `(#:modules ((guix build utils))
 930        #:builder (begin
 931                    (use-modules (guix build utils)
 932                                 (srfi srfi-26))
 933
 934                    (let ((PATH     (string-append (assoc-ref %build-inputs
 935                                                              "unzip")
 936                                                   "/bin"))
 937                          (font-dir (string-append %output
 938                                                   "/share/fonts/truetype")))
 939                      (setenv "PATH" PATH)
 940                      (system* "unzip" (assoc-ref %build-inputs "source"))
 941
 942                      (mkdir-p font-dir)
 943                      (for-each (lambda (ttf)
 944                                  (install-file ttf font-dir))
 945                                (find-files "." "\\.ttf$"))))))
 946     (native-inputs
 947      `(("source" ,source)
 948        ("unzip" ,unzip)))
 949     (home-page "https://sourcefoundry.org/hack/")
 950     (synopsis "Typeface designed for source code")
 951     (description
 952      "Hack is designed to be a workhorse typeface for code.  It expands upon
 953 the Bitstream Vera & DejaVu projects, provides 1561 glyphs, and includes
 954 Powerline support.")
 955     (license (license:x11-style
 956               "https://github.com/chrissimpkins/Hack/blob/master/LICENSE.md"
 957               "Hack Open Font License v2.0"))))
 958
 959 (define-public font-adobe-source-code-pro
 960   (package
 961     (name "font-adobe-source-code-pro")
 962     (version "2.030R-ro-1.050R-it")
 963     (source (origin
 964               (method url-fetch)
 965               (uri (string-append
 966                     "https://github.com/adobe-fonts/source-code-pro/archive/"
 967                     (regexp-substitute/global
 968                      ;; The upstream tag uses "/" between the roman and italic
 969                      ;; versions, so substitute our "-" separator here.
 970                      #f "R-ro-" version 'pre "R-ro/" 'post) ".tar.gz"))
 971               (file-name (string-append name "-" version ".tar.gz"))
 972               (sha256
 973                (base32
 974                 "0arhhsf3i7ss39ykn73d1j8k4n8vx7115xph6jwkd970p1cxvr54"))))
 975     (build-system trivial-build-system)
 976     (arguments
 977      `(#:modules ((guix build utils))
 978        #:builder
 979        (begin
 980          (use-modules (guix build utils))
 981          (let ((tar  (string-append (assoc-ref %build-inputs "tar")
 982                                     "/bin/tar"))
 983                (PATH (string-append (assoc-ref %build-inputs "gzip")
 984                                     "/bin"))
 985                (font-dir (string-append %output "/share/fonts/opentype")))
 986            (setenv "PATH" PATH)
 987            (mkdir-p font-dir)
 988            (zero? (system* tar "-C" font-dir "--strip-components=2"
 989                            "-xvf" (assoc-ref %build-inputs "source")
 990                            (string-append "source-code-pro-"
 991                                           ,version "/OTF")))))))
 992     (native-inputs
 993      `(("gzip" ,gzip)
 994        ("tar" ,tar)))
 995     (home-page "https://github.com/adobe-fonts/source-code-pro")
 996     (synopsis
 997      "Monospaced font family for user interface and coding environments")
 998     (description
 999      "Source Code Pro is a set of monospaced OpenType fonts that have been
1000 designed to work well in user interface environments.")
1001     (license license:silofl1.1)))
1002
1003 (define-public font-fira-mono
1004   (package
1005     (name "font-fira-mono")
1006     (version "3.206")
1007     (source (origin
1008               (method url-fetch)
1009               (uri (string-append "https://carrois.com/downloads/fira_mono_3_2/"
1010                                   "FiraMonoFonts"
1011                                   (string-replace-substring version "." "")
1012                                   ".zip"))
1013               (sha256
1014                (base32
1015                 "1z65x0dw5dq6rs6p9wyfrir50rlh95vgzsxr8jcd40nqazw4jhpi"))))
1016     (build-system trivial-build-system)
1017     (arguments
1018      `(#:modules ((guix build utils))
1019        #:builder
1020        (begin
1021          (use-modules (guix build utils))
1022          (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
1023                                      "/bin/unzip"))
1024                (font-dir (string-append %output "/share/fonts/opentype")))
1025            (mkdir-p font-dir)
1026            (system* unzip
1027                     "-j"
1028                     (assoc-ref %build-inputs "source")
1029                     "*.otf"
1030                     "-d" font-dir)))))
1031     (native-inputs
1032      `(("unzip" ,unzip)))
1033     (home-page "http://mozilla.github.io/Fira/")
1034     (synopsis "Mozilla's monospace font")
1035     (description "This is the typeface used by Mozilla in Firefox OS.")
1036     (license license:silofl1.1)))
1037
1038 (define-public font-awesome
1039   (package
1040    (name "font-awesome")
1041    (version "4.7.0")
1042    (source (origin
1043             (method url-fetch)
1044             (uri (string-append "http://fontawesome.io/assets/"
1045                                 name "-" version ".zip"))
1046             (sha256
1047              (base32
1048               "1m1rfwm4sjkv10j3xd2dhwk286a5912b2zgvc692cmxi5gxs68jf"))))
1049    (build-system font-build-system)
1050    (home-page "http://fontawesome.io")
1051    (synopsis "Font that contains a rich iconset")
1052    (description
1053     "Font Awesome is a full suite of pictographic icons for easy scalable
1054 vector graphics.")
1055    (license license:silofl1.1)))
1056
1057 (define-public font-tamzen
1058   (package
1059     (name "font-tamzen")
1060     (version "1.11.4")
1061     (source
1062      (origin
1063        (method url-fetch)
1064        (uri (string-append "https://github.com/sunaku/tamzen-font/archive/"
1065                            "Tamzen-" version ".tar.gz"))
1066        (file-name (string-append name "-" version ".tar.gz"))
1067        (sha256
1068         (base32
1069          "1ryd7gp6qiwaqw73jqbmh4kwlriyd8xykh4j7z90z8xp9fm7lrys"))))
1070     (build-system trivial-build-system)
1071     (arguments
1072      `(#:modules ((guix build utils))
1073        #:builder
1074        (begin
1075          (use-modules (guix build utils))
1076
1077          (let ((tar      (string-append (assoc-ref %build-inputs "tar")
1078                                         "/bin/tar"))
1079                (PATH     (string-append (assoc-ref %build-inputs "gzip")
1080                                         "/bin"))
1081                (font-dir (string-append %output "/share/fonts/misc"))
1082                (psf-dir (string-append %output "/share/kbd/consolefonts"))
1083                (src-pcf-dir (string-append "tamzen-font-Tamzen-"
1084                                             ,version "/pcf")))
1085            (setenv "PATH" PATH)
1086            (system* tar "xvf" (assoc-ref %build-inputs "source"))
1087            (mkdir-p font-dir)
1088            (mkdir-p psf-dir)
1089            (chdir src-pcf-dir)
1090            (for-each (lambda (pcf)
1091                        (install-file pcf font-dir))
1092                      (find-files "." "\\.pcf$"))
1093            (chdir "../psf")
1094            (for-each (lambda (psf)
1095                        (install-file psf psf-dir))
1096                      (find-files "." "\\.psf$"))
1097            #t))))
1098     (native-inputs
1099      `(("tar" ,tar)
1100        ("gzip" ,gzip)))
1101     (home-page "https://github.com/sunaku/tamzen-font")
1102     (synopsis "Monospaced bitmap font for console and X11")
1103     (description
1104      "Tamzen is a fork of the @code{Tamsyn} font.  It is programatically forked
1105 from @code{Tamsyn} version 1.11, backporting glyphs from older versions while
1106 deleting deliberately empty glyphs (which are marked as unimplemented) to
1107 allow secondary/fallback fonts to provide real glyphs at those codepoints.
1108
1109 The @code{TamzenForPowerline} fonts provide additional @code{Powerline} symbols,
1110 which are programatically injected with @code{bitmap-font-patcher} and
1111 later hand-tweaked with the gbdfed(1) editor:
1112
1113 @enumerate
1114 @item all icons are expanded to occupy the maximum available space
1115 @item the branch of the fork icon ( U+E0A0) was made larger than the trunk
1116 @item for the newline icon ( U+E0A1), the @emph{N} was made larger at the bottom
1117 @item the keyhole in the padlock icon ( U+E0A2) was replaced with @emph{//} lines.
1118 @end enumerate\n")
1119     (license (license:non-copyleft "file://LICENSE"))))
1120
1121 (define-public font-comic-neue
1122   (package
1123    (name "font-comic-neue")
1124    (version "2.3")
1125    (source (origin
1126             (method url-fetch)
1127             (uri (string-append
1128                   "http://www.comicneue.com/comic-neue-" version ".zip"))
1129             (sha256
1130              (base32
1131               "1695hkpd8kqnr2a88p8xs496slgzxjjkzpa9aa33ml3pnh7519zk"))))
1132    (build-system trivial-build-system)
1133    (arguments
1134     `(#:modules ((guix build utils))
1135       #:builder (begin
1136                   (use-modules (guix build utils))
1137                   (let ((font-dir (string-append %output
1138                                                  "/share/fonts/truetype"))
1139                         (source (assoc-ref %build-inputs "source"))
1140                         (unzip  (string-append (assoc-ref %build-inputs "unzip")
1141                                                "/bin/unzip")))
1142                     (mkdir-p font-dir)
1143                     (system* unzip source)
1144                     (with-directory-excursion
1145                      (string-append "Web")
1146                      (for-each (lambda (ttf)
1147                                  (install-file ttf font-dir))
1148                                (find-files "." "\\.ttf$")))))))
1149    (native-inputs `(("unzip" ,unzip)))
1150    (home-page "http://www.comicneue.com/")
1151    (synopsis "Font that fixes the shortcomings of Comic Sans")
1152    (description
1153     "Comic Neue is a font that attempts to create a respectable casual
1154 typeface, by mimicking Comic Sans while fixing its most obvious shortcomings.")
1155    (license license:silofl1.1)))
1156
1157 (define-public font-iosevka
1158   (package
1159     (name "font-iosevka")
1160     (version "1.12.5")
1161     (source (origin
1162               (method url-fetch/zipbomb)
1163               (uri (string-append
1164                     "https://github.com/be5invis/Iosevka/releases/download/v"
1165                     version "/iosevka-pack-" version ".zip"))
1166               (sha256
1167                (base32
1168                 "0s3g6mk0ngwsrw9h9dqinb50cd9i8zhqdcmmh93fhyf4d87yfwyi"))))
1169     (build-system font-build-system)
1170     (home-page "https://be5invis.github.io/Iosevka/")
1171     (synopsis "Coders' typeface, built from code")
1172     (description
1173      "Iosevka is a slender monospace sans-serif or slab-serif typeface inspired
1174 by Pragmata Pro, M+, and PF DIN Mono, designed to be the ideal font for
1175 programming.  Iosevka is completely generated from its source code.")
1176     (license (list license:silofl1.1 ; build artifacts (i.e. the fonts)
1177                    license:bsd-3)))) ; supporting code
1178
1179 (define-public font-go
1180   (let ((commit "f03a046406d4d7fbfd4ed29f554da8f6114049fc")
1181         (revision "1"))
1182     (package
1183       (name "font-go")
1184       (version (string-append "20170330-" revision "." (string-take commit 7)))
1185       (source (origin
1186                 (file-name (string-append "go-image-" version "-checkout"))
1187                 (method git-fetch)
1188                 (uri (git-reference
1189                       (url "https://go.googlesource.com/image")
1190                       (commit commit)))
1191                 (sha256
1192                  (base32
1193                   "1aq6mnjayks55gd9ahavk6jfydlq5lm4xm0xk4pd5sqa74p5p74d"))))
1194       (build-system font-build-system)
1195       (arguments
1196        `(#:phases
1197          (modify-phases %standard-phases
1198            (add-before 'install 'chdir
1199              (lambda _
1200                (chdir "font/gofont/ttfs")
1201                #t)))))
1202       (home-page "https://blog.golang.org/go-fonts")
1203       (synopsis "The Go font family")
1204       (description
1205        "The Go font family is a set of WGL4 TrueType fonts from the Bigelow &
1206 Holmes type foundry, released under the same license as the Go programming
1207 language.  It includes a set of proportional, sans-serif fonts, and a set of
1208 monospace, slab-serif fonts.")
1209       (license (package-license go-1.4)))))
1210
1211 (define-public font-google-material-design-icons
1212   (package
1213    (name "font-google-material-design-icons")
1214    (version "3.0.1")
1215    (source (origin
1216             (method url-fetch)
1217             (uri (string-append
1218                    "https://github.com/google/material-design-icons/archive/"
1219                     version ".tar.gz"))
1220             (sha256
1221              (base32
1222               "183n0qv3q8w6n27libarq1fhc4mqv2d3sasbfmbn7x9r5pw9c6ga"))
1223             (file-name (string-append name "-" version ".tar.gz"))))
1224    (build-system trivial-build-system)
1225    (native-inputs
1226     `(("tar" ,tar)
1227       ("gzip" ,gzip)))
1228    (arguments
1229     `(#:modules ((guix build utils))
1230       #:builder (begin
1231                   (use-modules (guix build utils))
1232                   (let* ((font-dir (string-append %output
1233                                                   "/share/fonts/truetype"))
1234                          (source (assoc-ref %build-inputs "source"))
1235                          (font-filename "MaterialIcons-Regular.ttf")
1236                          (src-ttf-file (string-append "material-design-icons-"
1237                                                       ,version
1238                                                       "/iconfont/"
1239                                                       font-filename))
1240                          (dest-ttf-file (string-append font-dir font-filename))
1241                          (gzip (assoc-ref %build-inputs "gzip"))
1242                          (tar (assoc-ref %build-inputs "tar")))
1243                     (setenv "PATH" (string-append gzip "/bin:"
1244                                                   tar "/bin:"))
1245                     (system* "tar" "xf" source)
1246                     (mkdir-p font-dir)
1247                     (copy-file src-ttf-file dest-ttf-file)))))
1248    (home-page "http://google.github.io/material-design-icons")
1249    (synopsis "Icon font of Google Material Design icons")
1250    (description
1251     "Material design system icons are simple, modern, friendly, and sometimes
1252 quirky.  Each icon is created using our design guidelines to depict in simple
1253 and minimal forms the universal concepts used commonly throughout a UI.
1254 Ensuring readability and clarity at both large and small sizes, these icons
1255 have been optimized for beautiful display on all common platforms and display
1256 resolutions.")
1257    (license license:asl2.0)))