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               (file-name (string-append "wqy-zenhei-" version ".tar.gz"))
 509               (sha256
 510                (base32
 511                 "1mkmxq8g2hjcglb3zajfqj20r4r88l78ymsp2xyl5yav8w3f7dz4"))))
 512     (build-system font-build-system)
 513     (home-page "http://wenq.org/wqy2/")
 514     (synopsis "CJK font")
 515     (description
 516      "WenQuanYi Zen Hei is a Hei-Ti style (sans-serif type) Chinese outline
 517 font.  It is designed for general purpose text formatting and on-screen
 518 display of Chinese characters and symbols from many other languages.
 519 WenQuanYi Zen Hei provides a rather complete coverage of Chinese Hanzi glyphs,
 520 including both simplified and traditional forms.  The total glyph number in
 521 this font is over 35,000, including over 21,000 Chinese Hanzi.  This font has
 522 full coverage of the GBK (CP936) charset, CJK Unified Ideographs, as well as
 523 the code-points needed for zh_cn, zh_sg, zh_tw, zh_hk, zh_mo, ja (Japanese) and
 524 ko (Korean) locales for @code{fontconfig}.")
 525     ;; GPLv2 with font embedding exception
 526     (license license:gpl2)))
 527
 528 (define-public font-wqy-microhei
 529   (package
 530     (name "font-wqy-microhei")
 531     (version "0.2.0-beta")
 532     (source (origin
 533               (method url-fetch)
 534               (uri (string-append "mirror://sourceforge/wqy/wqy-microhei/"
 535                                   version "/wqy-microhei-" version ".tar.gz"))
 536               (sha256
 537                (base32
 538                 "0gi1yxqph8xx869ichpzzxvx6y50wda5hi77lrpacdma4f0aq0i8"))))
 539     (build-system font-build-system)
 540     (home-page "http://wenq.org/wqy2/")
 541     (synopsis "CJK font")
 542     (description
 543      "WenQuanYi Micro Hei is a Sans-Serif style (also known as Hei, Gothic or
 544 Dotum among the Chinese/Japanese/Korean users) high quality CJK outline font.
 545 It was derived from \"Droid Sans Fallback\" and \"Droid Sans\" released by
 546 Google Inc.  This font contains all the unified CJK Han glyphs in the range of
 547 U+4E00-U+9FC3 defined in Unicode Standard 5.1, together with many other
 548 languages unicode blocks, including Latins, Extended Latins, Hanguls and
 549 Kanas.  The font file is extremely compact (~4M) compared with most known CJK
 550 fonts.")
 551     ;; This font is licensed under Apache2.0 or GPLv3 with font embedding
 552     ;; exceptions.
 553     (license license:gpl3)))
 554
 555 (define-public font-rachana
 556   (package
 557     (name "font-rachana")
 558     (version "7.0")
 559     (source
 560      (origin
 561        (method url-fetch)
 562        (uri (string-append
 563              "https://gitlab.com/smc/rachana/repository/archive.tar.gz?ref=Version"
 564              version))
 565        (file-name (string-append name "-" version ".tar.gz"))
 566        (sha256
 567         (base32
 568          "0jc091gshna6p1dd6lf507jxkgk6rsja835fc9dm71mcplq53bm1"))))
 569     (build-system font-build-system)
 570     (home-page "https://smc.org.in")
 571     (synopsis "Malayalam font")
 572     (description
 573      "Rachana is a Malayalam font designed by Hussain K H.  The project was
 574 part of Rachana Aksharavedi for the original script of Malayalam in computing.
 575 Rachana has about 1,200+ glyphs for Malayalam and contains glyphs required for
 576 printing old Malayalam books without compromising the writing style.")
 577     ;; This font is licensed under SIL 1.1 or GPLv3+ with font embedding
 578     ;; exceptions.
 579     (license (list license:silofl1.1 license:gpl3+))))
 580
 581 (define-public font-tex-gyre
 582   (package
 583     (name "font-tex-gyre")
 584     (version "2.005")
 585     (source
 586      (origin
 587        (method url-fetch/zipbomb)
 588        (uri (string-append "http://www.gust.org.pl/projects/e-foundry/"
 589                            "tex-gyre/whole/tg-" version "otf.zip"))
 590        (sha256
 591         (base32
 592          "0kph9l3g7jb2bpmxdbdg5zl56wacmnvdvsdn7is1gc750sqvsn31"))))
 593     (build-system font-build-system)
 594     (home-page "http://www.gust.org.pl/projects/e-foundry/tex-gyre/")
 595     (synopsis "Remake of Ghostscript fonts")
 596     (description "The TeX Gyre collection of fonts is the result of an
 597 extensive remake and extension of the freely available base PostScript fonts
 598 distributed with Ghostscript version 4.00.  The collection contains the
 599 following fonts in the OpenType format: Adventor, Bonum, Chorus, Cursor,
 600 Heros, Pagella, Schola, Termes.")
 601     (license license:gfl1.0)))
 602
 603 (define-public font-anonymous-pro
 604   (package
 605     (name "font-anonymous-pro")
 606     (version "1.002")
 607     (source (origin
 608               (method url-fetch)
 609               (uri (string-append
 610                     "http://www.marksimonson.com/assets/content/fonts/"
 611                     "AnonymousPro-" version ".zip"))
 612               (sha256
 613                (base32
 614                 "1asj6lykvxh46czbal7ymy2k861zlcdqpz8x3s5bbpqwlm3mhrl6"))))
 615     (build-system font-build-system)
 616     (home-page "http://www.marksimonson.com/fonts/view/anonymous-pro")
 617     (synopsis "Fixed-width fonts designed with coding in mind")
 618     (description "Anonymous Pro is a family of four fixed-width fonts designed
 619 with coding in mind.  Anonymous Pro features an international, Unicode-based
 620 character set, with support for most Western and Central European Latin-based
 621 languages, plus Greek and Cyrillic.")
 622     (license license:silofl1.1)))
 623
 624 (define-public font-gnu-unifont
 625   (package
 626     (name "font-gnu-unifont")
 627     (version "11.0.03")
 628     (source (origin
 629               (method url-fetch)
 630               (uri (string-append
 631                     "mirror://gnu/unifont/unifont-" version "/unifont-"
 632                     version ".tar.gz"))
 633               (sha256
 634                (base32
 635                 "171zhm52c4rzpn19qcq4n9nyfbcjl38v50zslhvgpjdcmc5jvhav"))))
 636     (build-system gnu-build-system)
 637     (outputs '("out"   ; TrueType version
 638                "pcf"   ; PCF (bitmap) version
 639                "psf"   ; PSF (console) version
 640                "bin")) ; Utilities to manipulate '.hex' format
 641     (arguments
 642      '(#:tests? #f          ; no check target
 643        #:phases
 644        (modify-phases %standard-phases
 645          (replace
 646           'configure
 647           (lambda _ (setenv "CC" "gcc") #t))
 648          (replace
 649           'install
 650           (lambda* (#:key outputs #:allow-other-keys)
 651             (let* ((ttf (string-append (assoc-ref outputs "out")
 652                                        "/share/fonts/truetype"))
 653                    (pcf (string-append (assoc-ref outputs "pcf")
 654                                        "/share/fonts/misc"))
 655                    (psf (string-append (assoc-ref outputs "psf")
 656                                        "/share/consolefonts"))
 657                    (bin (assoc-ref outputs "bin")))
 658               (invoke "make"
 659                       (string-append "PREFIX=" bin)
 660                       (string-append "TTFDEST=" ttf)
 661                       (string-append "PCFDEST=" pcf)
 662                       (string-append "CONSOLEDEST=" psf)
 663                       "install")
 664               ;; Move Texinfo file to the right place.
 665               (mkdir (string-append bin "/share/info"))
 666               (invoke "gzip" "-9n" "doc/unifont.info")
 667               (install-file "doc/unifont.info.gz"
 668                             (string-append bin "/share/info"))
 669               #t))))))
 670     (inputs
 671      `(("perl" ,perl))) ; for utilities
 672     (synopsis
 673      "Large bitmap font covering Unicode's Basic Multilingual Plane")
 674     (description
 675      "GNU Unifont is a bitmap font covering essentially all of
 676 Unicode's Basic Multilingual Plane.  The package also includes
 677 utilities to ease adding new glyphs to the font.")
 678     (home-page "http://unifoundry.com/unifont.html")
 679     (properties '((upstream-name . "unifont")))
 680     (license license:gpl2+)))
 681
 682 (define-public font-google-noto
 683   (package
 684     (name "font-google-noto")
 685     (version "20170403")
 686     (source (origin
 687               (method url-fetch/zipbomb)
 688               (uri (string-append "https://noto-website.storage.googleapis.com/"
 689                                   "pkgs/Noto-hinted.zip"))
 690               (file-name (string-append name "-" version ".zip"))
 691               (sha256
 692                (base32
 693                 "1p92a6dvs7wqwjfpp1ahr9z1wz35am0l8r78521383spd77bmrfm"))))
 694     (build-system font-build-system)
 695     (home-page "https://www.google.com/get/noto/")
 696     (synopsis "Fonts to cover all languages")
 697     (description "Google Noto Fonts is a family of fonts designed to support
 698 all languages with a consistent look and aesthetic.  Its goal is to properly
 699 display all Unicode symbols.")
 700     (license license:silofl1.1)))
 701
 702 (define-public font-google-roboto
 703   (package
 704     (name "font-google-roboto")
 705     (version "2.136")
 706     (source
 707      (origin
 708        (method url-fetch)
 709        (uri (string-append "https://github.com/google/roboto/releases/download/"
 710                            "v" version "/roboto-hinted.zip"))
 711        (file-name (string-append name "-" version ".zip"))
 712        (sha256
 713         (base32
 714          "0spscx08fad7i8qs7icns96iwcapniq8lwwqqvbf7bamvs8qfln4"))))
 715     (build-system font-build-system)
 716     (home-page "https://github.com/google/roboto")
 717     (synopsis "The Roboto family of fonts")
 718     (description
 719      "Roboto is Google’s signature family of fonts, the default font on Android
 720 and Chrome OS, and the recommended font for the
 721 visual language \"Material Design\".")
 722     (license license:asl2.0)))
 723
 724 (define-public font-un
 725   (package
 726     (name "font-un")
 727     (version "1.0.2-080608")
 728     (source (origin
 729               (method url-fetch)
 730               (uri (string-append
 731                     "https://kldp.net/unfonts/release/2607-"
 732                     "un-fonts-core-" version ".tar.gz"))
 733               (file-name (string-append name "-" version ".tar.gz"))
 734               (sha256
 735                (base32
 736                 "13liaz2pmww3aqabm55la5npd08m1skh334ky7qfidxaz5s742iv"))))
 737     (build-system font-build-system)
 738     (home-page "https://kldp.net/projects/unfonts/")
 739     (synopsis "Collection of Korean fonts")
 740     (description
 741      "Un-fonts is a family of mainly Korean fonts.
 742 It contains the following fonts and styles:
 743
 744 @enumerate
 745 @item UnBatang, UnBatangBold: serif;
 746 @item UnDotum, UnDotumBold: sans-serif;
 747 @item UnGraphic, UnGraphicBold: sans-serif style;
 748 @item UnDinaru, UnDinaruBold, UnDinaruLight;
 749 @item UnPilgi, UnPilgiBold: script;
 750 @item UnGungseo: cursive, brush-stroke.
 751 @end enumerate\n")
 752     (license license:gpl2+)))
 753
 754 (define-public font-fantasque-sans
 755   (package
 756     (name "font-fantasque-sans")
 757     (version "1.7.2")
 758     (source
 759      (origin
 760        (method git-fetch)
 761        (uri (git-reference
 762              (url "https://github.com/belluzj/fantasque-sans.git")
 763              (commit (string-append "v" version))))
 764        (file-name (git-file-name name version))
 765        (sha256
 766         (base32
 767          "1gjranq7qf20rfxnpxsckv1hl35nzsal0rjs475nhfbpqy5wmly6"))))
 768     (build-system gnu-build-system)
 769     (native-inputs
 770      `(("ttfautohint" ,ttfautohint)
 771        ("woff-tools" ,woff-tools)
 772        ("fontforge" ,fontforge)
 773        ("woff2" ,woff2)
 774        ("ttf2eot" ,ttf2eot)
 775        ("zip" ,zip)))
 776     (arguments
 777      `(#:tests? #f                 ;test target intended for visual inspection
 778        #:phases (modify-phases %standard-phases
 779                   (delete 'configure)   ;no configuration
 780                   (add-before 'build 'xrange->range
 781                     ;; Rather than use a python2 fontforge, just replace the
 782                     ;; offending function.
 783                     (lambda _
 784                       (substitute* "Scripts/fontbuilder.py"
 785                         (("xrange") "range"))
 786                       #t))
 787                   (replace 'install
 788                     ;; 'make install' wants to install to ~/.fonts, install to
 789                     ;; output instead.  Install only the "Normal" variant.
 790                     (lambda* (#:key outputs #:allow-other-keys)
 791                       (let* ((out (assoc-ref outputs "out"))
 792                              (font-dir (string-append out "/share/fonts"))
 793                              (truetype-dir (string-append font-dir "/truetype"))
 794                              (opentype-dir (string-append font-dir "/opentype"))
 795                              (webfonts-dir (string-append font-dir "/webfonts")))
 796                         (with-directory-excursion "Variants/Normal"
 797                           (copy-recursively "OTF" opentype-dir)
 798                           (for-each (lambda (f) (install-file f truetype-dir))
 799                                     (find-files "." "\\.ttf$"))
 800                           (copy-recursively "Webfonts" webfonts-dir)
 801                           #t)))))))
 802     (synopsis "Font family with a monospaced variant for programmers")
 803     (description
 804      "Fantasque Sans Mono is a programming font designed with functionality in
 805 mind.  The font includes a bold version and a good italic version with new
 806 glyph designs, not just an added slant.")
 807     (home-page "https://fontlibrary.org/en/font/fantasque-sans-mono")
 808     (license license:silofl1.1)))
 809
 810 (define-public font-hack
 811   (package
 812     (name "font-hack")
 813     (version "3.003")
 814     (source (origin
 815               (method url-fetch/zipbomb)
 816               (uri (string-append
 817                     "https://github.com/source-foundry/Hack/releases/download/v"
 818                     version "/Hack-v" version "-ttf.zip"))
 819               (sha256
 820                (base32
 821                 "1b4hh8zkrx92m2v2vfkja1napb0192p0j3laqr0m018z3dih89hc"))))
 822     (build-system font-build-system)
 823     (home-page "https://sourcefoundry.org/hack/")
 824     (synopsis "Typeface designed for source code")
 825     (description
 826      "Hack is designed to be a workhorse typeface for code.  It expands upon
 827 the Bitstream Vera & DejaVu projects, provides over 1,500 glyphs, and includes
 828 Powerline support.")
 829     (license
 830      ;; See https://github.com/source-foundry/Hack/issues/271 for details.
 831      (list license:expat                ; the Hack modifications to...
 832            license:public-domain        ; ...the DejaVu modifications to...
 833            (license:x11-style           ; ...the Bitstream Vera typeface
 834             "file://LICENSE.md" "Bitstream Vera License")))))
 835
 836 (define-public font-adobe-source-code-pro
 837   (package
 838     (name "font-adobe-source-code-pro")
 839     (version "2.030R-ro-1.050R-it")
 840     (source (origin
 841               (method url-fetch)
 842               (uri (string-append
 843                     "https://github.com/adobe-fonts/source-code-pro/archive/"
 844                     (regexp-substitute/global
 845                      ;; The upstream tag uses "/" between the roman and italic
 846                      ;; versions, so substitute our "-" separator here.
 847                      #f "R-ro-" version 'pre "R-ro/" 'post) ".tar.gz"))
 848               (file-name (string-append name "-" version ".tar.gz"))
 849               (sha256
 850                (base32
 851                 "0arhhsf3i7ss39ykn73d1j8k4n8vx7115xph6jwkd970p1cxvr54"))))
 852     (build-system font-build-system)
 853     (home-page "https://github.com/adobe-fonts/source-code-pro")
 854     (synopsis
 855      "Monospaced font family for user interface and coding environments")
 856     (description
 857      "Source Code Pro is a set of monospaced OpenType fonts that have been
 858 designed to work well in user interface environments.")
 859     (license license:silofl1.1)))
 860
 861 (define-public font-adobe-source-sans-pro
 862   (package
 863     (name "font-adobe-source-sans-pro")
 864     (version "2.040R-ro-1.090R-it")
 865     (source (origin
 866               (method url-fetch)
 867               (uri (string-append
 868                     "https://github.com/adobe-fonts/source-sans-pro/archive/"
 869                     (regexp-substitute/global
 870                      ;; The upstream tag uses "/" between the roman and italic
 871                      ;; versions, so substitute our "-" separator here.
 872                      #f "R-ro-" version 'pre "R-ro/" 'post) ".tar.gz"))
 873               (file-name (string-append name "-" version ".tar.gz"))
 874               (sha256
 875                (base32
 876                 "1wpbhd2idps53ph8rg1mhr3vz4lsgbpjprcq10nliwcxdz9d8lv0"))))
 877     (build-system font-build-system)
 878     (home-page "https://github.com/adobe-fonts/source-sans-pro")
 879     (synopsis
 880      "Sans serif font family for user interface environments")
 881     (description
 882      "Source Sans Pro is a set of OpenType fonts that have been designed to
 883 work well in user interface (UI) environments.")
 884     (license license:silofl1.1)))
 885
 886 (define-public font-adobe-source-serif-pro
 887   (package
 888     (name "font-adobe-source-serif-pro")
 889     (version "2.007R-ro-1.007R-it")
 890     (source (origin
 891               (method url-fetch)
 892               (uri (string-append
 893                     "https://github.com/adobe-fonts/source-serif-pro/archive/"
 894                     (regexp-substitute/global
 895                      ;; The upstream tag uses "/" between the roman and italic
 896                      ;; versions, so substitute our "-" separator here.
 897                      #f "R-ro-" version 'pre "R-ro/" 'post) ".tar.gz"))
 898               (file-name (string-append name "-" version ".tar.gz"))
 899               (sha256
 900                (base32
 901                 "1sws9k26ldqk375qsigk1zv8cq1xlvadjwvv3dqrcc3qzm1c7hwc"))))
 902     (build-system font-build-system)
 903     (home-page "https://github.com/adobe-fonts/source-serif-pro")
 904     (synopsis
 905      "Serif typeface to complement Source Sans Pro for setting text")
 906     (description
 907      "Source Serif Pro is a set of OpenType fonts to complement the Source
 908 Sans Pro family.")
 909     (license license:silofl1.1)))
 910
 911 (define-public font-fira-mono
 912   (package
 913     (name "font-fira-mono")
 914     (version "3.206")
 915     (source (origin
 916               (method url-fetch)
 917               (uri (string-append "https://carrois.com/downloads/fira_mono_3_2/"
 918                                   "FiraMonoFonts"
 919                                   (string-replace-substring version "." "")
 920                                   ".zip"))
 921               (sha256
 922                (base32
 923                 "1z65x0dw5dq6rs6p9wyfrir50rlh95vgzsxr8jcd40nqazw4jhpi"))))
 924     (build-system font-build-system)
 925     (home-page "https://mozilla.github.io/Fira/")
 926     (synopsis "Mozilla's monospace font")
 927     (description "This is the typeface used by Mozilla in Firefox OS.")
 928     (license license:silofl1.1)))
 929
 930 (define-public font-fira-sans
 931   (package
 932     (name "font-fira-sans")
 933     (version "4.202")
 934     (source (origin
 935               (method url-fetch)
 936               (uri (string-append "https://github.com/mozilla/Fira/archive/"
 937                                   version ".tar.gz"))
 938               (file-name (string-append name "-" version ".tar.gz"))
 939               (sha256
 940                (base32
 941                 "1r6zdnqqp4bgq5nmgqbj0vvj7x1h9w912851ggbl9wc7fdjnjqnq"))))
 942     (build-system font-build-system)
 943     (home-page "https://mozilla.github.io/Fira/")
 944     (synopsis "Mozilla's Fira Sans Font")
 945     (description "This is the typeface used by Mozilla in Firefox OS.")
 946     (license license:silofl1.1)))
 947
 948 (define-public font-fira-code
 949   (package
 950     (name "font-fira-code")
 951     (version "1.205")
 952     (source (origin
 953               (method url-fetch/zipbomb)
 954               (uri (string-append "https://github.com/tonsky/FiraCode/releases/"
 955                                   "download/" version
 956                                   "/FiraCode_" version ".zip"))
 957               (sha256
 958                (base32
 959                 "13bxgf59g6fw5191xclcjzn22hj8jk9k5jjwf7vz07mpjbgadcl5"))))
 960     (build-system font-build-system)
 961     (home-page "https://mozilla.github.io/Fira/")
 962     (synopsis "Monospaced font with programming ligatures")
 963     (description
 964      "Fira Code is an extension of the Fira Mono font containing a set of ligatures
 965 for common programming multi-character combinations.  This is just a font rendering
 966 feature: underlying code remains ASCII-compatible.  This helps to read and understand
 967 code faster.  For some frequent sequences like .. or //, ligatures allow us to
 968 correct spacing.")
 969     (license license:silofl1.1)))
 970
 971 (define-public font-awesome
 972   (package
 973    (name "font-awesome")
 974    ;; XXX The build scripts of version 5 are not freely licensed and
 975    ;; so we have to stick with version 4 for now:
 976    ;; <https://bugs.gnu.org/32916>
 977    (version "4.7.0")
 978    (source (origin
 979             (method url-fetch)
 980             (uri (string-append "http://fontawesome.io/assets/"
 981                                 name "-" version ".zip"))
 982             (sha256
 983              (base32
 984               "1m1rfwm4sjkv10j3xd2dhwk286a5912b2zgvc692cmxi5gxs68jf"))))
 985    (build-system font-build-system)
 986    (home-page "http://fontawesome.io")
 987    (synopsis "Font that contains a rich iconset")
 988    (description
 989     "Font Awesome is a full suite of pictographic icons for easy scalable
 990 vector graphics.")
 991    (license license:silofl1.1)))
 992
 993 (define-public font-tamzen
 994   (package
 995     (name "font-tamzen")
 996     (version "1.11.4")
 997     (source
 998      (origin
 999        (method url-fetch)
1000        (uri (string-append "https://github.com/sunaku/tamzen-font/archive/"
1001                            "Tamzen-" version ".tar.gz"))
1002        (file-name (string-append name "-" version ".tar.gz"))
1003        (sha256
1004         (base32
1005          "1ryd7gp6qiwaqw73jqbmh4kwlriyd8xykh4j7z90z8xp9fm7lrys"))))
1006     (build-system trivial-build-system)
1007     (arguments
1008      `(#:modules ((guix build utils))
1009        #:builder
1010        (begin
1011          (use-modules (guix build utils))
1012
1013          (let ((tar      (string-append (assoc-ref %build-inputs "tar")
1014                                         "/bin/tar"))
1015                (PATH     (string-append (assoc-ref %build-inputs "gzip")
1016                                         "/bin"))
1017                (font-dir (string-append %output "/share/fonts/misc"))
1018                (psf-dir (string-append %output "/share/kbd/consolefonts"))
1019                (src-pcf-dir (string-append "tamzen-font-Tamzen-"
1020                                             ,version "/pcf")))
1021            (setenv "PATH" PATH)
1022            (invoke tar "xvf" (assoc-ref %build-inputs "source"))
1023            (mkdir-p font-dir)
1024            (mkdir-p psf-dir)
1025            (chdir src-pcf-dir)
1026            (for-each (lambda (pcf)
1027                        (install-file pcf font-dir))
1028                      (find-files "." "\\.pcf$"))
1029            (chdir "../psf")
1030            (for-each (lambda (psf)
1031                        (install-file psf psf-dir))
1032                      (find-files "." "\\.psf$"))
1033            #t))))
1034     (native-inputs
1035      `(("tar" ,tar)
1036        ("gzip" ,gzip)))
1037     (home-page "https://github.com/sunaku/tamzen-font")
1038     (synopsis "Monospaced bitmap font for console and X11")
1039     (description
1040      "Tamzen is a fork of the @code{Tamsyn} font.  It is programatically forked
1041 from @code{Tamsyn} version 1.11, backporting glyphs from older versions while
1042 deleting deliberately empty glyphs (which are marked as unimplemented) to
1043 allow secondary/fallback fonts to provide real glyphs at those codepoints.
1044
1045 The @code{TamzenForPowerline} fonts provide additional @code{Powerline} symbols,
1046 which are programatically injected with @code{bitmap-font-patcher} and
1047 later hand-tweaked with the gbdfed(1) editor:
1048
1049 @enumerate
1050 @item all icons are expanded to occupy the maximum available space
1051 @item the branch of the fork icon ( U+E0A0) was made larger than the trunk
1052 @item for the newline icon ( U+E0A1), the @emph{N} was made larger at the bottom
1053 @item the keyhole in the padlock icon ( U+E0A2) was replaced with @emph{//} lines.
1054 @end enumerate\n")
1055     (license (license:non-copyleft "file://LICENSE"))))
1056
1057 (define-public font-comic-neue
1058   (package
1059     (name "font-comic-neue")
1060     (version "2.3")
1061     (source (origin
1062               (method url-fetch/zipbomb)
1063               (uri (string-append
1064                     "http://www.comicneue.com/comic-neue-" version ".zip"))
1065               (sha256
1066                (base32
1067                 "1695hkpd8kqnr2a88p8xs496slgzxjjkzpa9aa33ml3pnh7519zk"))))
1068     (build-system font-build-system)
1069     (arguments
1070      `(#:phases
1071        (modify-phases %standard-phases
1072          ;; Delete Mac OS X specific files. If not deleted, these cause
1073          ;; several hidden files to be installed.
1074          (add-before 'install 'delete-macosx-files
1075            (lambda _
1076              (delete-file-recursively "__MACOSX")
1077              #t))
1078          (add-after 'install 'install-conf
1079            (lambda* (#:key outputs #:allow-other-keys)
1080              (let ((conf-dir (string-append (assoc-ref outputs "out")
1081                                             "/share/fontconfig/conf.avail")))
1082                (mkdir-p conf-dir)
1083                (call-with-output-file
1084                    (string-append conf-dir "/30-comic-neue.conf")
1085                  (lambda (port)
1086                    (format port "<?xml version=\"1.0\"?>
1087 <!DOCTYPE fontconfig SYSTEM \"fonts.dtd\">
1088 <fontconfig>
1089   <!-- If Comic Sans is missing, use Comic Neue instead. -->
1090   <alias>
1091     <family>Comic Sans MS</family>
1092     <prefer>
1093       <family>Comic Neue</family>
1094     </prefer>
1095   </alias>
1096 </fontconfig>\n"))))
1097              #t)))))
1098     (home-page "http://www.comicneue.com/")
1099     (synopsis "Font that fixes the shortcomings of Comic Sans")
1100     (description
1101      "Comic Neue is a font that attempts to create a respectable casual
1102 typeface, by mimicking Comic Sans while fixing its most obvious shortcomings.")
1103     (license license:silofl1.1)))
1104
1105 (define-public font-iosevka
1106   (package
1107     (name "font-iosevka")
1108     (version "1.12.5")
1109     (source (origin
1110               (method url-fetch/zipbomb)
1111               (uri (string-append
1112                     "https://github.com/be5invis/Iosevka/releases/download/v"
1113                     version "/iosevka-pack-" version ".zip"))
1114               (sha256
1115                (base32
1116                 "0s3g6mk0ngwsrw9h9dqinb50cd9i8zhqdcmmh93fhyf4d87yfwyi"))))
1117     (build-system font-build-system)
1118     (home-page "https://be5invis.github.io/Iosevka/")
1119     (synopsis "Coders' typeface, built from code")
1120     (description
1121      "Iosevka is a slender monospace sans-serif or slab-serif typeface inspired
1122 by Pragmata Pro, M+, and PF DIN Mono, designed to be the ideal font for
1123 programming.  Iosevka is completely generated from its source code.")
1124     (license (list license:silofl1.1 ; build artifacts (i.e. the fonts)
1125                    license:bsd-3)))) ; supporting code
1126
1127 (define-public font-go
1128   (let ((commit "f03a046406d4d7fbfd4ed29f554da8f6114049fc")
1129         (revision "1"))
1130     (package
1131       (name "font-go")
1132       (version (string-append "20170330-" revision "." (string-take commit 7)))
1133       (source (origin
1134                 (file-name (string-append "go-image-" version "-checkout"))
1135                 (method git-fetch)
1136                 (uri (git-reference
1137                       (url "https://go.googlesource.com/image")
1138                       (commit commit)))
1139                 (sha256
1140                  (base32
1141                   "1aq6mnjayks55gd9ahavk6jfydlq5lm4xm0xk4pd5sqa74p5p74d"))))
1142       (build-system font-build-system)
1143       (arguments
1144        `(#:phases
1145          (modify-phases %standard-phases
1146            (add-before 'install 'chdir
1147              (lambda _
1148                (chdir "font/gofont/ttfs")
1149                #t)))))
1150       (home-page "https://blog.golang.org/go-fonts")
1151       (synopsis "The Go font family")
1152       (description
1153        "The Go font family is a set of WGL4 TrueType fonts from the Bigelow &
1154 Holmes type foundry, released under the same license as the Go programming
1155 language.  It includes a set of proportional, sans-serif fonts, and a set of
1156 monospace, slab-serif fonts.")
1157       (license license:bsd-3))))
1158
1159 (define-public font-google-material-design-icons
1160   (package
1161     (name "font-google-material-design-icons")
1162     (version "3.0.1")
1163     (source (origin
1164               (method url-fetch)
1165               (uri (string-append
1166                     "https://github.com/google/material-design-icons/archive/"
1167                     version ".tar.gz"))
1168               (sha256
1169                (base32
1170                 "018i3za9r6kf6svci33z09lc5pr5yz4164m8gzzwjzzqcrng0p5j"))
1171               (file-name (string-append name "-" version ".tar.gz"))))
1172     (build-system font-build-system)
1173     (home-page "http://google.github.io/material-design-icons")
1174     (synopsis "Icon font of Google Material Design icons")
1175     (description
1176      "Material design system icons are simple, modern, friendly, and sometimes
1177 quirky.  Each icon is created using our design guidelines to depict in simple
1178 and minimal forms the universal concepts used commonly throughout a UI.
1179 Ensuring readability and clarity at both large and small sizes, these icons
1180 have been optimized for beautiful display on all common platforms and display
1181 resolutions.")
1182     (license license:asl2.0)))
1183
1184 (define-public font-open-dyslexic
1185   (package
1186     (name "font-open-dyslexic")
1187     (version "20160623")
1188     (source
1189      (origin
1190        (method url-fetch)
1191        (uri (string-append "https://github.com/antijingoist/open-dyslexic/"
1192                            "archive/" version "-Stable.tar.gz"))
1193        (file-name (string-append name "-" version ".tar.gz"))
1194        (sha256
1195         (base32
1196          "0al0j9kb32kfavcpq1kigsd36yzvf5yhzqhds0jkh7ngbxyxwkx4"))))
1197     (build-system font-build-system)
1198     (home-page "https://opendyslexic.org")
1199     (synopsis "Font for dyslexics and high readability")
1200     (description "OpenDyslexic is a font designed to help readability for some
1201 of the symptoms of dyslexia.  Letters have heavy weighted bottoms to provide
1202 an indication of orientation to make it more difficult to confuse with other
1203 similar letters.  Consistently weighted bottoms can also help reinforce the
1204 line of text.  The unique shapes of each letter can help prevent flipping and
1205 swapping.  The italic style for OpenDyslexic has been crafted to be used for
1206 emphasis while still being readable.")
1207     (license
1208      (license:fsdg-compatible
1209       "https://www.gnome.org/fonts/#Final_Bitstream_Vera_Fonts"
1210       "The Font Software may be sold as part of a larger software package but
1211 no copy of one or more of the Font Software typefaces may be sold by
1212 itself."))))
1213
1214 (define-public font-dosis
1215   (package
1216     (name "font-dosis")
1217     (version "1.7")
1218     (source
1219      (origin
1220        (method url-fetch/zipbomb)
1221        (uri (string-append "http://www.impallari.com/media/releases/dosis-"
1222                            "v" version ".zip"))
1223        (sha256
1224         (base32
1225          "1qhci68f68mf87jd69vjf9qjq3wydgw1q7ivn3amjb65ls1s0c4s"))))
1226     (build-system font-build-system)
1227     (home-page "http://www.impallari.com/dosis")
1228     (synopsis "Very simple, rounded, sans serif family")
1229     (description
1230      "Dosis is a very simple, rounded, sans serif family.
1231 The lighter weights are minimalist.  The bolder weights have more personality.
1232 The medium weight is nice and balanced.  The overall result is a family
1233 that's clean and modern, and can express a wide range of voices & feelings.
1234 It comes in 7 incremental weights:
1235 ExtraLight, Light, Book, Medium, Semibold, Bold & ExtraBold")
1236     (license license:silofl1.1)))
1237
1238 (define-public font-culmus
1239   (package
1240     (name "font-culmus")
1241     (version "0.133")
1242     (source
1243      (origin
1244        (method url-fetch)
1245        (uri (string-append "https://sourceforge.net/projects/"
1246                            "culmus/files/culmus/" version "/culmus-src-"
1247                            version ".tar.gz"))
1248        (sha256
1249         (base32
1250          "02akysgsqhi15cck54xcacm16q5raf4l7shgb8fnj7xr3c1pbfyp"))))
1251     (build-system font-build-system)
1252     (arguments
1253      `(#:phases
1254        (modify-phases %standard-phases
1255          (add-before 'install 'build
1256            (lambda _
1257              (let ((compile
1258                     (lambda (name ext)
1259                       (invoke
1260                        "fontforge" "-lang=ff"
1261                        "-c" (string-append "Open('" name "');"
1262                                            "Generate('"
1263                                            (basename name "sfd") ext
1264                                            "')")))))
1265                ;; This part based on the fonts shipped in the non-source package.
1266                (for-each (lambda (name)
1267                            (compile name "ttf"))
1268                          (find-files "." "^[^Nachlieli].*\\.sfd$"))
1269                (for-each (lambda (name)
1270                            (compile name "otf"))
1271                          (find-files "." "^Nachlieli.*\\.sfd$"))
1272                #t))))))
1273     (native-inputs
1274      `(("fontforge" ,fontforge)))
1275     (home-page "http://culmus.sourceforge.net/")
1276     (synopsis "TrueType Hebrew Fonts for X11")
1277     (description "14 Hebrew trivial families.  Contain ASCII glyphs from various
1278 sources.  Those families provide a basic set of a serif (Frank Ruehl), sans
1279 serif (Nachlieli) and monospaced (Miriam Mono) trivials.  Also included Miriam,
1280 Drugulin, Aharoni, David, Hadasim etc.  Cantillation marks support is
1281 available in Keter YG.")
1282     (license license:gpl2))) ; consult the LICENSE file included
1283
1284 (define-public font-lohit
1285   (package
1286     (name "font-lohit")
1287     (version "20140220")
1288     (source
1289      (origin
1290        (method url-fetch)
1291        (uri (string-append "https://releases.pagure.org/lohit/lohit-ttf-"
1292                            version ".tar.gz"))
1293        (sha256
1294         (base32
1295          "1rmgr445hw1n851ywy28csfvswz1i6hnc8mzp88qw2xk9j4dn32d"))))
1296     (build-system font-build-system)
1297     (home-page "https://pagure.io/lohit")
1298     (synopsis "Lohit TrueType Indic fonts")
1299     (description "Lohit is a font family designed to cover Indic scripts.
1300 Lohit supports the Assamese, Bengali, Devanagari (Hindi, Kashmiri, Konkani,
1301 Maithili, Marathi, Nepali, Sindhi, Santali, Bodo, Dogri languages), Gujarati,
1302 Kannada, Malayalam, Manipuri, Oriya, Punjabi, Tamil and Telugu scripts.")
1303     (license license:silofl1.1)))
1304
1305 (define-public font-blackfoundry-inria
1306   (package
1307     (name "font-blackfoundry-inria")
1308     (version "1.200")
1309     (home-page "https://github.com/BlackFoundry/InriaFonts")
1310     (source (origin
1311               (method git-fetch)
1312               (uri (git-reference
1313                     (url home-page)
1314                     (commit (string-append "v" version))))
1315               (sha256
1316                (base32
1317                 "06775y99lyh6hj5hzvrx56iybdck8a8xfqkipqd5c4cldg0a9hh8"))
1318               (file-name (string-append name "-" version "-checkout"))))
1319     ;; XXX: There are .ufo directories (the "source") so in theory we should
1320     ;; be able to rebuild TTF and OTF files with FontForge.  Unfortunately a
1321     ;; command like:
1322     ;;
1323     ;;  fontforge -lang=ff -c "Open('InriaSans-Regular.ufo'); Generate('foo.ttf');"
1324     ;;
1325     ;; segfaults in '_UFOLoadGlyph', which calls out to libpython.  :-/
1326     ;; In the meantime we ship the precompiled OTF and TTF files.
1327     (build-system font-build-system)
1328     (synopsis "Inria Sans and Inria Serif type family")
1329     (description
1330      "Inria Sans and Inria Serif are the two members of a type family designed
1331 for Inria, a public research institute in computer science and mathematics.")
1332     (license license:silofl1.1)))
1333
1334 (define-public font-sil-gentium
1335   (package
1336     (name "font-sil-gentium")
1337     (version "5.000")
1338     (source (origin
1339               (method url-fetch)
1340               (uri (string-append
1341                     "https://software.sil.org/downloads/r/gentium/GentiumPlus-"
1342                     version ".zip"))
1343               (sha256
1344                (base32
1345                 "0m7189870hha217n1vgpmf89mwggrxkh679ffi1lxpnjggqi2n9k"))))
1346     ;; Note: The zip file provides TTF files only, but the developer release,
1347     ;; which contains additional files, has a 'SOURCES.txt' file that says
1348     ;; that "the primary source files for the fonts are the fonts themselves".
1349     ;; Thus it looks like the TTF can be considered source.
1350     (build-system font-build-system)
1351     (synopsis "Serif font for the Cyrillic, Greek, and Latin alphabets")
1352     (description
1353      "Gentium is a typeface family designed to enable the diverse ethnic
1354 groups around the world who use the Latin, Cyrillic and Greek scripts to
1355 produce readable, high-quality publications.  The font comes with regular and
1356 italics shapes.  This package provides only TrueType files (TTF).")
1357     (home-page "https://software.sil.org/gentium/")
1358     (license license:silofl1.1)))
1359
1360 (define-public font-sil-charis
1361   (package
1362     (name "font-sil-charis")
1363     (version "5.000")
1364     (source (origin
1365               (method url-fetch)
1366               (uri (string-append
1367                     "https://software.sil.org/downloads/r/charis/CharisSIL-"
1368                     version ".zip"))
1369               (sha256
1370                (base32
1371                 "1zcvw37f1a7gkml3yfm6hxh93844llm7xj4w52600qq3ndrm8gjy"))))
1372     ;; As for Gentium (see above), the TTF files are considered source.
1373     (build-system font-build-system)
1374     (synopsis "Serif font for the Cyrillic and Latin alphabets")
1375     (description
1376      "Charis SIL is a Unicode-based font family that supports the wide range
1377 of languages that use the Latin and Cyrillic scripts.  It is specially
1378 designed to make long texts pleasant and easy to read, even in less than ideal
1379 reproduction and display environments.  This package provides only TrueType
1380 files (TTF).")
1381     (home-page "https://software.sil.org/charis/")
1382     (license license:silofl1.1)))
1383
1384 (define-public font-mononoki
1385   (package
1386     (name "font-mononoki")
1387     (version "1.2")
1388     (source (origin
1389               (method git-fetch)
1390               (uri (git-reference
1391                     (url "https://github.com/madmalik/mononoki/")
1392                     (commit version)))
1393               (sha256
1394                (base32
1395                 "1rkzyxn30rn8qv2h2xz324j7q15hzg2lci8790a7cdl1dfgic4xi"))
1396               (file-name (git-file-name name version))))
1397     (build-system font-build-system)
1398     (synopsis "Font for programming and code review")
1399     (description
1400      "Mononoki is a typeface by Matthias Tellen, created to enhance code
1401 formatting.")
1402     (home-page "https://madmalik.github.io/mononoki/")
1403     (license license:silofl1.1)))