gnu/packages/fonts.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014, 2015, 2016, 2018 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, 2018 Nils Gillmann <ng0@n0.is>
  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, 2017, 2018 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, 2018, 2019 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 ;;; Copyright © 2017, 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
  23 ;;; Copyright © 2017 Mohammed Sadiq <sadiq@sadiqpk.org>
  24 ;;; Copyright © 2018 Charlie Ritter <chewzerita@posteo.net>
  25 ;;; Copyright © 2018 Gabriel Hondet <gabrielhondet@gmail.com>
  26 ;;; Copyright © 2019 Jens Mølgaard <jens@zete.tk>
  27 ;;;
  28 ;;; This file is part of GNU Guix.
  29 ;;;
  30 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  31 ;;; under the terms of the GNU General Public License as published by
  32 ;;; the Free Software Foundation; either version 3 of the License, or (at
  33 ;;; your option) any later version.
  34 ;;;
  35 ;;; GNU Guix is distributed in the hope that it will be useful, but
  36 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  37 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  38 ;;; GNU General Public License for more details.
  39 ;;;
  40 ;;; You should have received a copy of the GNU General Public License
  41 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  42
  43 (define-module (gnu packages fonts)
  44   #:use-module (ice-9 regex)
  45   #:use-module (guix utils)
  46   #:use-module ((guix licenses) #:prefix license:)
  47   #:use-module (guix packages)
  48   #:use-module (guix download)
  49   #:use-module (guix git-download)
  50   #:use-module (guix build-system font)
  51   #:use-module (guix build-system gnu)
  52   #:use-module (guix build-system trivial)
  53   #:use-module (gnu packages base)
  54   #:use-module (gnu packages compression)
  55   #:use-module (gnu packages fontutils)
  56   #:use-module (gnu packages perl)
  57   #:use-module (gnu packages pkg-config)
  58   #:use-module (gnu packages python)
  59   #:use-module (gnu packages xorg))
  60
  61 (define-public font-ibm-plex
  62   (package
  63     (name "font-ibm-plex")
  64     (version "1.0.1")
  65     (source (origin
  66               (method url-fetch)
  67               (uri (string-append
  68                     "https://github.com/IBM/plex/releases/download/"
  69                     "v" version "/OpenType.zip"))
  70               (sha256
  71                (base32
  72                 "0nzxw9z6waixslam248yr26ci3fbk83c7jf6m90hncnaj6zxx795"))))
  73     (build-system font-build-system)
  74     (home-page "https://github.com/IBM/plex")
  75     (synopsis "IBM Plex typeface")
  76     (description "This package provides the Plex font family.  It comes in a
  77 Sans, Serif, Mono and Sans Condensed, all with roman and true italics.  The
  78 fonts have been designed to work well in user interface (UI) environments as
  79 well as other mediums.")
  80     (license license:silofl1.1)))
  81
  82 (define-public font-inconsolata
  83   (package
  84     (name "font-inconsolata")
  85     (version "0.80")
  86     (source (origin
  87               (method url-fetch)
  88               (uri "http://www.levien.com/type/myfonts/Inconsolata.otf")
  89               (sha256
  90                (base32
  91                 "06js6znbcf7swn8y3b8ki416bz96ay7d3yvddqnvi88lqhbfcq8m"))))
  92     (build-system font-build-system)
  93     (home-page "http://levien.com/type/myfonts/inconsolata.html")
  94     (synopsis "Monospace font")
  95     (description "A monospace font, designed for code listings and the like,
  96 in print.  With attention to detail for high resolution rendering.")
  97     (license license:silofl1.1)))
  98
  99 (define-public font-ubuntu
 100   (package
 101     (name "font-ubuntu")
 102     (version "0.83")
 103     (source (origin
 104               (method git-fetch)
 105               (uri (git-reference
 106                     (url "https://salsa.debian.org/fonts-team/fonts-ubuntu")
 107                     (commit (string-append "upstream/" version))))
 108               (file-name (git-file-name name version))
 109               (sha256
 110                (base32
 111                 "1d2xrjpxy70f3nsgqiggwv6pj06qglf5vj2847pqx60w3ygi903g"))))
 112     (build-system font-build-system)
 113     (home-page "http://font.ubuntu.com/")
 114     (synopsis "The Ubuntu Font Family")
 115     (description "The Ubuntu Font Family is a unique, custom designed font
 116 that has a very distinctive look and feel.  This package provides the
 117 TrueType (TTF) files.")
 118     (license
 119      (license:non-copyleft
 120       "http://font.ubuntu.com/ufl/ubuntu-font-licence-1.0.txt"
 121       "Ubuntu Font License v1.0"))))
 122
 123 (define-public font-dejavu
 124   (package
 125     (name "font-dejavu")
 126     (version "2.37")
 127     (source (origin
 128              (method url-fetch)
 129              (uri (string-append "mirror://sourceforge/dejavu/dejavu/"
 130                                  version "/dejavu-fonts-ttf-"
 131                                  version ".tar.bz2"))
 132              (sha256
 133               (base32
 134                "1mqpds24wfs5cmfhj57fsfs07mji2z8812i5c4pi5pbi738s977s"))))
 135     (build-system font-build-system)
 136     (arguments
 137      `(#:phases
 138        (modify-phases %standard-phases
 139          (add-after 'install 'install-conf
 140            (lambda* (#:key outputs #:allow-other-keys)
 141              (let ((conf-dir (string-append (assoc-ref outputs "out")
 142                                             "/share/fontconfig/conf.avail")))
 143                (copy-recursively "fontconfig" conf-dir)
 144                #t))))))
 145     (home-page "https://dejavu-fonts.github.io/")
 146     (synopsis "Vera font family derivate with additional characters")
 147     (description "DejaVu provides an expanded version of the Vera font family
 148 aiming for quality and broader Unicode coverage while retaining the original
 149 Vera style.  DejaVu currently works towards conformance to the Multilingual
 150 European Standards (MES-1 and MES-2) for Unicode coverage.  The DejaVu fonts
 151 provide serif, sans and monospaced variants.")
 152     (license
 153      (license:x11-style
 154       "http://dejavu-fonts.org/"))))
 155
 156 (define-public font-bitstream-vera
 157   (package
 158     (name "font-bitstream-vera")
 159     (version "1.10")
 160     (source (origin
 161              (method url-fetch)
 162              (uri (string-append "mirror://gnome/sources/ttf-bitstream-vera/"
 163                                  version "/ttf-bitstream-vera-"
 164                                  version ".tar.bz2"))
 165              (sha256
 166               (base32
 167                "1p3qs51x5327gnk71yq8cvmxc6wgx79sqxfvxcv80cdvgggjfnyv"))))
 168     (build-system font-build-system)
 169     (home-page "https://www.gnome.org/fonts/")
 170     (synopsis "Bitstream Vera sans-serif typeface")
 171     (description "Vera is a sans-serif typeface from Bitstream, Inc.  This
 172 package provides the TrueType (TTF) files.")
 173     (license
 174      (license:fsdg-compatible
 175       "https://www.gnome.org/fonts/#Final_Bitstream_Vera_Fonts"
 176       "The Font Software may be sold as part of a larger software package but
 177 no copy of one or more of the Font Software typefaces may be sold by
 178 itself."))))
 179
 180 (define-public font-cantarell
 181   (package
 182     (name "font-abattis-cantarell")
 183     (version "0.0.25")
 184     (source (origin
 185               (method url-fetch)
 186               (uri (string-append "mirror://gnome/sources/cantarell-fonts/"
 187                                   (version-major+minor version)
 188                                   "/cantarell-fonts-" version ".tar.xz"))
 189               (sha256
 190                (base32
 191                 "0zvkd8cm1cg2919v1js9qmzwa02sjl7qajj3gcvgqvai1fm2i8hl"))))
 192     (build-system gnu-build-system)
 193     (home-page "https://wiki.gnome.org/Projects/CantarellFonts")
 194     (synopsis "Cantarell sans-serif typeface")
 195     (description "The Cantarell font family is a contemporary Humanist
 196 sans-serif designed for on-screen reading.  It is used by GNOME@tie{}3.")
 197     (license license:silofl1.1)))
 198
 199 (define-public font-lato
 200   (package
 201     (name "font-lato")
 202     (version "2.010")                   ; also update description
 203     (source (origin
 204               (method url-fetch/zipbomb)
 205               (uri (string-append "https://www.latofonts.com/download/Lato2OFL.zip"))
 206               (sha256
 207                (base32
 208                 "1f5540g0ja1nx3ddd3ywn77xc81ssrxpq8n3gyb9sabyq2b4xda2"))))
 209     (build-system font-build-system)
 210     (home-page "https://www.latofonts.com/lato-free-fonts/")
 211     (synopsis "Lato sans-serif typeface")
 212     (description
 213      "Lato is a sanserif typeface family.  It covers over 3000 glyphs per style.
 214 The Lato 2.010 family supports more than 100 Latin-based languages, over
 215 50 Cyrillic-based languages as well as Greek and IPA phonetics.")
 216     (license license:silofl1.1)))
 217
 218 (define-public font-gnu-freefont-ttf
 219   (package
 220     (name "font-gnu-freefont-ttf")
 221     (version "20120503")
 222     (source (origin
 223              (method url-fetch)
 224              (uri (string-append "mirror://gnu/freefont/freefont-src-"
 225                                  version ".tar.gz"))
 226              (sha256
 227               (base32
 228                "0yk58blhcd4hm7nyincmqq4jrzjjk82wif2zmk1l3y2m4vif4qhd"))))
 229     (build-system gnu-build-system)
 230     (arguments
 231      `(#:phases (modify-phases %standard-phases
 232                   (delete 'configure)
 233                   (replace 'install
 234                    (lambda _
 235                      (let ((doc-dir  (string-append %output "/share/doc/"
 236                                                     ,name "-" ,version))
 237                            (font-dir (string-append %output
 238                                                     "/share/fonts/truetype")))
 239                        (mkdir-p doc-dir)
 240                        (substitute* "Makefile"
 241                          (("\\$\\(TMPDIR\\)") doc-dir)
 242                          (("sfd/\\*.ttf") ""))
 243                        (system* "make" "ttftar")
 244                        (mkdir-p font-dir)
 245                        (for-each (lambda (file)
 246                                    (install-file file font-dir))
 247                                  (filter
 248                                    (lambda (file) (string-suffix? "ttf" file))
 249                                    (find-files "." "")))))))
 250        #:test-target "tests"))
 251     ;; replace python 3 with python 2
 252     ;; python 3 support commits aren't yet released in 20120503
 253     ;; so freefont needs python 2 support in fontforge
 254     (native-inputs `(("fontforge" ,(package (inherit fontforge)
 255                                      (inputs `(("python-2" ,python-2)
 256                                      ,@(package-inputs fontforge)))))))
 257     (home-page "https://www.gnu.org/software/freefont/")
 258     (synopsis "Unicode-encoded outline fonts")
 259     (description
 260      "The GNU Freefont project aims to provide a set of free outline
 261  (PostScript Type0, TrueType, OpenType...) fonts covering the ISO
 262 10646/Unicode UCS (Universal Character Set).")
 263     (license license:gpl3+)
 264     (properties '((upstream-name . "freefont")
 265                   (ftp-directory . "/gnu/freefont")))))
 266
 267 (define-public font-liberation
 268   (package
 269     (name "font-liberation")
 270     (version "2.00.1")
 271     (source (origin
 272               (method url-fetch)
 273               (uri (string-append "https://releases.pagure.org/"
 274                                   "liberation-fonts/liberation-fonts-ttf-"
 275                                   version ".tar.gz"))
 276               (sha256
 277                (base32
 278                 "010m4zfqan4w04b6bs9pm3gapn9hsb18bmwwgp2p6y6idj52g43q"))))
 279     (build-system font-build-system)
 280     (home-page "https://pagure.io/liberation-fonts/")
 281     (synopsis
 282      "Fonts compatible with Arial, Times New Roman, and Courier New")
 283     (description
 284      "The Liberation font family aims at metric compatibility with
 285 Arial, Times New Roman, and Courier New.
 286 There are three sets:
 287
 288 @enumerate
 289 @item Sans (a substitute for Arial, Albany, Helvetica, Nimbus Sans L, and
 290 Bitstream Vera Sans);
 291 @item Serif (a substitute for Times New Roman, Thorndale, Nimbus Roman, and
 292 Bitstream Vera Serif);
 293 @item Mono (a substitute for Courier New, Cumberland, Courier, Nimbus Mono L,
 294 and Bitstream Vera Sans Mono).
 295 @end enumerate
 296
 297 The Liberation Fonts are sponsored by Red Hat.")
 298     (license license:silofl1.1)))
 299
 300 (define-public font-linuxlibertine
 301   (package
 302     (name "font-linuxlibertine")
 303     (version "5.3.0")
 304     (source (origin
 305               (method url-fetch/tarbomb)
 306               (uri (string-append "mirror://sourceforge/linuxlibertine/"
 307                                   "linuxlibertine/" version
 308                                   "/LinLibertineSRC_" version "_2012_07_02.tgz"))
 309               (sha256
 310                (base32
 311                 "0x7cz6hvhpil1rh03rax9zsfzm54bh7r4bbrq8rz673gl9h47v0v"))))
 312     (build-system font-build-system)
 313     (arguments
 314      `(#:phases
 315        (modify-phases %standard-phases
 316          (add-before 'install 'build
 317            (lambda _
 318              (let ((compile
 319                     (lambda (name ext)
 320                       (invoke
 321                        "fontforge" "-lang=ff"
 322                        "-c" (string-append "Open('" name "');"
 323                                            "Generate('"
 324                                            (basename name "sfd") ext
 325                                            "')")))))
 326                (for-each (lambda (name)
 327                            (and (compile name "ttf")
 328                                 (compile name "otf")))
 329                          (find-files "." "\\.sfd$"))
 330                #t))))))
 331     (native-inputs
 332      `(("fontforge" ,fontforge)))
 333     (home-page "http://www.linuxlibertine.org/")
 334     (synopsis "Serif and sans serif typefaces")
 335     (description "The Linux Libertine fonts is a set of typefaces containing
 336 both a Serif version (\"Linux Libertine\") and a Sans Serif (\"Linux
 337 Biolinum\") designed to be used together as an alternative for Times/Times New
 338 Roman and Helvetica/Arial.  The Serif typeface comes in two shapes and two
 339 weights, and with a Small Capitals version of the regular typeface.  Linux
 340 Biolinum is available in both Regular and Bold weights.")
 341     ;; The fonts are released under either of these licenses.
 342     (license (list license:gpl2+ license:silofl1.1))))
 343
 344 (define-public font-terminus
 345   (package
 346     (name "font-terminus")
 347     (version "4.40")
 348     (source
 349       (origin
 350         (method url-fetch)
 351         (uri (string-append
 352                "mirror://sourceforge/terminus-font/terminus-font-"
 353                version
 354                "/terminus-font-"
 355                version
 356                ".tar.gz"))
 357         (sha256
 358          (base32
 359           "0487cyx5h1f0crbny5sg73a22gmym5vk1i7646gy7hgiscj2rxb4"))))
 360     (build-system gnu-build-system)
 361     (native-inputs
 362      `(("pkg-config" ,pkg-config)
 363        ("perl" ,perl)
 364        ("bdftopcf" ,bdftopcf)
 365        ("font-util" ,font-util)
 366        ("mkfontdir" ,mkfontdir)))
 367     (arguments
 368      `(#:configure-flags (list
 369                           ;; install fonts into subdirectory of package output
 370                           ;; instead of font-util-?.?.?/share/fonts/X11
 371                           (string-append "--with-fontrootdir="
 372                                          %output "/share/fonts/X11"))
 373        #:tests? #f)) ;; No test target in tarball
 374     (home-page "http://terminus-font.sourceforge.net/")
 375     (synopsis "Simple bitmap programming font")
 376     (description "Terminus Font is a clean, fixed-width bitmap font, designed
 377 for long periods of working with computers (8 or more hours per day).")
 378     (license license:silofl1.1)))
 379
 380 (define-public font-adobe-source-han-sans
 381   (package
 382     (name "font-adobe-source-han-sans")
 383     (version "1.004")
 384     (source (origin
 385               (method url-fetch)
 386               (uri (string-append
 387                     "https://github.com/adobe-fonts/source-han-sans/archive/"
 388                     version "R.tar.gz"))
 389               (file-name (string-append "source-han-sans-" version "R.tar.gz"))
 390               (sha256
 391                (base32
 392                 "1ssx0fw90sy6mj8fv8fv4dgzszpqwbmwpjnlx16g4pvaqzdmybbz"))))
 393     (outputs '("out"                 ; OpenType/CFF Collection (OTC), 121 MiB.
 394                "cn" "jp" "kr" "tw")) ; Region-specific Subset OpenType/CFF.
 395     (build-system trivial-build-system)
 396     (arguments
 397      `(#:modules ((guix build utils))
 398        #:builder
 399        (begin
 400          (use-modules (guix build utils))
 401          (let ((tar  (string-append (assoc-ref %build-inputs
 402                                                "tar")
 403                                     "/bin/tar"))
 404                (PATH (string-append (assoc-ref %build-inputs
 405                                                "gzip")
 406                                     "/bin"))
 407                (install-opentype-fonts
 408                 (lambda (fonts-dir out)
 409                   (copy-recursively fonts-dir
 410                                     (string-append (assoc-ref %outputs out)
 411                                                    "/share/fonts/opentype")))))
 412            (setenv "PATH" PATH)
 413            (invoke tar "xvf" (assoc-ref %build-inputs "source"))
 414            (chdir (string-append "source-han-sans-" ,version "R"))
 415            (install-opentype-fonts "OTC" "out")
 416            (install-opentype-fonts "SubsetOTF/CN" "cn")
 417            (install-opentype-fonts "SubsetOTF/JP" "jp")
 418            (install-opentype-fonts "SubsetOTF/KR" "kr")
 419            (install-opentype-fonts "SubsetOTF/TW" "tw")
 420            (for-each delete-file (find-files %output "\\.zip$"))
 421            #t))))
 422     (native-inputs
 423      `(("gzip" ,gzip)
 424        ("tar" ,tar)))
 425     (home-page "https://github.com/adobe-fonts/source-han-sans")
 426     (synopsis "Pan-CJK fonts")
 427     (description
 428      "Source Han Sans is a sans serif Pan-CJK font family that is offered in
 429 seven weights: ExtraLight, Light, Normal, Regular, Medium, Bold, and Heavy.
 430 And in several OpenType/CFF-based deployment configurations to accommodate
 431 various system requirements or limitations.  As the name suggests, Pan-CJK
 432 fonts are intended to support the characters necessary to render or display
 433 text in Simplified Chinese, Traditional Chinese, Japanese, and Korean.")
 434     (license license:silofl1.1)))
 435
 436 (define-public font-cns11643
 437   ;; Since upstream doesn't provide any version numbers, the date of the last
 438   ;; edit is used, taken from https://data.gov.tw/dataset/5961
 439   ;; XXX: The source is also updated in-place, so it may be desirable to mirror
 440   ;; it elsewhere to avoid suddenly losing the current source file.
 441   (package
 442     (name "font-cns11643")
 443     (version "98.1.20180605")
 444     (source (origin
 445               (method url-fetch)
 446               (uri "http://www.cns11643.gov.tw/AIDB/Open_Data.zip")
 447               (sha256
 448                (base32
 449                 "000a9whrjr1cd4pjc23pbl60zwkq3wcb5g61p9qi7fn3hwkp0kyw"))))
 450     (build-system font-build-system)
 451     (home-page "http://www.cns11643.gov.tw/AIDB/welcome.do")
 452     (synopsis "CJK TrueType fonts, TW-Kai and TW-Sung")
 453     (description
 454      "@code{CNS 11643} character set (Chinese National Standard, or Chinese
 455 Standard Interchange Code) is the standard character set of the Republic of
 456 China (Taiwan) for Chinese Characters and other Unicode symbols.  Contained
 457 are six TrueType fonts based on two script styles, Regular script (Kai), and
 458 Sung/Ming script, each with three variants:
 459
 460 @itemize
 461 @item @code{CNS 11643} (@code{TW-Kai} and @code{TW-Sung}): Tens of thousands
 462 of CJK characters from frequency tables published by the Taiwanese
 463 Ministry of Education.  ISO 10646 and Unicode compatible encoding.
 464 @item @code{Big-5 Plus}: Several thousand frequently used CJK characters
 465 encoded in the user defined area of the Big-5 code.
 466 @item @code{Big-5 Extended}: A Big-5 character set based on the
 467 @code{Big-5 Plus} and @code{CNS 11643} character sets.
 468 @end itemize\n")
 469     (license (license:non-copyleft
 470               "http://data.gov.tw/license")))) ; CC-BY 4.0 compatible
 471
 472 (define-public font-cns11643-swjz
 473   (package
 474     (name "font-cns11643-swjz")
 475     (version "1")
 476     (source
 477      (origin
 478        (method url-fetch)
 479        (uri "https://www.moedict.tw/fonts/truetype/cns11643/ebas927.ttf")
 480        (sha256
 481         (base32
 482          "1qkljldbmb53zp1rcmpsb8rzy67rnsqcjxi549m9743ifk4isl78"))))
 483     (build-system font-build-system)
 484     (home-page
 485      (string-append "http://www.cns11643.gov.tw/AIDB/download.do"
 486                     "?name=%E5%AD%97%E5%9E%8B%E4%B8%8B%E8%BC%89"))
 487     (synopsis "TrueType seal script font")
 488     (description
 489      "@code{Shuowen Jiezi} is a TrueType seal script font based on the ancient
 490 text of the same name published by the Executive Yuan of Taiwan.  6721 glyphs
 491 are included, at Unicode compatible code points corresponding to their modern
 492 variants.")
 493     ;; Original text only available in Chinese. More info at
 494     ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=26703#11
 495     (license (license:non-copyleft
 496               "http://www.cns11643.gov.tw/AIDB/copyright.do"))))
 497
 498 (define-public font-wqy-zenhei
 499   (package
 500     (name "font-wqy-zenhei")
 501     (version "0.9.45")
 502     (source (origin
 503               (method url-fetch)
 504               (uri (string-append
 505                     "mirror://sourceforge/wqy/wqy-zenhei/" version
 506                     "%20%28Fighting-state%20RC1%29/wqy-zenhei-"
 507                     version ".tar.gz"))
 508               (sha256
 509                (base32
 510                 "1mkmxq8g2hjcglb3zajfqj20r4r88l78ymsp2xyl5yav8w3f7dz4"))))
 511     (build-system font-build-system)
 512     (home-page "https://wenq.org/wqy2/")
 513     (synopsis "CJK font")
 514     (description
 515      "WenQuanYi Zen Hei is a Hei-Ti style (sans-serif type) Chinese outline
 516 font.  It is designed for general purpose text formatting and on-screen
 517 display of Chinese characters and symbols from many other languages.
 518 WenQuanYi Zen Hei provides a rather complete coverage of Chinese Hanzi glyphs,
 519 including both simplified and traditional forms.  The total glyph number in
 520 this font is over 35,000, including over 21,000 Chinese Hanzi.  This font has
 521 full coverage of the GBK (CP936) charset, CJK Unified Ideographs, as well as
 522 the code-points needed for zh_cn, zh_sg, zh_tw, zh_hk, zh_mo, ja (Japanese) and
 523 ko (Korean) locales for @code{fontconfig}.")
 524     ;; GPLv2 with font embedding exception.
 525     (license license:gpl2)))
 526
 527 (define-public font-wqy-microhei
 528   (package
 529     (name "font-wqy-microhei")
 530     (version "0.2.0-beta")
 531     (source (origin
 532               (method url-fetch)
 533               (uri (string-append "mirror://sourceforge/wqy/wqy-microhei/"
 534                                   version "/wqy-microhei-" version ".tar.gz"))
 535               (sha256
 536                (base32
 537                 "0gi1yxqph8xx869ichpzzxvx6y50wda5hi77lrpacdma4f0aq0i8"))))
 538     (build-system font-build-system)
 539     (home-page "http://wenq.org/wqy2/")
 540     (synopsis "CJK font")
 541     (description
 542      "WenQuanYi Micro Hei is a Sans-Serif style (also known as Hei, Gothic or
 543 Dotum among the Chinese/Japanese/Korean users) high quality CJK outline font.
 544 It was derived from \"Droid Sans Fallback\" and \"Droid Sans\" released by
 545 Google Inc.  This font contains all the unified CJK Han glyphs in the range of
 546 U+4E00-U+9FC3 defined in Unicode Standard 5.1, together with many other
 547 languages unicode blocks, including Latins, Extended Latins, Hanguls and
 548 Kanas.  The font file is extremely compact (~4M) compared with most known CJK
 549 fonts.")
 550     ;; This font is licensed under Apache2.0 or GPLv3 with font embedding
 551     ;; exceptions.
 552     (license license:gpl3)))
 553
 554 (define-public font-rachana
 555   (package
 556     (name "font-rachana")
 557     (version "7.0")
 558     (source
 559      (origin
 560        (method url-fetch)
 561        (uri (string-append
 562              "https://gitlab.com/smc/rachana/repository/archive.tar.gz?ref=Version"
 563              version))
 564        (file-name (string-append name "-" version ".tar.gz"))
 565        (sha256
 566         (base32
 567          "0jc091gshna6p1dd6lf507jxkgk6rsja835fc9dm71mcplq53bm1"))))
 568     (build-system font-build-system)
 569     (home-page "https://smc.org.in")
 570     (synopsis "Malayalam font")
 571     (description
 572      "Rachana is a Malayalam font designed by Hussain K H.  The project was
 573 part of Rachana Aksharavedi for the original script of Malayalam in computing.
 574 Rachana has about 1,200+ glyphs for Malayalam and contains glyphs required for
 575 printing old Malayalam books without compromising the writing style.")
 576     ;; This font is licensed under SIL 1.1 or GPLv3+ with font embedding
 577     ;; exceptions.
 578     (license (list license:silofl1.1 license:gpl3+))))
 579
 580 (define-public font-tex-gyre
 581   (package
 582     (name "font-tex-gyre")
 583     (version "2.005")
 584     (source
 585      (origin
 586        (method url-fetch/zipbomb)
 587        (uri (string-append "http://www.gust.org.pl/projects/e-foundry/"
 588                            "tex-gyre/whole/tg-" version "otf.zip"))
 589        (sha256
 590         (base32
 591          "0kph9l3g7jb2bpmxdbdg5zl56wacmnvdvsdn7is1gc750sqvsn31"))))
 592     (build-system font-build-system)
 593     (home-page "http://www.gust.org.pl/projects/e-foundry/tex-gyre/")
 594     (synopsis "Remake of Ghostscript fonts")
 595     (description "The TeX Gyre collection of fonts is the result of an
 596 extensive remake and extension of the freely available base PostScript fonts
 597 distributed with Ghostscript version 4.00.  The collection contains the
 598 following fonts in the OpenType format: Adventor, Bonum, Chorus, Cursor,
 599 Heros, Pagella, Schola, Termes.")
 600     (license license:gfl1.0)))
 601
 602 (define-public font-anonymous-pro
 603   (package
 604     (name "font-anonymous-pro")
 605     (version "1.002")
 606     (source (origin
 607               (method url-fetch)
 608               (uri (string-append
 609                     "http://www.marksimonson.com/assets/content/fonts/"
 610                     "AnonymousPro-" version ".zip"))
 611               (sha256
 612                (base32
 613                 "1asj6lykvxh46czbal7ymy2k861zlcdqpz8x3s5bbpqwlm3mhrl6"))))
 614     (build-system font-build-system)
 615     (home-page "http://www.marksimonson.com/fonts/view/anonymous-pro")
 616     (synopsis "Fixed-width fonts designed with coding in mind")
 617     (description "Anonymous Pro is a family of four fixed-width fonts designed
 618 with coding in mind.  Anonymous Pro features an international, Unicode-based
 619 character set, with support for most Western and Central European Latin-based
 620 languages, plus Greek and Cyrillic.")
 621     (license license:silofl1.1)))
 622
 623 (define-public font-gnu-unifont
 624   (package
 625     (name "font-gnu-unifont")
 626     (version "11.0.03")
 627     (source (origin
 628               (method url-fetch)
 629               (uri (string-append
 630                     "mirror://gnu/unifont/unifont-" version "/unifont-"
 631                     version ".tar.gz"))
 632               (sha256
 633                (base32
 634                 "171zhm52c4rzpn19qcq4n9nyfbcjl38v50zslhvgpjdcmc5jvhav"))))
 635     (build-system gnu-build-system)
 636     (outputs '("out"   ; TrueType version
 637                "pcf"   ; PCF (bitmap) version
 638                "psf"   ; PSF (console) version
 639                "bin")) ; Utilities to manipulate '.hex' format
 640     (arguments
 641      '(#:tests? #f          ; no check target
 642        #:phases
 643        (modify-phases %standard-phases
 644          (replace
 645           'configure
 646           (lambda _ (setenv "CC" "gcc") #t))
 647          (replace
 648           'install
 649           (lambda* (#:key outputs #:allow-other-keys)
 650             (let* ((ttf (string-append (assoc-ref outputs "out")
 651                                        "/share/fonts/truetype"))
 652                    (pcf (string-append (assoc-ref outputs "pcf")
 653                                        "/share/fonts/misc"))
 654                    (psf (string-append (assoc-ref outputs "psf")
 655                                        "/share/consolefonts"))
 656                    (bin (assoc-ref outputs "bin")))
 657               (invoke "make"
 658                       (string-append "PREFIX=" bin)
 659                       (string-append "TTFDEST=" ttf)
 660                       (string-append "PCFDEST=" pcf)
 661                       (string-append "CONSOLEDEST=" psf)
 662                       "install")
 663               ;; Move Texinfo file to the right place.
 664               (mkdir (string-append bin "/share/info"))
 665               (invoke "gzip" "-9n" "doc/unifont.info")
 666               (install-file "doc/unifont.info.gz"
 667                             (string-append bin "/share/info"))
 668               #t))))))
 669     (inputs
 670      `(("perl" ,perl))) ; for utilities
 671     (synopsis
 672      "Large bitmap font covering Unicode's Basic Multilingual Plane")
 673     (description
 674      "GNU Unifont is a bitmap font covering essentially all of
 675 Unicode's Basic Multilingual Plane.  The package also includes
 676 utilities to ease adding new glyphs to the font.")
 677     (home-page "http://unifoundry.com/unifont.html")
 678     (properties '((upstream-name . "unifont")))
 679     (license license:gpl2+)))
 680
 681 (define-public font-google-noto
 682   (package
 683     (name "font-google-noto")
 684     (version "20170403")
 685     (source (origin
 686               (method url-fetch/zipbomb)
 687               (uri (string-append "https://noto-website.storage.googleapis.com/"
 688                                   "pkgs/Noto-hinted.zip"))
 689               (file-name (string-append name "-" version ".zip"))
 690               (sha256
 691                (base32
 692                 "1p92a6dvs7wqwjfpp1ahr9z1wz35am0l8r78521383spd77bmrfm"))))
 693     (build-system font-build-system)
 694     (home-page "https://www.google.com/get/noto/")
 695     (synopsis "Fonts to cover all languages")
 696     (description "Google Noto Fonts is a family of fonts designed to support
 697 all languages with a consistent look and aesthetic.  Its goal is to properly
 698 display all Unicode symbols.")
 699     (license license:silofl1.1)))
 700
 701 (define-public font-google-roboto
 702   (package
 703     (name "font-google-roboto")
 704     (version "2.136")
 705     (source
 706      (origin
 707        (method url-fetch)
 708        (uri (string-append "https://github.com/google/roboto/releases/download/"
 709                            "v" version "/roboto-hinted.zip"))
 710        (file-name (string-append name "-" version ".zip"))
 711        (sha256
 712         (base32
 713          "0spscx08fad7i8qs7icns96iwcapniq8lwwqqvbf7bamvs8qfln4"))))
 714     (build-system font-build-system)
 715     (home-page "https://github.com/google/roboto")
 716     (synopsis "The Roboto family of fonts")
 717     (description
 718      "Roboto is Google’s signature family of fonts, the default font on Android
 719 and Chrome OS, and the recommended font for the
 720 visual language \"Material Design\".")
 721     (license license:asl2.0)))
 722
 723 (define-public font-un
 724   (package
 725     (name "font-un")
 726     (version "1.0.2-080608")
 727     (source (origin
 728               (method url-fetch)
 729               (uri (string-append
 730                     "https://kldp.net/unfonts/release/2607-"
 731                     "un-fonts-core-" version ".tar.gz"))
 732               (file-name (string-append name "-" version ".tar.gz"))
 733               (sha256
 734                (base32
 735                 "13liaz2pmww3aqabm55la5npd08m1skh334ky7qfidxaz5s742iv"))))
 736     (build-system font-build-system)
 737     (home-page "https://kldp.net/projects/unfonts/")
 738     (synopsis "Collection of Korean fonts")
 739     (description
 740      "Un-fonts is a family of mainly Korean fonts.
 741 It contains the following fonts and styles:
 742
 743 @enumerate
 744 @item UnBatang, UnBatangBold: serif;
 745 @item UnDotum, UnDotumBold: sans-serif;
 746 @item UnGraphic, UnGraphicBold: sans-serif style;
 747 @item UnDinaru, UnDinaruBold, UnDinaruLight;
 748 @item UnPilgi, UnPilgiBold: script;
 749 @item UnGungseo: cursive, brush-stroke.
 750 @end enumerate\n")
 751     (license license:gpl2+)))
 752
 753 (define-public font-fantasque-sans
 754   (package
 755     (name "font-fantasque-sans")
 756     (version "1.7.2")
 757     (source
 758      (origin
 759        (method git-fetch)
 760        (uri (git-reference
 761              (url "https://github.com/belluzj/fantasque-sans.git")
 762              (commit (string-append "v" version))))
 763        (file-name (git-file-name name version))
 764        (sha256
 765         (base32
 766          "1gjranq7qf20rfxnpxsckv1hl35nzsal0rjs475nhfbpqy5wmly6"))))
 767     (build-system gnu-build-system)
 768     (native-inputs
 769      `(("ttfautohint" ,ttfautohint)
 770        ("woff-tools" ,woff-tools)
 771        ("fontforge" ,fontforge)
 772        ("woff2" ,woff2)
 773        ("ttf2eot" ,ttf2eot)
 774        ("zip" ,zip)))
 775     (arguments
 776      `(#:tests? #f                 ;test target intended for visual inspection
 777        #:phases (modify-phases %standard-phases
 778                   (delete 'configure)   ;no configuration
 779                   (add-before 'build 'xrange->range
 780                     ;; Rather than use a python2 fontforge, just replace the
 781                     ;; offending function.
 782                     (lambda _
 783                       (substitute* "Scripts/fontbuilder.py"
 784                         (("xrange") "range"))
 785                       #t))
 786                   (replace 'install
 787                     ;; 'make install' wants to install to ~/.fonts, install to
 788                     ;; output instead.  Install only the "Normal" variant.
 789                     (lambda* (#:key outputs #:allow-other-keys)
 790                       (let* ((out (assoc-ref outputs "out"))
 791                              (font-dir (string-append out "/share/fonts"))
 792                              (truetype-dir (string-append font-dir "/truetype"))
 793                              (opentype-dir (string-append font-dir "/opentype"))
 794                              (webfonts-dir (string-append font-dir "/webfonts")))
 795                         (with-directory-excursion "Variants/Normal"
 796                           (copy-recursively "OTF" opentype-dir)
 797                           (for-each (lambda (f) (install-file f truetype-dir))
 798                                     (find-files "." "\\.ttf$"))
 799                           (copy-recursively "Webfonts" webfonts-dir)
 800                           #t)))))))
 801     (synopsis "Font family with a monospaced variant for programmers")
 802     (description
 803      "Fantasque Sans Mono is a programming font designed with functionality in
 804 mind.  The font includes a bold version and a good italic version with new
 805 glyph designs, not just an added slant.")
 806     (home-page "https://fontlibrary.org/en/font/fantasque-sans-mono")
 807     (license license:silofl1.1)))
 808
 809 (define-public font-hack
 810   (package
 811     (name "font-hack")
 812     (version "3.003")
 813     (source (origin
 814               (method url-fetch/zipbomb)
 815               (uri (string-append
 816                     "https://github.com/source-foundry/Hack/releases/download/v"
 817                     version "/Hack-v" version "-ttf.zip"))
 818               (sha256
 819                (base32
 820                 "1b4hh8zkrx92m2v2vfkja1napb0192p0j3laqr0m018z3dih89hc"))))
 821     (build-system font-build-system)
 822     (home-page "https://sourcefoundry.org/hack/")
 823     (synopsis "Typeface designed for source code")
 824     (description
 825      "Hack is designed to be a workhorse typeface for code.  It expands upon
 826 the Bitstream Vera & DejaVu projects, provides over 1,500 glyphs, and includes
 827 Powerline support.")
 828     (license
 829      ;; See https://github.com/source-foundry/Hack/issues/271 for details.
 830      (list license:expat                ; the Hack modifications to...
 831            license:public-domain        ; ...the DejaVu modifications to...
 832            (license:x11-style           ; ...the Bitstream Vera typeface
 833             "file://LICENSE.md" "Bitstream Vera License")))))
 834
 835 (define-public font-adobe-source-code-pro
 836   (package
 837     (name "font-adobe-source-code-pro")
 838     (version "2.030R-ro-1.050R-it")
 839     (source (origin
 840               (method url-fetch)
 841               (uri (string-append
 842                     "https://github.com/adobe-fonts/source-code-pro/archive/"
 843                     (regexp-substitute/global
 844                      ;; The upstream tag uses "/" between the roman and italic
 845                      ;; versions, so substitute our "-" separator here.
 846                      #f "R-ro-" version 'pre "R-ro/" 'post) ".tar.gz"))
 847               (file-name (string-append name "-" version ".tar.gz"))
 848               (sha256
 849                (base32
 850                 "0arhhsf3i7ss39ykn73d1j8k4n8vx7115xph6jwkd970p1cxvr54"))))
 851     (build-system font-build-system)
 852     (home-page "https://github.com/adobe-fonts/source-code-pro")
 853     (synopsis
 854      "Monospaced font family for user interface and coding environments")
 855     (description
 856      "Source Code Pro is a set of monospaced OpenType fonts that have been
 857 designed to work well in user interface environments.")
 858     (license license:silofl1.1)))
 859
 860 (define-public font-adobe-source-sans-pro
 861   (package
 862     (name "font-adobe-source-sans-pro")
 863     (version "2.040R-ro-1.090R-it")
 864     (source (origin
 865               (method url-fetch)
 866               (uri (string-append
 867                     "https://github.com/adobe-fonts/source-sans-pro/archive/"
 868                     (regexp-substitute/global
 869                      ;; The upstream tag uses "/" between the roman and italic
 870                      ;; versions, so substitute our "-" separator here.
 871                      #f "R-ro-" version 'pre "R-ro/" 'post) ".tar.gz"))
 872               (file-name (string-append name "-" version ".tar.gz"))
 873               (sha256
 874                (base32
 875                 "1wpbhd2idps53ph8rg1mhr3vz4lsgbpjprcq10nliwcxdz9d8lv0"))))
 876     (build-system font-build-system)
 877     (home-page "https://github.com/adobe-fonts/source-sans-pro")
 878     (synopsis
 879      "Sans serif font family for user interface environments")
 880     (description
 881      "Source Sans Pro is a set of OpenType fonts that have been designed to
 882 work well in user interface (UI) environments.")
 883     (license license:silofl1.1)))
 884
 885 (define-public font-adobe-source-serif-pro
 886   (package
 887     (name "font-adobe-source-serif-pro")
 888     (version "2.007R-ro-1.007R-it")
 889     (source (origin
 890               (method url-fetch)
 891               (uri (string-append
 892                     "https://github.com/adobe-fonts/source-serif-pro/archive/"
 893                     (regexp-substitute/global
 894                      ;; The upstream tag uses "/" between the roman and italic
 895                      ;; versions, so substitute our "-" separator here.
 896                      #f "R-ro-" version 'pre "R-ro/" 'post) ".tar.gz"))
 897               (file-name (string-append name "-" version ".tar.gz"))
 898               (sha256
 899                (base32
 900                 "1sws9k26ldqk375qsigk1zv8cq1xlvadjwvv3dqrcc3qzm1c7hwc"))))
 901     (build-system font-build-system)
 902     (home-page "https://github.com/adobe-fonts/source-serif-pro")
 903     (synopsis
 904      "Serif typeface to complement Source Sans Pro for setting text")
 905     (description
 906      "Source Serif Pro is a set of OpenType fonts to complement the Source
 907 Sans Pro family.")
 908     (license license:silofl1.1)))
 909
 910 (define-public font-fira-mono
 911   (package
 912     (name "font-fira-mono")
 913     (version "3.206")
 914     (source (origin
 915               (method url-fetch)
 916               (uri (string-append "https://carrois.com/downloads/fira_mono_3_2/"
 917                                   "FiraMonoFonts"
 918                                   (string-replace-substring version "." "")
 919                                   ".zip"))
 920               (sha256
 921                (base32
 922                 "1z65x0dw5dq6rs6p9wyfrir50rlh95vgzsxr8jcd40nqazw4jhpi"))))
 923     (build-system font-build-system)
 924     (home-page "https://mozilla.github.io/Fira/")
 925     (synopsis "Mozilla's monospace font")
 926     (description "This is the typeface used by Mozilla in Firefox OS.")
 927     (license license:silofl1.1)))
 928
 929 (define-public font-fira-sans
 930   (package
 931     (name "font-fira-sans")
 932     (version "4.202")
 933     (source (origin
 934               (method url-fetch)
 935               (uri (string-append "https://github.com/mozilla/Fira/archive/"
 936                                   version ".tar.gz"))
 937               (file-name (string-append name "-" version ".tar.gz"))
 938               (sha256
 939                (base32
 940                 "1r6zdnqqp4bgq5nmgqbj0vvj7x1h9w912851ggbl9wc7fdjnjqnq"))))
 941     (build-system font-build-system)
 942     (home-page "https://mozilla.github.io/Fira/")
 943     (synopsis "Mozilla's Fira Sans Font")
 944     (description "This is the typeface used by Mozilla in Firefox OS.")
 945     (license license:silofl1.1)))
 946
 947 (define-public font-fira-code
 948   (package
 949     (name "font-fira-code")
 950     (version "1.205")
 951     (source (origin
 952               (method url-fetch/zipbomb)
 953               (uri (string-append "https://github.com/tonsky/FiraCode/releases/"
 954                                   "download/" version
 955                                   "/FiraCode_" version ".zip"))
 956               (sha256
 957                (base32
 958                 "13bxgf59g6fw5191xclcjzn22hj8jk9k5jjwf7vz07mpjbgadcl5"))))
 959     (build-system font-build-system)
 960     (home-page "https://mozilla.github.io/Fira/")
 961     (synopsis "Monospaced font with programming ligatures")
 962     (description
 963      "Fira Code is an extension of the Fira Mono font containing a set of ligatures
 964 for common programming multi-character combinations.  This is just a font rendering
 965 feature: underlying code remains ASCII-compatible.  This helps to read and understand
 966 code faster.  For some frequent sequences like .. or //, ligatures allow us to
 967 correct spacing.")
 968     (license license:silofl1.1)))
 969
 970 (define-public font-awesome
 971   (package
 972    (name "font-awesome")
 973    ;; XXX The build scripts of version 5 are not freely licensed and
 974    ;; so we have to stick with version 4 for now:
 975    ;; <https://bugs.gnu.org/32916>
 976    (version "4.7.0")
 977    (source (origin
 978             (method url-fetch)
 979             (uri (string-append "http://fontawesome.io/assets/"
 980                                 name "-" version ".zip"))
 981             (sha256
 982              (base32
 983               "1m1rfwm4sjkv10j3xd2dhwk286a5912b2zgvc692cmxi5gxs68jf"))))
 984    (build-system font-build-system)
 985    (home-page "http://fontawesome.io")
 986    (synopsis "Font that contains a rich iconset")
 987    (description
 988     "Font Awesome is a full suite of pictographic icons for easy scalable
 989 vector graphics.")
 990    (license license:silofl1.1)))
 991
 992 (define-public font-tamzen
 993   (package
 994     (name "font-tamzen")
 995     (version "1.11.4")
 996     (source
 997      (origin
 998        (method url-fetch)
 999        (uri (string-append "https://github.com/sunaku/tamzen-font/archive/"
1000                            "Tamzen-" version ".tar.gz"))
1001        (file-name (string-append name "-" version ".tar.gz"))
1002        (sha256
1003         (base32
1004          "1ryd7gp6qiwaqw73jqbmh4kwlriyd8xykh4j7z90z8xp9fm7lrys"))))
1005     (build-system trivial-build-system)
1006     (arguments
1007      `(#:modules ((guix build utils))
1008        #:builder
1009        (begin
1010          (use-modules (guix build utils))
1011
1012          (let ((tar      (string-append (assoc-ref %build-inputs "tar")
1013                                         "/bin/tar"))
1014                (PATH     (string-append (assoc-ref %build-inputs "gzip")
1015                                         "/bin"))
1016                (font-dir (string-append %output "/share/fonts/misc"))
1017                (psf-dir (string-append %output "/share/kbd/consolefonts"))
1018                (src-pcf-dir (string-append "tamzen-font-Tamzen-"
1019                                             ,version "/pcf")))
1020            (setenv "PATH" PATH)
1021            (invoke tar "xvf" (assoc-ref %build-inputs "source"))
1022            (mkdir-p font-dir)
1023            (mkdir-p psf-dir)
1024            (chdir src-pcf-dir)
1025            (for-each (lambda (pcf)
1026                        (install-file pcf font-dir))
1027                      (find-files "." "\\.pcf$"))
1028            (chdir "../psf")
1029            (for-each (lambda (psf)
1030                        (install-file psf psf-dir))
1031                      (find-files "." "\\.psf$"))
1032            #t))))
1033     (native-inputs
1034      `(("tar" ,tar)
1035        ("gzip" ,gzip)))
1036     (home-page "https://github.com/sunaku/tamzen-font")
1037     (synopsis "Monospaced bitmap font for console and X11")
1038     (description
1039      "Tamzen is a fork of the @code{Tamsyn} font.  It is programatically forked
1040 from @code{Tamsyn} version 1.11, backporting glyphs from older versions while
1041 deleting deliberately empty glyphs (which are marked as unimplemented) to
1042 allow secondary/fallback fonts to provide real glyphs at those codepoints.
1043
1044 The @code{TamzenForPowerline} fonts provide additional @code{Powerline} symbols,
1045 which are programatically injected with @code{bitmap-font-patcher} and
1046 later hand-tweaked with the gbdfed(1) editor:
1047
1048 @enumerate
1049 @item all icons are expanded to occupy the maximum available space
1050 @item the branch of the fork icon ( U+E0A0) was made larger than the trunk
1051 @item for the newline icon ( U+E0A1), the @emph{N} was made larger at the bottom
1052 @item the keyhole in the padlock icon ( U+E0A2) was replaced with @emph{//} lines.
1053 @end enumerate\n")
1054     (license (license:non-copyleft "file://LICENSE"))))
1055
1056 (define-public font-comic-neue
1057   (package
1058     (name "font-comic-neue")
1059     (version "2.3")
1060     (source (origin
1061               (method url-fetch/zipbomb)
1062               (uri (string-append
1063                     "http://www.comicneue.com/comic-neue-" version ".zip"))
1064               (sha256
1065                (base32
1066                 "1695hkpd8kqnr2a88p8xs496slgzxjjkzpa9aa33ml3pnh7519zk"))))
1067     (build-system font-build-system)
1068     (arguments
1069      `(#:phases
1070        (modify-phases %standard-phases
1071          ;; Delete Mac OS X specific files. If not deleted, these cause
1072          ;; several hidden files to be installed.
1073          (add-before 'install 'delete-macosx-files
1074            (lambda _
1075              (delete-file-recursively "__MACOSX")
1076              #t))
1077          (add-after 'install 'install-conf
1078            (lambda* (#:key outputs #:allow-other-keys)
1079              (let ((conf-dir (string-append (assoc-ref outputs "out")
1080                                             "/share/fontconfig/conf.avail")))
1081                (mkdir-p conf-dir)
1082                (call-with-output-file
1083                    (string-append conf-dir "/30-comic-neue.conf")
1084                  (lambda (port)
1085                    (format port "<?xml version=\"1.0\"?>
1086 <!DOCTYPE fontconfig SYSTEM \"fonts.dtd\">
1087 <fontconfig>
1088   <!-- If Comic Sans is missing, use Comic Neue instead. -->
1089   <alias>
1090     <family>Comic Sans MS</family>
1091     <prefer>
1092       <family>Comic Neue</family>
1093     </prefer>
1094   </alias>
1095 </fontconfig>\n"))))
1096              #t)))))
1097     (home-page "http://www.comicneue.com/")
1098     (synopsis "Font that fixes the shortcomings of Comic Sans")
1099     (description
1100      "Comic Neue is a font that attempts to create a respectable casual
1101 typeface, by mimicking Comic Sans while fixing its most obvious shortcomings.")
1102     (license license:silofl1.1)))
1103
1104 (define-public font-iosevka
1105   (package
1106     (name "font-iosevka")
1107     (version "1.12.5")
1108     (source (origin
1109               (method url-fetch/zipbomb)
1110               (uri (string-append
1111                     "https://github.com/be5invis/Iosevka/releases/download/v"
1112                     version "/iosevka-pack-" version ".zip"))
1113               (sha256
1114                (base32
1115                 "0s3g6mk0ngwsrw9h9dqinb50cd9i8zhqdcmmh93fhyf4d87yfwyi"))))
1116     (build-system font-build-system)
1117     (home-page "https://be5invis.github.io/Iosevka/")
1118     (synopsis "Coders' typeface, built from code")
1119     (description
1120      "Iosevka is a slender monospace sans-serif or slab-serif typeface inspired
1121 by Pragmata Pro, M+, and PF DIN Mono, designed to be the ideal font for
1122 programming.  Iosevka is completely generated from its source code.")
1123     (license (list license:silofl1.1 ; build artifacts (i.e. the fonts)
1124                    license:bsd-3)))) ; supporting code
1125
1126 (define-public font-go
1127   (let ((commit "f03a046406d4d7fbfd4ed29f554da8f6114049fc")
1128         (revision "1"))
1129     (package
1130       (name "font-go")
1131       (version (string-append "20170330-" revision "." (string-take commit 7)))
1132       (source (origin
1133                 (file-name (string-append "go-image-" version "-checkout"))
1134                 (method git-fetch)
1135                 (uri (git-reference
1136                       (url "https://go.googlesource.com/image")
1137                       (commit commit)))
1138                 (sha256
1139                  (base32
1140                   "1aq6mnjayks55gd9ahavk6jfydlq5lm4xm0xk4pd5sqa74p5p74d"))))
1141       (build-system font-build-system)
1142       (arguments
1143        `(#:phases
1144          (modify-phases %standard-phases
1145            (add-before 'install 'chdir
1146              (lambda _
1147                (chdir "font/gofont/ttfs")
1148                #t)))))
1149       (home-page "https://blog.golang.org/go-fonts")
1150       (synopsis "The Go font family")
1151       (description
1152        "The Go font family is a set of WGL4 TrueType fonts from the Bigelow &
1153 Holmes type foundry, released under the same license as the Go programming
1154 language.  It includes a set of proportional, sans-serif fonts, and a set of
1155 monospace, slab-serif fonts.")
1156       (license license:bsd-3))))
1157
1158 (define-public font-google-material-design-icons
1159   (package
1160     (name "font-google-material-design-icons")
1161     (version "3.0.1")
1162     (source (origin
1163               (method url-fetch)
1164               (uri (string-append
1165                     "https://github.com/google/material-design-icons/archive/"
1166                     version ".tar.gz"))
1167               (sha256
1168                (base32
1169                 "018i3za9r6kf6svci33z09lc5pr5yz4164m8gzzwjzzqcrng0p5j"))
1170               (file-name (string-append name "-" version ".tar.gz"))))
1171     (build-system font-build-system)
1172     (home-page "http://google.github.io/material-design-icons")
1173     (synopsis "Icon font of Google Material Design icons")
1174     (description
1175      "Material design system icons are simple, modern, friendly, and sometimes
1176 quirky.  Each icon is created using our design guidelines to depict in simple
1177 and minimal forms the universal concepts used commonly throughout a UI.
1178 Ensuring readability and clarity at both large and small sizes, these icons
1179 have been optimized for beautiful display on all common platforms and display
1180 resolutions.")
1181     (license license:asl2.0)))
1182
1183 (define-public font-open-dyslexic
1184   (package
1185     (name "font-open-dyslexic")
1186     (version "20160623")
1187     (source
1188      (origin
1189        (method url-fetch)
1190        (uri (string-append "https://github.com/antijingoist/open-dyslexic/"
1191                            "archive/" version "-Stable.tar.gz"))
1192        (file-name (string-append name "-" version ".tar.gz"))
1193        (sha256
1194         (base32
1195          "0al0j9kb32kfavcpq1kigsd36yzvf5yhzqhds0jkh7ngbxyxwkx4"))))
1196     (build-system font-build-system)
1197     (home-page "https://opendyslexic.org")
1198     (synopsis "Font for dyslexics and high readability")
1199     (description "OpenDyslexic is a font designed to help readability for some
1200 of the symptoms of dyslexia.  Letters have heavy weighted bottoms to provide
1201 an indication of orientation to make it more difficult to confuse with other
1202 similar letters.  Consistently weighted bottoms can also help reinforce the
1203 line of text.  The unique shapes of each letter can help prevent flipping and
1204 swapping.  The italic style for OpenDyslexic has been crafted to be used for
1205 emphasis while still being readable.")
1206     (license
1207      (license:fsdg-compatible
1208       "https://www.gnome.org/fonts/#Final_Bitstream_Vera_Fonts"
1209       "The Font Software may be sold as part of a larger software package but
1210 no copy of one or more of the Font Software typefaces may be sold by
1211 itself."))))
1212
1213 (define-public font-dosis
1214   (package
1215     (name "font-dosis")
1216     (version "1.7")
1217     (source
1218      (origin
1219        (method url-fetch/zipbomb)
1220        (uri (string-append "http://www.impallari.com/media/releases/dosis-"
1221                            "v" version ".zip"))
1222        (sha256
1223         (base32
1224          "1qhci68f68mf87jd69vjf9qjq3wydgw1q7ivn3amjb65ls1s0c4s"))))
1225     (build-system font-build-system)
1226     (home-page "http://www.impallari.com/dosis")
1227     (synopsis "Very simple, rounded, sans serif family")
1228     (description
1229      "Dosis is a very simple, rounded, sans serif family.
1230 The lighter weights are minimalist.  The bolder weights have more personality.
1231 The medium weight is nice and balanced.  The overall result is a family
1232 that's clean and modern, and can express a wide range of voices & feelings.
1233 It comes in 7 incremental weights:
1234 ExtraLight, Light, Book, Medium, Semibold, Bold & ExtraBold")
1235     (license license:silofl1.1)))
1236
1237 (define-public font-culmus
1238   (package
1239     (name "font-culmus")
1240     (version "0.133")
1241     (source
1242      (origin
1243        (method url-fetch)
1244        (uri (string-append "https://sourceforge.net/projects/"
1245                            "culmus/files/culmus/" version "/culmus-src-"
1246                            version ".tar.gz"))
1247        (sha256
1248         (base32
1249          "02akysgsqhi15cck54xcacm16q5raf4l7shgb8fnj7xr3c1pbfyp"))))
1250     (build-system font-build-system)
1251     (arguments
1252      `(#:phases
1253        (modify-phases %standard-phases
1254          (add-before 'install 'build
1255            (lambda _
1256              (let ((compile
1257                     (lambda (name ext)
1258                       (invoke
1259                        "fontforge" "-lang=ff"
1260                        "-c" (string-append "Open('" name "');"
1261                                            "Generate('"
1262                                            (basename name "sfd") ext
1263                                            "')")))))
1264                ;; This part based on the fonts shipped in the non-source package.
1265                (for-each (lambda (name)
1266                            (compile name "ttf"))
1267                          (find-files "." "^[^Nachlieli].*\\.sfd$"))
1268                (for-each (lambda (name)
1269                            (compile name "otf"))
1270                          (find-files "." "^Nachlieli.*\\.sfd$"))
1271                #t))))))
1272     (native-inputs
1273      `(("fontforge" ,fontforge)))
1274     (home-page "http://culmus.sourceforge.net/")
1275     (synopsis "TrueType Hebrew Fonts for X11")
1276     (description "14 Hebrew trivial families.  Contain ASCII glyphs from various
1277 sources.  Those families provide a basic set of a serif (Frank Ruehl), sans
1278 serif (Nachlieli) and monospaced (Miriam Mono) trivials.  Also included Miriam,
1279 Drugulin, Aharoni, David, Hadasim etc.  Cantillation marks support is
1280 available in Keter YG.")
1281     (license license:gpl2))) ; consult the LICENSE file included
1282
1283 (define-public font-lohit
1284   (package
1285     (name "font-lohit")
1286     (version "20140220")
1287     (source
1288      (origin
1289        (method url-fetch)
1290        (uri (string-append "https://releases.pagure.org/lohit/lohit-ttf-"
1291                            version ".tar.gz"))
1292        (sha256
1293         (base32
1294          "1rmgr445hw1n851ywy28csfvswz1i6hnc8mzp88qw2xk9j4dn32d"))))
1295     (build-system font-build-system)
1296     (home-page "https://pagure.io/lohit")
1297     (synopsis "Lohit TrueType Indic fonts")
1298     (description "Lohit is a font family designed to cover Indic scripts.
1299 Lohit supports the Assamese, Bengali, Devanagari (Hindi, Kashmiri, Konkani,
1300 Maithili, Marathi, Nepali, Sindhi, Santali, Bodo, Dogri languages), Gujarati,
1301 Kannada, Malayalam, Manipuri, Oriya, Punjabi, Tamil and Telugu scripts.")
1302     (license license:silofl1.1)))
1303
1304 (define-public font-blackfoundry-inria
1305   (package
1306     (name "font-blackfoundry-inria")
1307     (version "1.200")
1308     (home-page "https://github.com/BlackFoundry/InriaFonts")
1309     (source (origin
1310               (method git-fetch)
1311               (uri (git-reference
1312                     (url home-page)
1313                     (commit (string-append "v" version))))
1314               (sha256
1315                (base32
1316                 "06775y99lyh6hj5hzvrx56iybdck8a8xfqkipqd5c4cldg0a9hh8"))
1317               (file-name (string-append name "-" version "-checkout"))))
1318     ;; XXX: There are .ufo directories (the "source") so in theory we should
1319     ;; be able to rebuild TTF and OTF files with FontForge.  Unfortunately a
1320     ;; command like:
1321     ;;
1322     ;;  fontforge -lang=ff -c "Open('InriaSans-Regular.ufo'); Generate('foo.ttf');"
1323     ;;
1324     ;; segfaults in '_UFOLoadGlyph', which calls out to libpython.  :-/
1325     ;; In the meantime we ship the precompiled OTF and TTF files.
1326     (build-system font-build-system)
1327     (synopsis "Inria Sans and Inria Serif type family")
1328     (description
1329      "Inria Sans and Inria Serif are the two members of a type family designed
1330 for Inria, a public research institute in computer science and mathematics.")
1331     (license license:silofl1.1)))
1332
1333 (define-public font-sil-gentium
1334   (package
1335     (name "font-sil-gentium")
1336     (version "5.000")
1337     (source (origin
1338               (method url-fetch)
1339               (uri (string-append
1340                     "https://software.sil.org/downloads/r/gentium/GentiumPlus-"
1341                     version ".zip"))
1342               (sha256
1343                (base32
1344                 "0m7189870hha217n1vgpmf89mwggrxkh679ffi1lxpnjggqi2n9k"))))
1345     ;; Note: The zip file provides TTF files only, but the developer release,
1346     ;; which contains additional files, has a 'SOURCES.txt' file that says
1347     ;; that "the primary source files for the fonts are the fonts themselves".
1348     ;; Thus it looks like the TTF can be considered source.
1349     (build-system font-build-system)
1350     (synopsis "Serif font for the Cyrillic, Greek, and Latin alphabets")
1351     (description
1352      "Gentium is a typeface family designed to enable the diverse ethnic
1353 groups around the world who use the Latin, Cyrillic and Greek scripts to
1354 produce readable, high-quality publications.  The font comes with regular and
1355 italics shapes.  This package provides only TrueType files (TTF).")
1356     (home-page "https://software.sil.org/gentium/")
1357     (license license:silofl1.1)))
1358
1359 (define-public font-sil-charis
1360   (package
1361     (name "font-sil-charis")
1362     (version "5.000")
1363     (source (origin
1364               (method url-fetch)
1365               (uri (string-append
1366                     "https://software.sil.org/downloads/r/charis/CharisSIL-"
1367                     version ".zip"))
1368               (sha256
1369                (base32
1370                 "1zcvw37f1a7gkml3yfm6hxh93844llm7xj4w52600qq3ndrm8gjy"))))
1371     ;; As for Gentium (see above), the TTF files are considered source.
1372     (build-system font-build-system)
1373     (synopsis "Serif font for the Cyrillic and Latin alphabets")
1374     (description
1375      "Charis SIL is a Unicode-based font family that supports the wide range
1376 of languages that use the Latin and Cyrillic scripts.  It is specially
1377 designed to make long texts pleasant and easy to read, even in less than ideal
1378 reproduction and display environments.  This package provides only TrueType
1379 files (TTF).")
1380     (home-page "https://software.sil.org/charis/")
1381     (license license:silofl1.1)))
1382
1383 (define-public font-mononoki
1384   (package
1385     (name "font-mononoki")
1386     (version "1.2")
1387     (source (origin
1388               (method git-fetch)
1389               (uri (git-reference
1390                     (url "https://github.com/madmalik/mononoki/")
1391                     (commit version)))
1392               (sha256
1393                (base32
1394                 "1rkzyxn30rn8qv2h2xz324j7q15hzg2lci8790a7cdl1dfgic4xi"))
1395               (file-name (git-file-name name version))))
1396     (build-system font-build-system)
1397     (synopsis "Font for programming and code review")
1398     (description
1399      "Mononoki is a typeface by Matthias Tellen, created to enhance code
1400 formatting.")
1401     (home-page "https://madmalik.github.io/mononoki/")
1402     (license license:silofl1.1)))