gnu/packages/fonts.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014, 2015, 2016, 2018, 2019 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 Nikita <nikita@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, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
  15 ;;; Copyright © 2016, 2020 Marius Bakke <mbakke@fastmail.com>
  16 ;;; Copyright © 2016 Toni Reina <areina@riseup.net>
  17 ;;; Copyright © 2017, 2018, 2019, 2020 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 <mail@brendan.scot>
  22 ;;; Copyright © 2017, 2018, 2019, 2020 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 ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  28 ;;; Copyright © 2019 Baptiste Strazzulla <bstrazzull@hotmail.fr>
  29 ;;; Copyright © 2019 Alva <alva@skogen.is>
  30 ;;; Copyright © 2019 Alexandros Theodotou <alex@zrythm.org>
  31 ;;; Copyright © 2020 Damien Cassou <damien@cassou.me>
  32 ;;; Copyright © 2020 Amin Bandali <bandali@gnu.org>
  33 ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
  34 ;;; Copyright © 2020 John Soo <jsoo1@asu.edu>
  35 ;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
  36 ;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
  37 ;;; Copyright © 2020 Zhu Zihao <all_but_last@163.com
  38 ;;;
  39 ;;; This file is part of GNU Guix.
  40 ;;;
  41 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  42 ;;; under the terms of the GNU General Public License as published by
  43 ;;; the Free Software Foundation; either version 3 of the License, or (at
  44 ;;; your option) any later version.
  45 ;;;
  46 ;;; GNU Guix is distributed in the hope that it will be useful, but
  47 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  48 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  49 ;;; GNU General Public License for more details.
  50 ;;;
  51 ;;; You should have received a copy of the GNU General Public License
  52 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  53
  54 (define-module (gnu packages fonts)
  55   #:use-module (ice-9 regex)
  56   #:use-module (guix utils)
  57   #:use-module ((guix licenses) #:prefix license:)
  58   #:use-module (guix packages)
  59   #:use-module (guix download)
  60   #:use-module (guix git-download)
  61   #:use-module (guix build-system font)
  62   #:use-module (guix build-system gnu)
  63   #:use-module (guix build-system meson)
  64   #:use-module (guix build-system trivial)
  65   #:use-module (gnu packages base)
  66   #:use-module (gnu packages compression)
  67   #:use-module (gnu packages fontutils)
  68   #:use-module (gnu packages gettext)
  69   #:use-module (gnu packages glib)
  70   #:use-module (gnu packages gtk)
  71   #:use-module (gnu packages perl)
  72   #:use-module (gnu packages pkg-config)
  73   #:use-module (gnu packages python)
  74   #:use-module (gnu packages python-xyz)
  75   #:use-module (gnu packages xorg))
  76
  77 (define-public font-ibm-plex
  78   (package
  79     (name "font-ibm-plex")
  80     (version "4.0.2")
  81     (source (origin
  82               (method url-fetch)
  83               (uri (string-append
  84                     "https://github.com/IBM/plex/releases/download/"
  85                     "v" version "/OpenType.zip"))
  86               (sha256
  87                (base32
  88                 "17bd84ic7z9hkcjy4bwnh4z51bnkh2vrjzwvs9g6lwzmxjswa5b6"))))
  89     (build-system font-build-system)
  90     (home-page "https://github.com/IBM/plex")
  91     (synopsis "IBM Plex typeface")
  92     (description "This package provides the Plex font family.  It comes in a
  93 Sans, Serif, Mono and Sans Condensed, all with roman and true italics.  The
  94 fonts have been designed to work well in user interface (UI) environments as
  95 well as other mediums.")
  96     (license license:silofl1.1)))
  97
  98 (define-public font-inconsolata
  99   (package
 100     (name "font-inconsolata")
 101     (version "3.000")
 102     (source
 103      (origin
 104        (method url-fetch)
 105        (uri (string-append "https://github.com/googlefonts/Inconsolata/"
 106                            "releases/download/v" version "/fonts_otf.zip"))
 107        (sha256
 108         (base32 "1wavvv86nwsqm5sbmnkv1bprj7l7zdrkxpvjy6w8yag93k6hrlx1"))))
 109     (build-system font-build-system)
 110     (home-page "https://levien.com/type/myfonts/inconsolata.html")
 111     (synopsis "Monospace font")
 112     (description "A monospace font, designed for code listings and the like,
 113 in print.  With attention to detail for high resolution rendering.")
 114     (license license:silofl1.1)))
 115
 116 (define-public font-ubuntu
 117   (package
 118     (name "font-ubuntu")
 119     (version "0.83")
 120     (source (origin
 121               (method git-fetch)
 122               (uri (git-reference
 123                     (url "https://salsa.debian.org/fonts-team/fonts-ubuntu")
 124                     (commit (string-append "upstream/" version))))
 125               (file-name (git-file-name name version))
 126               (sha256
 127                (base32
 128                 "1d2xrjpxy70f3nsgqiggwv6pj06qglf5vj2847pqx60w3ygi903g"))))
 129     (build-system font-build-system)
 130     (home-page "http://font.ubuntu.com/")
 131     (synopsis "The Ubuntu Font Family")
 132     (description "The Ubuntu Font Family is a unique, custom designed font
 133 that has a very distinctive look and feel.  This package provides the
 134 TrueType (TTF) files.")
 135     (license
 136      (license:non-copyleft
 137       "http://font.ubuntu.com/ufl/ubuntu-font-licence-1.0.txt"
 138       "Ubuntu Font License v1.0"))))
 139
 140 (define-public font-dejavu
 141   (package
 142     (name "font-dejavu")
 143     (version "2.37")
 144     (source (origin
 145              (method url-fetch)
 146              (uri (string-append "mirror://sourceforge/dejavu/dejavu/"
 147                                  version "/dejavu-fonts-ttf-"
 148                                  version ".tar.bz2"))
 149              (sha256
 150               (base32
 151                "1mqpds24wfs5cmfhj57fsfs07mji2z8812i5c4pi5pbi738s977s"))))
 152     (build-system font-build-system)
 153     (arguments
 154      `(#:phases
 155        (modify-phases %standard-phases
 156          (add-after 'install 'install-conf
 157            (lambda* (#:key outputs #:allow-other-keys)
 158              (let ((conf-dir (string-append (assoc-ref outputs "out")
 159                                             "/share/fontconfig/conf.avail")))
 160                (copy-recursively "fontconfig" conf-dir)
 161                #t))))))
 162     (home-page "https://dejavu-fonts.github.io/")
 163     (synopsis "Vera font family derivate with additional characters")
 164     (description "DejaVu provides an expanded version of the Vera font family
 165 aiming for quality and broader Unicode coverage while retaining the original
 166 Vera style.  DejaVu currently works towards conformance to the Multilingual
 167 European Standards (MES-1 and MES-2) for Unicode coverage.  The DejaVu fonts
 168 provide serif, sans and monospaced variants.")
 169     (license
 170      (license:x11-style
 171       "http://dejavu-fonts.org/"))))
 172
 173 (define-public font-bitstream-vera
 174   (package
 175     (name "font-bitstream-vera")
 176     (version "1.10")
 177     (source (origin
 178              (method url-fetch)
 179              (uri (string-append "mirror://gnome/sources/ttf-bitstream-vera/"
 180                                  version "/ttf-bitstream-vera-"
 181                                  version ".tar.bz2"))
 182              (sha256
 183               (base32
 184                "1p3qs51x5327gnk71yq8cvmxc6wgx79sqxfvxcv80cdvgggjfnyv"))))
 185     (build-system font-build-system)
 186     (home-page "https://www.gnome.org/fonts/")
 187     (synopsis "Bitstream Vera sans-serif typeface")
 188     (description "Vera is a sans-serif typeface from Bitstream, Inc.  This
 189 package provides the TrueType (TTF) files.")
 190     (license
 191      (license:fsdg-compatible
 192       "https://www.gnome.org/fonts/#Final_Bitstream_Vera_Fonts"
 193       "The Font Software may be sold as part of a larger software package but
 194 no copy of one or more of the Font Software typefaces may be sold by
 195 itself."))))
 196
 197 (define-public font-cantarell
 198   (package
 199     (name "font-abattis-cantarell")
 200     (version "0.201")
 201     (source (origin
 202               (method url-fetch)
 203               (uri (string-append "mirror://gnome/sources/cantarell-fonts/"
 204                                   (version-major+minor version)
 205                                   "/cantarell-fonts-" version ".tar.xz"))
 206               (sha256
 207                (base32
 208                 "0qwqmkczqy09fdj8l11nr841ks0dwsydqg55qyms12m4yvjn87xn"))))
 209     (build-system meson-build-system)
 210     (native-inputs
 211      `(("gettext" ,gettext-minimal)))   ; for msgfmt
 212     (home-page "https://wiki.gnome.org/Projects/CantarellFonts")
 213     (synopsis "Cantarell sans-serif typeface")
 214     (description "The Cantarell font family is a contemporary Humanist
 215 sans-serif designed for on-screen reading.  It is used by GNOME@tie{}3.")
 216     (license license:silofl1.1)))
 217
 218 (define-public font-lato
 219   (package
 220     (name "font-lato")
 221     (version "2.015")                   ; also update description
 222     (source (origin
 223               (method url-fetch/zipbomb)
 224               (uri (string-append "https://www.latofonts.com/download/Lato2OFL.zip"))
 225               (sha256
 226                (base32
 227                 "1f5540g0ja1nx3ddd3ywn77xc81ssrxpq8n3gyb9sabyq2b4xda2"))))
 228     (build-system font-build-system)
 229     (home-page "https://www.latofonts.com/lato-free-fonts/")
 230     (synopsis "Lato sans-serif typeface")
 231     (description
 232      "Lato is a sanserif typeface family.  It covers over 3000 glyphs per style.
 233 The Lato 2.010 family supports more than 100 Latin-based languages, over
 234 50 Cyrillic-based languages as well as Greek and IPA phonetics.")
 235     (license license:silofl1.1)))
 236
 237 (define-public font-gnu-freefont
 238   (package
 239     (name "font-gnu-freefont")
 240     ;; Note: Remove the special FontForge input and package once the 2020
 241     ;; release is out.
 242     (version "20120503")
 243     (source (origin
 244              (method url-fetch)
 245              (uri (string-append "mirror://gnu/freefont/freefont-src-"
 246                                  version ".tar.gz"))
 247              (sha256
 248               (base32
 249                "0yk58blhcd4hm7nyincmqq4jrzjjk82wif2zmk1l3y2m4vif4qhd"))))
 250     (build-system gnu-build-system)
 251     (arguments
 252      `(#:phases (modify-phases %standard-phases
 253                   (delete 'configure)
 254                   (replace 'install
 255                    (lambda _
 256                      (let ((doc-dir  (string-append %output "/share/doc/"
 257                                                     ,name "-" ,version))
 258                            (ttf-font-dir (string-append %output
 259                                                         "/share/fonts/truetype"))
 260                            (otf-font-dir (string-append %output
 261                                                         "/share/fonts/opentype"))
 262                            (woff-font-dir (string-append %output
 263                                                          "/share/fonts/webfonts")))
 264                        (mkdir-p doc-dir)
 265                        (substitute* "Makefile"
 266                          (("\\$\\(TMPDIR\\)") doc-dir)
 267                          (("sfd/\\*.ttf") "")
 268                          (("sfd/\\*.otf") "")
 269                          (("sfd/\\*.woff") ""))
 270                        ;; XXX The FreeFont Makefile tries to use the current
 271                        ;; time and date as names for generated files, and fails
 272                        ;; silently. But the fonts are still installed, so we
 273                        ;; leave the issue alone for now.
 274                        ;; See <https://bugs.gnu.org/40783>
 275                        (system* "make" "ttftar" "otftar" "wofftar")
 276                        (mkdir-p ttf-font-dir)
 277                        (mkdir-p otf-font-dir)
 278                        (mkdir-p woff-font-dir)
 279                        (for-each (lambda (file)
 280                                    (install-file file ttf-font-dir))
 281                                  (filter
 282                                    (lambda (file) (string-suffix? "ttf" file))
 283                                    (find-files "." "")))
 284                        (for-each (lambda (file)
 285                                    (install-file file otf-font-dir))
 286                                  (filter
 287                                    (lambda (file) (string-suffix? "otf" file))
 288                                    (find-files "." "")))
 289                        (for-each (lambda (file)
 290                                    (install-file file woff-font-dir))
 291                                  (filter
 292                                    (lambda (file) (string-suffix? "woff" file))
 293                                    (find-files "." "")))))))
 294        #:test-target "tests"))
 295     ;; FreeFont anno 2012 requires a FontForge built with Python 2.
 296     (native-inputs `(("fontforge" ,fontforge-20190801)))
 297     (home-page "https://www.gnu.org/software/freefont/")
 298     (synopsis "Unicode-encoded outline fonts")
 299     (description
 300      "The GNU Freefont project aims to provide a set of free outline
 301  (PostScript Type0, TrueType, OpenType...) fonts covering the ISO
 302 10646/Unicode UCS (Universal Character Set).")
 303     (license license:gpl3+)
 304     (properties '((upstream-name . "freefont")
 305                   (ftp-directory . "/gnu/freefont")))))
 306
 307 (define-public font-gnu-freefont-ttf
 308   (deprecated-package "font-gnu-freefont-ttf" font-gnu-freefont))
 309
 310 (define-public font-liberation
 311   (package
 312     (name "font-liberation")
 313     (version "2.00.5")
 314     (source
 315      (origin
 316        (method url-fetch)
 317        (uri (string-append "https://github.com/liberationfonts/liberation-fonts/"
 318                            "files/2926169/liberation-fonts-ttf-" version ".tar.gz"))
 319        (sha256
 320         (base32 "0kdjsbf0y716k1kv0i0ixdpvg7b9b8xkcsg6favaxdc7pshg0kzi"))))
 321     (build-system font-build-system)
 322     (home-page "https://github.com/liberationfonts")
 323     (synopsis "Fonts compatible with Arial, Times New Roman, and Courier New")
 324     (description
 325      "The Liberation font family aims at metric compatibility with
 326 Arial, Times New Roman, and Courier New.
 327 There are three sets:
 328
 329 @enumerate
 330 @item Sans (a substitute for Arial, Albany, Helvetica, Nimbus Sans L, and
 331 Bitstream Vera Sans);
 332 @item Serif (a substitute for Times New Roman, Thorndale, Nimbus Roman, and
 333 Bitstream Vera Serif);
 334 @item Mono (a substitute for Courier New, Cumberland, Courier, Nimbus Mono L,
 335 and Bitstream Vera Sans Mono).
 336 @end enumerate
 337
 338 The Liberation Fonts are sponsored by Red Hat.")
 339     (license license:silofl1.1)))
 340
 341 (define-public font-linuxlibertine
 342   (package
 343     (name "font-linuxlibertine")
 344     (version "5.3.0")
 345     (source (origin
 346               (method url-fetch/tarbomb)
 347               (uri (string-append "mirror://sourceforge/linuxlibertine/"
 348                                   "linuxlibertine/" version
 349                                   "/LinLibertineSRC_" version "_2012_07_02.tgz"))
 350               (sha256
 351                (base32
 352                 "0x7cz6hvhpil1rh03rax9zsfzm54bh7r4bbrq8rz673gl9h47v0v"))))
 353     (build-system font-build-system)
 354     (arguments
 355      `(#:phases
 356        (modify-phases %standard-phases
 357          (add-before 'install 'build
 358            (lambda _
 359              (let ((compile
 360                     (lambda (name ext)
 361                       (invoke
 362                        "fontforge" "-lang=ff"
 363                        "-c" (string-append "Open('" name "');"
 364                                            "Generate('"
 365                                            (basename name "sfd") ext
 366                                            "')")))))
 367                (for-each (lambda (name)
 368                            (and (compile name "ttf")
 369                                 (compile name "otf")))
 370                          (find-files "." "\\.sfd$"))
 371                #t))))))
 372     (native-inputs
 373      `(("fontforge" ,fontforge)))
 374     (home-page "http://www.linuxlibertine.org/")
 375     (synopsis "Serif and sans serif typefaces")
 376     (description "The Linux Libertine fonts is a set of typefaces containing
 377 both a Serif version (\"Linux Libertine\") and a Sans Serif (\"Linux
 378 Biolinum\") designed to be used together as an alternative for Times/Times New
 379 Roman and Helvetica/Arial.  The Serif typeface comes in two shapes and two
 380 weights, and with a Small Capitals version of the regular typeface.  Linux
 381 Biolinum is available in both Regular and Bold weights.")
 382     ;; The fonts are released under either of these licenses.
 383     (license (list license:gpl2+ license:silofl1.1))))
 384
 385 (define-public font-terminus
 386   (package
 387     (name "font-terminus")
 388     (version "4.48")
 389     (source
 390      (origin
 391        (method url-fetch)
 392        (uri (string-append "mirror://sourceforge/terminus-font/terminus-font-"
 393                            version "/terminus-font-" version ".tar.gz"))
 394        (sha256
 395         (base32 "1bwlkj39rqbyq57v5yssayav6hzv1n11b9ml2s0dpiyfsn6rqy9l"))))
 396     (build-system gnu-build-system)
 397     (outputs (list "out" "pcf-8bit"))
 398     (arguments
 399      `(#:tests? #f                      ; no test target in tarball
 400        #:phases
 401        (modify-phases %standard-phases
 402          (add-after 'build 'build-more-bits
 403            ;; X11 8-bit code pages aren't installed by default (they were
 404            ;; until version 4.46).  Build and install them separately.
 405            (lambda* (#:key make-flags #:allow-other-keys)
 406              (apply invoke "make" "pcf-8bit" make-flags)))
 407          (add-after 'install 'install-more-bits
 408            (lambda* (#:key make-flags outputs #:allow-other-keys)
 409              (let ((pcf-8bit (assoc-ref outputs "pcf-8bit")))
 410                (apply invoke "make" "install-pcf-8bit" (string-append "prefix="
 411                                                                       pcf-8bit)
 412                       make-flags)))))))
 413     (native-inputs
 414      `(("bdftopcf" ,bdftopcf)
 415        ("font-util" ,font-util)
 416        ("mkfontdir" ,mkfontdir)
 417        ("pkg-config" ,pkg-config)
 418        ("python" ,python)))
 419     (home-page "http://terminus-font.sourceforge.net/")
 420     (synopsis "Simple bitmap programming font")
 421     (description "Terminus Font is a clean, fixed-width bitmap font, designed
 422 for long periods of working with computers (8 or more hours per day).")
 423     (license license:silofl1.1)))
 424
 425 (define-public font-adobe-source-han-sans
 426   (package
 427     (name "font-adobe-source-han-sans")
 428     (version "1.004")
 429     (source (origin
 430               (method git-fetch)
 431               (uri (git-reference
 432                      (url "https://github.com/adobe-fonts/source-han-sans.git")
 433                      (commit (string-append version "R"))))
 434               (file-name (git-file-name name version))
 435               (sha256
 436                (base32
 437                 "0zm884d8fp5gvirq324050kqv7am9khyqhs9kk4r4rr3jzn61jpk"))))
 438     (outputs '("out"                 ; OpenType/CFF Collection (OTC), 121 MiB.
 439                "cn" "jp" "kr" "tw")) ; Region-specific Subset OpenType/CFF.
 440     (build-system trivial-build-system)
 441     (arguments
 442      `(#:modules ((guix build utils))
 443        #:builder
 444        (begin
 445          (use-modules (guix build utils))
 446          (let ((install-opentype-fonts
 447                 (lambda (fonts-dir out)
 448                   (copy-recursively fonts-dir
 449                                     (string-append (assoc-ref %outputs out)
 450                                                    "/share/fonts/opentype")))))
 451            (chdir (assoc-ref %build-inputs "source"))
 452            (install-opentype-fonts "OTC" "out")
 453            (install-opentype-fonts "SubsetOTF/CN" "cn")
 454            (install-opentype-fonts "SubsetOTF/JP" "jp")
 455            (install-opentype-fonts "SubsetOTF/KR" "kr")
 456            (install-opentype-fonts "SubsetOTF/TW" "tw")
 457            (for-each delete-file (find-files %output "\\.zip$"))
 458            #t))))
 459     (home-page "https://github.com/adobe-fonts/source-han-sans")
 460     (synopsis "Pan-CJK fonts")
 461     (description
 462      "Source Han Sans is a sans serif Pan-CJK font family that is offered in
 463 seven weights: ExtraLight, Light, Normal, Regular, Medium, Bold, and Heavy.
 464 And in several OpenType/CFF-based deployment configurations to accommodate
 465 various system requirements or limitations.  As the name suggests, Pan-CJK
 466 fonts are intended to support the characters necessary to render or display
 467 text in Simplified Chinese, Traditional Chinese, Japanese, and Korean.")
 468     (license license:silofl1.1)))
 469
 470 (define-public font-cns11643
 471   ;; Since upstream doesn't provide any version numbers, the date of the last
 472   ;; edit is used, taken from https://data.gov.tw/dataset/5961
 473   ;; XXX: The source is also updated in-place, so it may be desirable to mirror
 474   ;; it elsewhere to avoid suddenly losing the current source file.
 475   (package
 476     (name "font-cns11643")
 477     (version "98.1.20180605")
 478     (source (origin
 479               (method url-fetch)
 480               (uri "http://www.cns11643.gov.tw/AIDB/Open_Data.zip")
 481               (sha256
 482                (base32
 483                 "000a9whrjr1cd4pjc23pbl60zwkq3wcb5g61p9qi7fn3hwkp0kyw"))))
 484     (build-system font-build-system)
 485     (home-page "http://www.cns11643.gov.tw/AIDB/welcome.do")
 486     (synopsis "CJK TrueType fonts, TW-Kai and TW-Sung")
 487     (description
 488      "@code{CNS 11643} character set (Chinese National Standard, or Chinese
 489 Standard Interchange Code) is the standard character set of the Republic of
 490 China (Taiwan) for Chinese Characters and other Unicode symbols.  Contained
 491 are six TrueType fonts based on two script styles, Regular script (Kai), and
 492 Sung/Ming script, each with three variants:
 493
 494 @itemize
 495 @item @code{CNS 11643} (@code{TW-Kai} and @code{TW-Sung}): Tens of thousands
 496 of CJK characters from frequency tables published by the Taiwanese
 497 Ministry of Education.  ISO 10646 and Unicode compatible encoding.
 498 @item @code{Big-5 Plus}: Several thousand frequently used CJK characters
 499 encoded in the user defined area of the Big-5 code.
 500 @item @code{Big-5 Extended}: A Big-5 character set based on the
 501 @code{Big-5 Plus} and @code{CNS 11643} character sets.
 502 @end itemize\n")
 503     (license (license:non-copyleft
 504               "http://data.gov.tw/license")))) ; CC-BY 4.0 compatible
 505
 506 (define-public font-cns11643-swjz
 507   (package
 508     (name "font-cns11643-swjz")
 509     (version "1")
 510     (source
 511      (origin
 512        (method url-fetch)
 513        (uri "https://www.moedict.tw/fonts/truetype/cns11643/ebas927.ttf")
 514        (sha256
 515         (base32
 516          "1qkljldbmb53zp1rcmpsb8rzy67rnsqcjxi549m9743ifk4isl78"))))
 517     (build-system font-build-system)
 518     (home-page
 519      (string-append "http://www.cns11643.gov.tw/AIDB/download.do"
 520                     "?name=%E5%AD%97%E5%9E%8B%E4%B8%8B%E8%BC%89"))
 521     (synopsis "TrueType seal script font")
 522     (description
 523      "@code{Shuowen Jiezi} is a TrueType seal script font based on the ancient
 524 text of the same name published by the Executive Yuan of Taiwan.  6721 glyphs
 525 are included, at Unicode compatible code points corresponding to their modern
 526 variants.")
 527     ;; Original text only available in Chinese. More info at
 528     ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=26703#11
 529     (license (license:non-copyleft
 530               "http://www.cns11643.gov.tw/AIDB/copyright.do"))))
 531
 532 (define-public font-wqy-zenhei
 533   (package
 534     (name "font-wqy-zenhei")
 535     (version "0.9.45")
 536     (source (origin
 537               (method url-fetch)
 538               (uri (string-append
 539                     "mirror://sourceforge/wqy/wqy-zenhei/" version
 540                     "%20%28Fighting-state%20RC1%29/wqy-zenhei-"
 541                     version ".tar.gz"))
 542               (sha256
 543                (base32
 544                 "1mkmxq8g2hjcglb3zajfqj20r4r88l78ymsp2xyl5yav8w3f7dz4"))))
 545     (build-system font-build-system)
 546     (home-page "http://wenq.org/wqy2/")
 547     (synopsis "CJK font")
 548     (description
 549      "WenQuanYi Zen Hei is a Hei-Ti style (sans-serif type) Chinese outline
 550 font.  It is designed for general purpose text formatting and on-screen
 551 display of Chinese characters and symbols from many other languages.
 552 WenQuanYi Zen Hei provides a rather complete coverage of Chinese Hanzi glyphs,
 553 including both simplified and traditional forms.  The total glyph number in
 554 this font is over 35,000, including over 21,000 Chinese Hanzi.  This font has
 555 full coverage of the GBK (CP936) charset, CJK Unified Ideographs, as well as
 556 the code-points needed for zh_cn, zh_sg, zh_tw, zh_hk, zh_mo, ja (Japanese) and
 557 ko (Korean) locales for @code{fontconfig}.")
 558     ;; GPLv2 with font embedding exception.
 559     (license license:gpl2)))
 560
 561 (define-public font-wqy-microhei
 562   (package
 563     (name "font-wqy-microhei")
 564     (version "0.2.0-beta")
 565     (source (origin
 566               (method url-fetch)
 567               (uri (string-append "mirror://sourceforge/wqy/wqy-microhei/"
 568                                   version "/wqy-microhei-" version ".tar.gz"))
 569               (sha256
 570                (base32
 571                 "0gi1yxqph8xx869ichpzzxvx6y50wda5hi77lrpacdma4f0aq0i8"))))
 572     (build-system font-build-system)
 573     (home-page "http://wenq.org/wqy2/")
 574     (synopsis "CJK font")
 575     (description
 576      "WenQuanYi Micro Hei is a Sans-Serif style (also known as Hei, Gothic or
 577 Dotum among the Chinese/Japanese/Korean users) high quality CJK outline font.
 578 It was derived from \"Droid Sans Fallback\" and \"Droid Sans\" released by
 579 Google Inc.  This font contains all the unified CJK Han glyphs in the range of
 580 U+4E00-U+9FC3 defined in Unicode Standard 5.1, together with many other
 581 languages unicode blocks, including Latins, Extended Latins, Hanguls and
 582 Kanas.  The font file is extremely compact (~4M) compared with most known CJK
 583 fonts.")
 584     ;; This font is licensed under Apache2.0 or GPLv3 with font embedding
 585     ;; exceptions.
 586     (license license:gpl3)))
 587
 588 (define-public font-rachana
 589   (package
 590     (name "font-rachana")
 591     (version "7.0.3")
 592     (source
 593      (origin
 594        (method git-fetch)
 595        (uri (git-reference
 596              (url "https://gitlab.com/smc/fonts/rachana")
 597              (commit (string-append "Version" version))))
 598        (sha256
 599         (base32 "0r100pvk56y1s38nbv24d78s8nd7dkblgasbn8s887dzj6dps23d"))
 600        (file-name (git-file-name name version))))
 601     (build-system font-build-system)
 602     (home-page "https://smc.org.in")
 603     (synopsis "Malayalam font")
 604     (description
 605      "Rachana is a Malayalam font designed by Hussain K H.  The project was
 606 part of Rachana Aksharavedi for the original script of Malayalam in computing.
 607 Rachana has about 1,200+ glyphs for Malayalam and contains glyphs required for
 608 printing old Malayalam books without compromising the writing style.")
 609     ;; This font is licensed under SIL 1.1 or GPLv3+ with font embedding
 610     ;; exceptions.
 611     (license (list license:silofl1.1 license:gpl3+))))
 612
 613 (define-public font-tex-gyre
 614   (package
 615     (name "font-tex-gyre")
 616     (version "2.005")
 617     (source
 618      (origin
 619        (method url-fetch/zipbomb)
 620        (uri (string-append "http://www.gust.org.pl/projects/e-foundry/"
 621                            "tex-gyre/whole/tg-" version "otf.zip"))
 622        (sha256
 623         (base32
 624          "0kph9l3g7jb2bpmxdbdg5zl56wacmnvdvsdn7is1gc750sqvsn31"))))
 625     (build-system font-build-system)
 626     (home-page "http://www.gust.org.pl/projects/e-foundry/tex-gyre/")
 627     (synopsis "Remake of Ghostscript fonts")
 628     (description "The TeX Gyre collection of fonts is the result of an
 629 extensive remake and extension of the freely available base PostScript fonts
 630 distributed with Ghostscript version 4.00.  The collection contains the
 631 following fonts in the OpenType format: Adventor, Bonum, Chorus, Cursor,
 632 Heros, Pagella, Schola, Termes.")
 633     (license license:gfl1.0)))
 634
 635 (define-public font-anonymous-pro
 636   (package
 637     (name "font-anonymous-pro")
 638     (version "1.002")
 639     (source (origin
 640               (method url-fetch)
 641               (uri (string-append
 642                     "https://www.marksimonson.com/assets/content/fonts/"
 643                     "AnonymousPro-" version ".zip"))
 644               (sha256
 645                (base32
 646                 "1asj6lykvxh46czbal7ymy2k861zlcdqpz8x3s5bbpqwlm3mhrl6"))))
 647     (build-system font-build-system)
 648     (home-page "https://www.marksimonson.com/fonts/view/anonymous-pro")
 649     (synopsis "Fixed-width fonts designed with coding in mind")
 650     (description "Anonymous Pro is a family of four fixed-width fonts designed
 651 with coding in mind.  Anonymous Pro features an international, Unicode-based
 652 character set, with support for most Western and Central European Latin-based
 653 languages, plus Greek and Cyrillic.")
 654     (license license:silofl1.1)))
 655
 656 (define-public font-anonymous-pro-minus
 657   (package
 658     (inherit font-anonymous-pro)
 659     (name "font-anonymous-pro-minus")
 660     ;; The -Minus variant doesn't necessarily track the regular version above.
 661     (version "1.003")
 662     (source
 663      (origin
 664        (method url-fetch)
 665        (uri (string-append "https://www.marksimonson.com/assets/content/fonts/"
 666                            "AnonymousProMinus-" version ".zip"))
 667        (sha256
 668         (base32 "1p2n91jja37d2cshp5pjwld9lq0v7gnpk7ywwn2blq7k46q6vq38"))))
 669     (synopsis "Fixed-width fonts designed with coding in mind, without bitmaps")
 670     (description "Anonymous Pro is a family of four fixed-width fonts designed
 671 with coding in mind.  Anonymous Pro features an international, Unicode-based
 672 character set, with support for most Western and Central European Latin-based
 673 languages, plus Greek and Cyrillic.
 674
 675 Anonymous Pro Minus is identical to Anonymous Pro, minus its embedded bitmaps
 676 for use at smaller text sizes")))
 677
 678 (define-public font-gnu-unifont
 679   (package
 680     (name "font-gnu-unifont")
 681     (version "13.0.02")
 682     (source
 683      (origin
 684        (method url-fetch)
 685        (uri (list
 686              (string-append "http://unifoundry.com/pub/unifont/unifont-"
 687                             version "/unifont-" version ".tar.gz")
 688              (string-append "mirror://gnu/unifont/unifont-"
 689                             version "/unifont-" version ".tar.gz")))
 690        (sha256
 691         (base32 "1fg908qadh14kfbpzqfj3vgzlxgx68sdlwhl2prz7arq5r45dami"))))
 692     (build-system gnu-build-system)
 693     (outputs '("out"   ; TrueType version
 694                "pcf"   ; PCF (bitmap) version
 695                "psf"   ; PSF (console) version
 696                "bin")) ; Utilities to manipulate '.hex' format
 697     (arguments
 698      '(#:tests? #f          ; no check target
 699        #:phases
 700        (modify-phases %standard-phases
 701          (replace
 702           'configure
 703           (lambda _ (setenv "CC" "gcc") #t))
 704          (replace
 705           'install
 706           (lambda* (#:key outputs #:allow-other-keys)
 707             (let* ((ttf (string-append (assoc-ref outputs "out")
 708                                        "/share/fonts/truetype"))
 709                    (pcf (string-append (assoc-ref outputs "pcf")
 710                                        "/share/fonts/misc"))
 711                    (psf (string-append (assoc-ref outputs "psf")
 712                                        "/share/consolefonts"))
 713                    (bin (assoc-ref outputs "bin")))
 714               (invoke "make"
 715                       (string-append "PREFIX=" bin)
 716                       (string-append "TTFDEST=" ttf)
 717                       (string-append "PCFDEST=" pcf)
 718                       (string-append "CONSOLEDEST=" psf)
 719                       "install")
 720               ;; Move Texinfo file to the right place.
 721               (mkdir (string-append bin "/share/info"))
 722               (invoke "gzip" "-9n" "doc/unifont.info")
 723               (install-file "doc/unifont.info.gz"
 724                             (string-append bin "/share/info"))
 725               #t))))))
 726     (inputs
 727      `(("perl" ,perl))) ; for utilities
 728     (synopsis
 729      "Large bitmap font covering Unicode's Basic Multilingual Plane")
 730     (description
 731      "GNU Unifont is a bitmap font covering essentially all of
 732 Unicode's Basic Multilingual Plane.  The package also includes
 733 utilities to ease adding new glyphs to the font.")
 734     (home-page "http://unifoundry.com/unifont/index.html")
 735     (properties '((upstream-name . "unifont")))
 736     (license license:gpl2+)))
 737
 738 (define-public font-google-noto
 739   (package
 740     (name "font-google-noto")
 741     (version "20171025")
 742     (source
 743      (origin
 744        (method url-fetch/zipbomb)
 745        (uri (string-append "https://noto-website-2.storage.googleapis.com/"
 746                            "pkgs/Noto-hinted.zip"))
 747        (file-name (string-append name "-" version ".zip"))
 748        (sha256
 749         (base32 "1bp42whyin7xcgmrbnfvz3rvd98xmxaz3ywqybbjmqzwaa9llyw3"))))
 750     (build-system font-build-system)
 751     (home-page "https://www.google.com/get/noto/")
 752     (synopsis "Fonts to cover all languages")
 753     (description "Google Noto Fonts is a family of fonts designed to support
 754 all languages with a consistent look and aesthetic.  Its goal is to properly
 755 display all Unicode symbols.")
 756     (license license:silofl1.1)))
 757
 758 (define-public font-google-roboto
 759   (package
 760     (name "font-google-roboto")
 761     (version "2.136")
 762     (source
 763      (origin
 764        (method url-fetch)
 765        (uri (string-append "https://github.com/google/roboto/releases/download/"
 766                            "v" version "/roboto-hinted.zip"))
 767        (file-name (string-append name "-" version ".zip"))
 768        (sha256
 769         (base32
 770          "0spscx08fad7i8qs7icns96iwcapniq8lwwqqvbf7bamvs8qfln4"))))
 771     (build-system font-build-system)
 772     (home-page "https://github.com/google/roboto")
 773     (synopsis "The Roboto family of fonts")
 774     (description
 775      "Roboto is Google’s signature family of fonts, the default font on Android
 776 and Chrome OS, and the recommended font for the
 777 visual language \"Material Design\".")
 778     (license license:asl2.0)))
 779
 780 (define-public font-un
 781   (package
 782     (name "font-un")
 783     (version "1.0.2-080608")
 784     (source (origin
 785               (method url-fetch)
 786               (uri (string-append
 787                     "https://kldp.net/unfonts/release/2607-"
 788                     "un-fonts-core-" version ".tar.gz"))
 789               (file-name (string-append name "-" version ".tar.gz"))
 790               (sha256
 791                (base32
 792                 "13liaz2pmww3aqabm55la5npd08m1skh334ky7qfidxaz5s742iv"))))
 793     (build-system font-build-system)
 794     (home-page "https://kldp.net/projects/unfonts/")
 795     (synopsis "Collection of Korean fonts")
 796     (description
 797      "Un-fonts is a family of mainly Korean fonts.
 798 It contains the following fonts and styles:
 799
 800 @enumerate
 801 @item UnBatang, UnBatangBold: serif;
 802 @item UnDotum, UnDotumBold: sans-serif;
 803 @item UnGraphic, UnGraphicBold: sans-serif style;
 804 @item UnDinaru, UnDinaruBold, UnDinaruLight;
 805 @item UnPilgi, UnPilgiBold: script;
 806 @item UnGungseo: cursive, brush-stroke.
 807 @end enumerate\n")
 808     (license license:gpl2+)))
 809
 810 (define-public font-fantasque-sans
 811   (package
 812     (name "font-fantasque-sans")
 813     (version "1.8.0")
 814     (source
 815      (origin
 816        (method git-fetch)
 817        (uri (git-reference
 818              (url "https://github.com/belluzj/fantasque-sans.git")
 819              (commit (string-append "v" version))))
 820        (file-name (git-file-name name version))
 821        (sha256
 822         (base32 "17l18488qyl9gdj80r8pcym3gp3jkgsdikwalnrp5rgvwidqx507"))))
 823     (build-system gnu-build-system)
 824     (native-inputs
 825      `(("ttfautohint" ,ttfautohint)
 826        ("woff-tools" ,woff-tools)
 827        ("fontforge" ,fontforge)
 828        ("woff2" ,woff2)
 829        ("zip" ,zip)))
 830     (arguments
 831      `(#:tests? #f                 ;test target intended for visual inspection
 832        #:phases (modify-phases %standard-phases
 833                   (delete 'configure)   ;no configuration
 834                   (add-before 'build 'support-python@3
 835                     ;; Rather than use a Python 2 fontforge, replace Python-2-
 836                     ;; specific code with a passable Python 3 equivalent.
 837                     (lambda _
 838                       (substitute* "Scripts/fontbuilder.py"
 839                         (("xrange") "range"))
 840                       (substitute* "Scripts/features.py"
 841                         (("f\\.write\\(fea_code\\)")
 842                          "f.write(str.encode(fea_code))"))
 843                       #t))
 844                   (replace 'install
 845                     ;; 'make install' wants to install to ~/.fonts, install to
 846                     ;; output instead.  Install only the "Normal" variant.
 847                     (lambda* (#:key outputs #:allow-other-keys)
 848                       (let* ((out (assoc-ref outputs "out"))
 849                              (font-dir (string-append out "/share/fonts"))
 850                              (truetype-dir (string-append font-dir "/truetype"))
 851                              (opentype-dir (string-append font-dir "/opentype"))
 852                              (webfonts-dir (string-append font-dir "/webfonts")))
 853                         (with-directory-excursion "Variants/Normal"
 854                           (copy-recursively "OTF" opentype-dir)
 855                           (for-each (lambda (f) (install-file f truetype-dir))
 856                                     (find-files "." "\\.ttf$"))
 857                           (copy-recursively "Webfonts" webfonts-dir)
 858                           #t)))))))
 859     (synopsis "Font family with a monospaced variant for programmers")
 860     (description
 861      "Fantasque Sans Mono is a programming font designed with functionality in
 862 mind.  The font includes a bold version and a good italic version with new
 863 glyph designs, not just an added slant.")
 864     (home-page "https://fontlibrary.org/en/font/fantasque-sans-mono")
 865     (license license:silofl1.1)))
 866
 867 (define-public font-hack
 868   (package
 869     (name "font-hack")
 870     (version "3.003")
 871     (source (origin
 872               (method url-fetch/zipbomb)
 873               (uri (string-append
 874                     "https://github.com/source-foundry/Hack/releases/download/v"
 875                     version "/Hack-v" version "-ttf.zip"))
 876               (sha256
 877                (base32
 878                 "1b4hh8zkrx92m2v2vfkja1napb0192p0j3laqr0m018z3dih89hc"))))
 879     (build-system font-build-system)
 880     (home-page "https://sourcefoundry.org/hack/")
 881     (synopsis "Typeface designed for source code")
 882     (description
 883      "Hack is designed to be a workhorse typeface for code.  It expands upon
 884 the Bitstream Vera & DejaVu projects, provides over 1,500 glyphs, and includes
 885 Powerline support.")
 886     (license
 887      ;; See https://github.com/source-foundry/Hack/issues/271 for details.
 888      (list license:expat                ; the Hack modifications to...
 889            license:public-domain        ; ...the DejaVu modifications to...
 890            (license:x11-style           ; ...the Bitstream Vera typeface
 891             "file://LICENSE.md" "Bitstream Vera License")))))
 892
 893 (define-public font-adobe-source-code-pro
 894   (package
 895     (name "font-adobe-source-code-pro")
 896     (version "2.030R-ro-1.050R-it")
 897     (source
 898      (origin
 899        (method git-fetch)
 900        (uri (git-reference
 901              (url "https://github.com/adobe-fonts/source-code-pro.git")
 902              (commit (regexp-substitute/global
 903                       ;; The upstream tag uses "/" between the roman and italic
 904                       ;; versions, so substitute our "-" separator here.
 905                       #f "R-ro-" version 'pre "R-ro/" 'post))))
 906        (file-name (git-file-name name version))
 907        (sha256
 908         (base32 "0hc5kflr8xzqgdm0c3gbgb1paygznxmnivkylid69ipc7wnicx1n"))))
 909     (build-system font-build-system)
 910     (home-page "https://github.com/adobe-fonts/source-code-pro")
 911     (synopsis
 912      "Monospaced font family for user interface and coding environments")
 913     (description
 914      "Source Code Pro is a set of monospaced OpenType fonts that have been
 915 designed to work well in user interface environments.")
 916     (license license:silofl1.1)))
 917
 918 (define-public font-adobe-source-sans-pro
 919   (package
 920     (name "font-adobe-source-sans-pro")
 921     (version "2.040R-ro-1.090R-it")
 922     (source
 923      (origin
 924        (method git-fetch)
 925        (uri (git-reference
 926              (url "https://github.com/adobe-fonts/source-sans-pro.git")
 927              (commit (regexp-substitute/global
 928                       ;; The upstream tag uses "/" between the roman and italic
 929                       ;; versions, so substitute our "-" separator here.
 930                       #f "R-ro-" version 'pre "R-ro/" 'post))))
 931        (file-name (git-file-name name version))
 932        (sha256
 933         (base32 "1lzin2hfwidbvhps7shs201p1bpxy6220xmhhprv9fc8bknd4c45"))))
 934     (build-system font-build-system)
 935     (home-page "https://github.com/adobe-fonts/source-sans-pro")
 936     (synopsis
 937      "Sans serif font family for user interface environments")
 938     (description
 939      "Source Sans Pro is a set of OpenType fonts that have been designed to
 940 work well in user interface (UI) environments.")
 941     (license license:silofl1.1)))
 942
 943 (define-public font-adobe-source-serif-pro
 944   (package
 945     (name "font-adobe-source-serif-pro")
 946     (version "2.007R-ro-1.007R-it")
 947     (source
 948      (origin
 949        (method git-fetch)
 950        (uri (git-reference
 951              (url "https://github.com/adobe-fonts/source-serif-pro.git")
 952              (commit (regexp-substitute/global
 953                       ;; The upstream tag uses "/" between the roman and italic
 954                       ;; versions, so substitute our "-" separator here.
 955                       #f "R-ro-" version 'pre "R-ro/" 'post))))
 956        (file-name (git-file-name name version))
 957        (sha256
 958         (base32 "1vvzfhjpi47m84bzkapylkd5fri8bdm8qng2hiylmmlw0wk4gpas"))))
 959     (build-system font-build-system)
 960     (home-page "https://github.com/adobe-fonts/source-serif-pro")
 961     (synopsis
 962      "Serif typeface to complement Source Sans Pro for setting text")
 963     (description
 964      "Source Serif Pro is a set of OpenType fonts to complement the Source
 965 Sans Pro family.")
 966     (license license:silofl1.1)))
 967
 968 (define-public font-fira-mono
 969   (package
 970     (name "font-fira-mono")
 971     (version "3.206")
 972     (source (origin
 973               (method url-fetch)
 974               (uri (string-append "https://carrois.com/downloads/fira_mono_3_2/"
 975                                   "FiraMonoFonts"
 976                                   (string-replace-substring version "." "")
 977                                   ".zip"))
 978               (sha256
 979                (base32
 980                 "1z65x0dw5dq6rs6p9wyfrir50rlh95vgzsxr8jcd40nqazw4jhpi"))))
 981     (build-system font-build-system)
 982     (home-page "https://mozilla.github.io/Fira/")
 983     (synopsis "Mozilla's monospace font")
 984     (description "This is the typeface used by Mozilla in Firefox OS.")
 985     (license license:silofl1.1)))
 986
 987 (define-public font-fira-sans
 988   (package
 989     (name "font-fira-sans")
 990     (version "4.202")
 991     (source (origin
 992               (method git-fetch)
 993               (uri (git-reference
 994                      (url "https://github.com/mozilla/Fira.git")
 995                      (commit version)))
 996               (file-name (git-file-name name version))
 997               (sha256
 998                (base32
 999                 "116j26gdj5g1r124b4669372f7490vfjqw7apiwp2ggl0am5xd0w"))))
1000     (build-system font-build-system)
1001     (home-page "https://mozilla.github.io/Fira/")
1002     (synopsis "Mozilla's Fira Sans Font")
1003     (description "This is the typeface used by Mozilla in Firefox OS.")
1004     (license license:silofl1.1)))
1005
1006 (define-public font-fira-code
1007   (package
1008     (name "font-fira-code")
1009     (version "1.206")
1010     (source (origin
1011               (method url-fetch/zipbomb)
1012               (uri (string-append "https://github.com/tonsky/FiraCode/releases/"
1013                                   "download/" version
1014                                   "/FiraCode_" version ".zip"))
1015               (sha256
1016                (base32
1017                 "02r1lcp0c9135ps71v66wdvbsrcxwirrp0blqsa1xbjkkq2rwgj3"))))
1018     (build-system font-build-system)
1019     (home-page "https://mozilla.github.io/Fira/")
1020     (synopsis "Monospaced font with programming ligatures")
1021     (description
1022      "Fira Code is an extension of the Fira Mono font containing a set of ligatures
1023 for common programming multi-character combinations.  This is just a font rendering
1024 feature: underlying code remains ASCII-compatible.  This helps to read and understand
1025 code faster.  For some frequent sequences like .. or //, ligatures allow us to
1026 correct spacing.")
1027     (license license:silofl1.1)))
1028
1029 (define-public font-awesome
1030   (package
1031    (name "font-awesome")
1032    ;; XXX The build scripts of version 5 are not freely licensed and
1033    ;; so we have to stick with version 4 for now:
1034    ;; <https://bugs.gnu.org/32916>
1035    (version "4.7.0")
1036    (source (origin
1037             (method git-fetch)
1038             (uri (git-reference
1039                    (url "https://github.com/FortAwesome/Font-Awesome.git")
1040                    (commit (string-append "v" version))))
1041             (file-name (git-file-name name version))
1042             (sha256
1043              (base32
1044               "0w30y26jp8nvxa3iiw7ayl6rkza1rz62msl9xw3srvxya1c77grc"))))
1045    (build-system font-build-system)
1046    (arguments
1047     '(#:phases
1048       (modify-phases %standard-phases
1049         (replace 'install
1050           (lambda* (#:key outputs #:allow-other-keys)
1051             (let* ((out (assoc-ref outputs "out"))
1052                    (source (string-append (getcwd) "/fonts"))
1053                    (fonts (string-append out "/share/fonts")))
1054               (for-each (lambda (file)
1055                           (install-file file (string-append fonts "/truetype")))
1056                         (find-files source "\\.(ttf|ttc)$"))
1057               (for-each (lambda (file)
1058                           (install-file file (string-append fonts "/opentype")))
1059                         (find-files source "\\.(otf|otc)$"))
1060               #t))))))
1061    (home-page "https://fontawesome.com/")
1062    (synopsis "Font that contains a rich iconset")
1063    (description
1064     "Font Awesome is a full suite of pictographic icons for easy scalable
1065 vector graphics.")
1066    (license license:silofl1.1)))
1067
1068 (define-public font-tamzen
1069   (package
1070     (name "font-tamzen")
1071     (version "1.11.4")
1072     (source
1073      (origin
1074        (method git-fetch)
1075        (uri (git-reference
1076               (url "https://github.com/sunaku/tamzen-font.git")
1077               (commit (string-append "Tamzen-" version))))
1078        (file-name (git-file-name name version))
1079        (sha256
1080         (base32
1081          "17kgmvg6q32mqhx9g44hjvzv0si0mnpprga4z7na930g2zdd8846"))))
1082     (build-system trivial-build-system)
1083     (arguments
1084      `(#:modules ((guix build utils))
1085        #:builder
1086        (begin
1087          (use-modules (guix build utils))
1088
1089          (let* ((out      (assoc-ref %outputs "out"))
1090                 (font-dir (string-append out "/share/fonts/misc"))
1091                 (psf-dir  (string-append out "/share/kbd/consolefonts")))
1092            (chdir (assoc-ref %build-inputs "source"))
1093            (mkdir-p font-dir)
1094            (mkdir-p psf-dir)
1095            (for-each (lambda (pcf)
1096                        (install-file pcf font-dir))
1097                      (find-files "pcf" "\\.pcf$"))
1098            (for-each (lambda (psf)
1099                        (install-file psf psf-dir))
1100                      (find-files "psf" "\\.psf$"))
1101            #t))))
1102     (home-page "https://github.com/sunaku/tamzen-font")
1103     (synopsis "Monospaced bitmap font for console and X11")
1104     (description
1105      "Tamzen is a fork of the @code{Tamsyn} font.  It is programmatically forked
1106 from @code{Tamsyn} version 1.11, backporting glyphs from older versions while
1107 deleting deliberately empty glyphs (which are marked as unimplemented) to
1108 allow secondary/fallback fonts to provide real glyphs at those codepoints.
1109
1110 The @code{TamzenForPowerline} fonts provide additional @code{Powerline} symbols,
1111 which are programmatically injected with @code{bitmap-font-patcher} and
1112 later hand-tweaked with the gbdfed(1) editor:
1113
1114 @enumerate
1115 @item all icons are expanded to occupy the maximum available space
1116 @item the branch of the fork icon ( U+E0A0) was made larger than the trunk
1117 @item for the newline icon ( U+E0A1), the @emph{N} was made larger at the bottom
1118 @item the keyhole in the padlock icon ( U+E0A2) was replaced with @emph{//} lines.
1119 @end enumerate\n")
1120     (license (license:non-copyleft "file://LICENSE"))))
1121
1122 (define-public font-comic-neue
1123   (package
1124     (name "font-comic-neue")
1125     (version "2.5")
1126     (source (origin
1127               (method url-fetch/zipbomb)
1128               (uri (string-append
1129                     "http://www.comicneue.com/comic-neue-" version ".zip"))
1130               (sha256
1131                (base32
1132                 "1ng0m0zs7qr91qy5ff0l01l27npr76961c6zfkxnhxf68zpwz5k4"))))
1133     (build-system font-build-system)
1134     (arguments
1135      `(#:phases
1136        (modify-phases %standard-phases
1137          ;; Delete Mac OS X specific files. If not deleted, these cause
1138          ;; several hidden files to be installed.
1139          (add-before 'install 'delete-macosx-files
1140            (lambda _
1141              (delete-file-recursively "__MACOSX")
1142              #t))
1143          (add-after 'install 'install-conf
1144            (lambda* (#:key outputs #:allow-other-keys)
1145              (let ((conf-dir (string-append (assoc-ref outputs "out")
1146                                             "/share/fontconfig/conf.avail")))
1147                (mkdir-p conf-dir)
1148                (call-with-output-file
1149                    (string-append conf-dir "/30-comic-neue.conf")
1150                  (lambda (port)
1151                    (format port "<?xml version=\"1.0\"?>
1152 <!DOCTYPE fontconfig SYSTEM \"fonts.dtd\">
1153 <fontconfig>
1154   <!-- If Comic Sans is missing, use Comic Neue instead. -->
1155   <alias>
1156     <family>Comic Sans MS</family>
1157     <prefer>
1158       <family>Comic Neue</family>
1159     </prefer>
1160   </alias>
1161 </fontconfig>\n"))))
1162              #t)))))
1163     (home-page "http://www.comicneue.com/")
1164     (synopsis "Font that fixes the shortcomings of Comic Sans")
1165     (description
1166      "Comic Neue is a font that attempts to create a respectable casual
1167 typeface, by mimicking Comic Sans while fixing its most obvious shortcomings.")
1168     (license license:silofl1.1)))
1169
1170 (define-public font-iosevka
1171   (package
1172     (name "font-iosevka")
1173     ;; When updating, also update the hash of the Iosevka variant(s) below.
1174     (version "2.3.3")
1175     (source
1176      (origin
1177        (method url-fetch/zipbomb)
1178        (uri (string-append "https://github.com/be5invis/Iosevka"
1179                            "/releases/download/v" version
1180                            "/ttc-iosevka-" version ".zip"))
1181        (sha256
1182         (base32 "0jkv5rkg5hi0avhwyhcjiqzjslp6zjj77f09vxx2gj9l93byz731"))))
1183     (build-system font-build-system)
1184     (home-page "https://be5invis.github.io/Iosevka/")
1185     (synopsis "Coders' typeface, built from code")
1186     (description
1187      "Iosevka is a slender monospace sans-serif or slab-serif typeface inspired
1188 by Pragmata Pro, M+, and PF DIN Mono, designed to be the ideal font for
1189 programming.  Iosevka is completely generated from its source code.")
1190     (license (list license:silofl1.1 ; build artifacts (i.e. the fonts)
1191                    license:bsd-3)))) ; supporting code
1192
1193 (define-public font-iosevka-slab
1194   (package
1195     (inherit font-iosevka)
1196     (name "font-iosevka-slab")
1197     (version (package-version font-iosevka))
1198     (source
1199      (origin
1200        (method url-fetch/zipbomb)
1201        (uri (string-append "https://github.com/be5invis/Iosevka"
1202                            "/releases/download/v" version
1203                            "/ttc-iosevka-slab-" version ".zip"))
1204        (sha256
1205         (base32 "1rkmgi08kknc1fg54zpa6w92m3b3v7pc8cpwygz22kgd2h0mdrr8"))))))
1206
1207 (define-public font-iosevka-term
1208   (package
1209     (inherit font-iosevka)
1210     (name "font-iosevka-term")
1211     (version (package-version font-iosevka))
1212     (source
1213      (origin
1214        (method url-fetch/zipbomb)
1215        (uri (string-append "https://github.com/be5invis/Iosevka"
1216                            "/releases/download/v" version
1217                            "/02-iosevka-term-" version ".zip"))
1218        (sha256
1219         (base32
1220          "1mxlb3qf64nykjd0x4gjfvib3k5kyv9ssv9iyzxxgk2z80bydz00"))))
1221     (arguments
1222      `(#:phases
1223        (modify-phases %standard-phases
1224          (add-before 'install 'make-files-writable
1225            (lambda _
1226              (for-each make-file-writable (find-files "." ".*"))
1227              #t)))))))
1228
1229 (define-public font-iosevka-term-slab
1230   (package
1231     (inherit font-iosevka)
1232     (name "font-iosevka-term-slab")
1233     (version (package-version font-iosevka))
1234     (source
1235      (origin
1236        (method url-fetch/zipbomb)
1237        (uri (string-append "https://github.com/be5invis/Iosevka"
1238                            "/releases/download/v" version
1239                            "/06-iosevka-term-slab-" version ".zip"))
1240        (sha256
1241         (base32
1242          "1gc16hih157qy6vpa8f88psq0fnksiigi3msqazc75zsm3z4kzqj"))))
1243     (arguments
1244      `(#:phases
1245        (modify-phases %standard-phases
1246          (add-before 'install 'make-files-writable
1247            (lambda _
1248              (for-each make-file-writable (find-files "." ".*"))
1249              #t)))))))
1250
1251 (define-public font-sarasa-gothic
1252   (package
1253     (name "font-sarasa-gothic")
1254     (version "0.12.6")
1255     (source
1256      (origin
1257        (method url-fetch)
1258        (uri (string-append "https://github.com/be5invis/Sarasa-Gothic"
1259                            "/releases/download/v" version
1260                            "/sarasa-gothic-ttc-" version ".7z"))
1261        (sha256
1262         (base32 "1g6k9d5lajchbhsh3g12fk5cgilyy6yw09fals9vc1f9wsqvac86"))))
1263     (build-system font-build-system)
1264     (arguments
1265      `(#:phases (modify-phases %standard-phases
1266                   (replace 'unpack
1267                     (lambda* (#:key source #:allow-other-keys)
1268                       (mkdir "source")
1269                       (chdir "source")
1270                       (invoke "7z" "x" source))))))
1271     (native-inputs `(("p7zip" ,p7zip)))
1272     (home-page "https://github.com/be5invis/Sarasa-Gothic")
1273     (license license:silofl1.1)
1274     (synopsis "Sarasa Gothic / 更纱黑体 / 更紗黑體 / 更紗ゴシック / 사라사 고딕")
1275     (description
1276      "Sarasa Gothic is a programming font based on Iosevka and Source Han Sans,
1277 most CJK characters are same height, and double width as ASCII characters.")))
1278
1279 (define-public font-go
1280   (let ((commit "f03a046406d4d7fbfd4ed29f554da8f6114049fc")
1281         (revision "1"))
1282     (package
1283       (name "font-go")
1284       (version (string-append "20170330-" revision "." (string-take commit 7)))
1285       (source (origin
1286                 (file-name (string-append "go-image-" version "-checkout"))
1287                 (method git-fetch)
1288                 (uri (git-reference
1289                       (url "https://go.googlesource.com/image")
1290                       (commit commit)))
1291                 (sha256
1292                  (base32
1293                   "1aq6mnjayks55gd9ahavk6jfydlq5lm4xm0xk4pd5sqa74p5p74d"))))
1294       (build-system font-build-system)
1295       (arguments
1296        `(#:phases
1297          (modify-phases %standard-phases
1298            (add-before 'install 'chdir
1299              (lambda _
1300                (chdir "font/gofont/ttfs")
1301                #t)))))
1302       (home-page "https://blog.golang.org/go-fonts")
1303       (synopsis "The Go font family")
1304       (description
1305        "The Go font family is a set of WGL4 TrueType fonts from the Bigelow &
1306 Holmes type foundry, released under the same license as the Go programming
1307 language.  It includes a set of proportional, sans-serif fonts, and a set of
1308 monospace, slab-serif fonts.")
1309       (license license:bsd-3))))
1310
1311 (define-public font-google-material-design-icons
1312   (package
1313     (name "font-google-material-design-icons")
1314     (version "3.0.1")
1315     (source (origin
1316               (method git-fetch)
1317               (uri (git-reference
1318                      (url "https://github.com/google/material-design-icons.git")
1319                      (commit version)))
1320               (file-name (git-file-name name version))
1321               (sha256
1322                (base32
1323                 "17q5brcqyyc8gbjdgpv38p89s60cwxjlwy2ljnrvas5cj0s62np0"))))
1324     (build-system font-build-system)
1325     (home-page "https://google.github.io/material-design-icons")
1326     (synopsis "Icon font of Google Material Design icons")
1327     (description
1328      "Material design system icons are simple, modern, friendly, and sometimes
1329 quirky.  Each icon is created using our design guidelines to depict in simple
1330 and minimal forms the universal concepts used commonly throughout a UI.
1331 Ensuring readability and clarity at both large and small sizes, these icons
1332 have been optimized for beautiful display on all common platforms and display
1333 resolutions.")
1334     (license license:asl2.0)))
1335
1336 (define-public font-opendyslexic
1337   (package
1338     (name "font-opendyslexic")
1339     (version "0.91.12")
1340     (source
1341       (origin
1342         (method url-fetch/zipbomb)
1343         (uri (string-append "https://github.com/antijingoist/opendyslexic/"
1344                             "releases/download/v" version
1345                             "/opendyslexic-0.910.12-rc2-2019.10.17.zip"))
1346         (sha256
1347          (base32
1348           "11ml7v4iyf3hr0fbnkwz8afb8vi58wbcfnmn4gyvrwh9jk5pybdr"))))
1349     (build-system font-build-system)
1350     (native-inputs `(("unzip" ,unzip)))
1351     (home-page "https://opendyslexic.org/")
1352     (synopsis "Font for dyslexics and high readability")
1353     (description "OpenDyslexic is a font designed to help readability for some
1354 of the symptoms of dyslexia.  Letters have heavy weighted bottoms to provide
1355 an indication of orientation to make it more difficult to confuse with other
1356 similar letters.  Consistently weighted bottoms can also help reinforce the
1357 line of text.  The unique shapes of each letter can help prevent flipping and
1358 swapping.  The italic style for OpenDyslexic has been crafted to be used for
1359 emphasis while still being readable.")
1360     (license license:silofl1.1)))
1361
1362 (define-public font-open-dyslexic
1363   (deprecated-package "font-open-dyslexic" font-opendyslexic))
1364
1365 (define-public font-dosis
1366   (package
1367     (name "font-dosis")
1368     (version "1.7")
1369     (source
1370      (origin
1371        (method url-fetch/zipbomb)
1372        (uri (string-append "https://web.archive.org/web/20180228233737/"
1373                            "https://www.impallari.com/media/releases/dosis-"
1374                            "v" version ".zip"))
1375        (sha256
1376         (base32 "1qhci68f68mf87jd69vjf9qjq3wydgw1q7ivn3amjb65ls1s0c4s"))))
1377     (build-system font-build-system)
1378     (home-page (string-append "https://web.archive.org/web/20180228233737/"
1379                               "https://www.impallari.com/dosis"))
1380     (synopsis "Very simple, rounded, sans serif family")
1381     (description
1382      "Dosis is a very simple, rounded, sans serif family.
1383 The lighter weights are minimalist.  The bolder weights have more personality.
1384 The medium weight is nice and balanced.  The overall result is a family
1385 that's clean and modern, and can express a wide range of voices & feelings.
1386 It comes in 7 incremental weights:
1387 ExtraLight, Light, Book, Medium, Semibold, Bold & ExtraBold")
1388     (license license:silofl1.1)))
1389
1390 (define-public font-culmus
1391   (package
1392     (name "font-culmus")
1393     (version "0.133")
1394     (source
1395      (origin
1396        (method url-fetch)
1397        (uri (string-append "https://sourceforge.net/projects/"
1398                            "culmus/files/culmus/" version "/culmus-src-"
1399                            version ".tar.gz"))
1400        (sha256
1401         (base32
1402          "02akysgsqhi15cck54xcacm16q5raf4l7shgb8fnj7xr3c1pbfyp"))))
1403     (build-system font-build-system)
1404     (arguments
1405      `(#:phases
1406        (modify-phases %standard-phases
1407          (add-before 'install 'build
1408            (lambda _
1409              (let ((compile
1410                     (lambda (name ext)
1411                       (invoke
1412                        "fontforge" "-lang=ff"
1413                        "-c" (string-append "Open('" name "');"
1414                                            "Generate('"
1415                                            (basename name "sfd") ext
1416                                            "')")))))
1417                ;; This part based on the fonts shipped in the non-source package.
1418                (for-each (lambda (name)
1419                            (compile name "ttf"))
1420                          (find-files "." "^[^Nachlieli].*\\.sfd$"))
1421                (for-each (lambda (name)
1422                            (compile name "otf"))
1423                          (find-files "." "^Nachlieli.*\\.sfd$"))
1424                #t))))))
1425     (native-inputs
1426      `(("fontforge" ,fontforge)))
1427     (home-page "http://culmus.sourceforge.net/")
1428     (synopsis "TrueType Hebrew Fonts for X11")
1429     (description "14 Hebrew trivial families.  Contain ASCII glyphs from various
1430 sources.  Those families provide a basic set of a serif (Frank Ruehl), sans
1431 serif (Nachlieli) and monospaced (Miriam Mono) trivials.  Also included Miriam,
1432 Drugulin, Aharoni, David, Hadasim etc.  Cantillation marks support is
1433 available in Keter YG.")
1434     (license license:gpl2))) ; consult the LICENSE file included
1435
1436 (define-public font-lohit
1437   (package
1438     (name "font-lohit")
1439     (version "20140220")
1440     (source
1441      (origin
1442        (method url-fetch)
1443        (uri (string-append "https://releases.pagure.org/lohit/lohit-ttf-"
1444                            version ".tar.gz"))
1445        (sha256
1446         (base32
1447          "1rmgr445hw1n851ywy28csfvswz1i6hnc8mzp88qw2xk9j4dn32d"))))
1448     (build-system font-build-system)
1449     (home-page "https://pagure.io/lohit")
1450     (synopsis "Lohit TrueType Indic fonts")
1451     (description "Lohit is a font family designed to cover Indic scripts.
1452 Lohit supports the Assamese, Bengali, Devanagari (Hindi, Kashmiri, Konkani,
1453 Maithili, Marathi, Nepali, Sindhi, Santali, Bodo, Dogri languages), Gujarati,
1454 Kannada, Malayalam, Manipuri, Oriya, Punjabi, Tamil and Telugu scripts.")
1455     (license license:silofl1.1)))
1456
1457 (define-public font-blackfoundry-inria
1458   (package
1459     (name "font-blackfoundry-inria")
1460     (version "1.200")
1461     (home-page "https://github.com/BlackFoundry/InriaFonts")
1462     (source (origin
1463               (method git-fetch)
1464               (uri (git-reference
1465                     (url home-page)
1466                     (commit (string-append "v" version))))
1467               (sha256
1468                (base32
1469                 "06775y99lyh6hj5hzvrx56iybdck8a8xfqkipqd5c4cldg0a9hh8"))
1470               (file-name (string-append name "-" version "-checkout"))))
1471     ;; XXX: There are .ufo directories (the "source") so in theory we should
1472     ;; be able to rebuild TTF and OTF files with FontForge.  Unfortunately a
1473     ;; command like:
1474     ;;
1475     ;;  fontforge -lang=ff -c "Open('InriaSans-Regular.ufo'); Generate('foo.ttf');"
1476     ;;
1477     ;; segfaults in '_UFOLoadGlyph', which calls out to libpython.  :-/
1478     ;; In the meantime we ship the precompiled OTF and TTF files.
1479     (build-system font-build-system)
1480     (synopsis "Inria Sans and Inria Serif type family")
1481     (description
1482      "Inria Sans and Inria Serif are the two members of a type family designed
1483 for Inria, a public research institute in computer science and mathematics.")
1484     (license license:silofl1.1)))
1485
1486 (define-public font-sil-gentium
1487   (package
1488     (name "font-sil-gentium")
1489     (version "5.000")
1490     (source (origin
1491               (method url-fetch)
1492               (uri (string-append
1493                     "https://software.sil.org/downloads/r/gentium/GentiumPlus-"
1494                     version ".zip"))
1495               (sha256
1496                (base32
1497                 "0m7189870hha217n1vgpmf89mwggrxkh679ffi1lxpnjggqi2n9k"))))
1498     ;; Note: The zip file provides TTF files only, but the developer release,
1499     ;; which contains additional files, has a 'SOURCES.txt' file that says
1500     ;; that "the primary source files for the fonts are the fonts themselves".
1501     ;; Thus it looks like the TTF can be considered source.
1502     (build-system font-build-system)
1503     (synopsis "Serif font for the Cyrillic, Greek, and Latin alphabets")
1504     (description
1505      "Gentium is a typeface family designed to enable the diverse ethnic
1506 groups around the world who use the Latin, Cyrillic and Greek scripts to
1507 produce readable, high-quality publications.  The font comes with regular and
1508 italics shapes.  This package provides only TrueType files (TTF).")
1509     (home-page "https://software.sil.org/gentium/")
1510     (license license:silofl1.1)))
1511
1512 (define-public font-sil-andika
1513   (package
1514     (name "font-sil-andika")
1515     (version "5.000")
1516     (source (origin
1517               (method url-fetch)
1518               (uri (string-append
1519                     "https://software.sil.org/downloads/r/andika/Andika-"
1520                     version ".zip"))
1521               (sha256
1522                (base32
1523                 "01zm7p32gxfwmv7h3cfj2vx59846w2y6rxqy67grn2dyjh8pljv0"))))
1524     ;; As for Gentium (see above), the TTF files are considered source.
1525     (build-system font-build-system)
1526     (synopsis "Sans serif font designed especially for literacy use")
1527     (description
1528      "Andika SIL is a sans serif, Unicode-compliant font designed especially
1529 for literacy use, taking into account the needs of beginning readers.  The
1530 focus is on clear, easy-to-perceive letterforms that will not be readily
1531 confused with one another.  This package provides only TrueType files (TTF).")
1532     (home-page "https://software.sil.org/andika/")
1533     (license license:silofl1.1)))
1534
1535 (define-public font-sil-charis
1536   (package
1537     (name "font-sil-charis")
1538     (version "5.000")
1539     (source (origin
1540               (method url-fetch)
1541               (uri (string-append
1542                     "https://software.sil.org/downloads/r/charis/CharisSIL-"
1543                     version ".zip"))
1544               (sha256
1545                (base32
1546                 "1zcvw37f1a7gkml3yfm6hxh93844llm7xj4w52600qq3ndrm8gjy"))))
1547     ;; As for Gentium (see above), the TTF files are considered source.
1548     (build-system font-build-system)
1549     (synopsis "Serif font for the Cyrillic and Latin alphabets")
1550     (description
1551      "Charis SIL is a Unicode-based font family that supports the wide range
1552 of languages that use the Latin and Cyrillic scripts.  It is specially
1553 designed to make long texts pleasant and easy to read, even in less than ideal
1554 reproduction and display environments.  This package provides only TrueType
1555 files (TTF).")
1556     (home-page "https://software.sil.org/charis/")
1557     (license license:silofl1.1)))
1558
1559 (define-public font-mononoki
1560   (package
1561     (name "font-mononoki")
1562     (version "1.2")
1563     (source (origin
1564               (method git-fetch)
1565               (uri (git-reference
1566                     (url "https://github.com/madmalik/mononoki/")
1567                     (commit version)))
1568               (sha256
1569                (base32
1570                 "1rkzyxn30rn8qv2h2xz324j7q15hzg2lci8790a7cdl1dfgic4xi"))
1571               (file-name (git-file-name name version))))
1572     (build-system font-build-system)
1573     (synopsis "Font for programming and code review")
1574     (description
1575      "Mononoki is a typeface by Matthias Tellen, created to enhance code
1576 formatting.")
1577     (home-page "https://madmalik.github.io/mononoki/")
1578     (license license:silofl1.1)))
1579
1580 (define-public font-public-sans
1581   (package
1582     (name "font-public-sans")
1583     (version "1.008")
1584     (source
1585      (origin
1586        (method git-fetch)
1587        (uri (git-reference
1588              (url "https://github.com/uswds/public-sans.git")
1589              (commit (string-append "v" version))))
1590        (file-name (git-file-name name version))
1591        (sha256
1592         (base32 "1qhyxbjv1rnydfpqzd18fbiyz75p4sabphy8yj07hyq0hidp5xsf"))))
1593     (build-system font-build-system)
1594     (home-page "https://public-sans.digital.gov/")
1595     (synopsis "Neutral typeface for interfaces, text, and headings")
1596     (description
1597      "Public Sans is a strong, neutral, sans-serif typeface for text or
1598 display based on Libre Franklin.")
1599     (license license:silofl1.1)))
1600
1601 (define-public font-hermit
1602   (package
1603     (name "font-hermit")
1604     (version "2.0")
1605     (source (origin
1606               (method url-fetch/tarbomb)
1607               (uri (string-append "https://pcaro.es/d/otf-hermit-" version
1608                                   ".tar.gz"))
1609               (sha256
1610                (base32
1611                 "09rmy3sbf1j1hr8zidighjgqc8kp0wsra115y27vrnlf10ml6jy0"))))
1612     (build-system font-build-system)
1613     (arguments
1614      `(#:tests? #f))
1615     (home-page "https://pcaro.es/p/hermit/")
1616     (synopsis "Monospace font")
1617     (description
1618      "Hermit is a monospace font designed to be clear, pragmatic and very
1619 readable.  Its creation has been focused on programming.  Every glyph was
1620 carefully planned and calculated, according to defined principles and rules.
1621 For this reason, Hermit is coherent and regular.
1622
1623 Symbols stand out from common text.  Dots and commas are easily seen, and
1624 operators are clear even when not surrounded by spaces.  Similar characters
1625 have been designed to be very distinguishable from each other.")
1626     (license license:silofl1.1)))
1627
1628 (define-public font-dseg
1629   (package
1630     (name "font-dseg")
1631     (version "0.45")
1632     (source
1633       (origin
1634         (method url-fetch/zipbomb)
1635         (uri
1636           (string-append "https://github.com/keshikan/DSEG/"
1637                          "releases/download/v" version
1638                          "/fonts-DSEG_v"
1639                          (string-concatenate (string-split version #\.))
1640                          ".zip"))
1641         (sha256
1642           (base32
1643             "0v8sghh4vl286faf8pvi74znz07pyf0qii8z4wjllisqwc35sx72"))))
1644     (build-system font-build-system)
1645     (arguments
1646      `(#:phases
1647        (modify-phases %standard-phases
1648          (replace 'install
1649            (lambda* (#:key outputs #:allow-other-keys)
1650              (let* ((out (assoc-ref outputs "out"))
1651                     (font-dir (string-append out "/share/fonts"))
1652                     (truetype-dir (string-append font-dir "/truetype")))
1653                (with-directory-excursion
1654                  (string-append "fonts-DSEG_v"
1655                                 (apply string-append (string-split ,version
1656                                                                    #\.)))
1657                  (for-each (lambda (f) (install-file f truetype-dir))
1658                            (find-files "." "\\.ttf$"))
1659                #t)))))))
1660     (home-page "https://www.keshikan.net/fonts-e.html")
1661     (synopsis "DSEG: 7-segment and 14-segment fonts")
1662     (description
1663      "DSEG is a font family that imitates seven- and fourteen-segment LCD
1664 displays (7SEG, 14SEG).  DSEG includes the roman alphabet and symbol glyphs.
1665 This package provides the TrueType fonts.")
1666     (license license:silofl1.1)))
1667
1668 (define-public font-jetbrains-mono
1669   (package
1670     (name "font-jetbrains-mono")
1671     (version "1.0.3")
1672     (source
1673      (origin
1674        (method url-fetch)
1675        (uri
1676         (string-append "https://download.jetbrains.com/fonts/"
1677                        "JetBrainsMono-" version ".zip"))
1678        (sha256
1679         (base32 "0zvhwmpdwpm4vywmm6i9a4najz0c7vfi411yikgkd66l5hwd1p6f"))))
1680     (build-system font-build-system)
1681     (home-page "https://www.jetbrains.com/lp/mono/")
1682     (synopsis "Mono typeface for developers")
1683     (description
1684      "JetBrains Mono is a font family dedicated to developers.  JetBrains
1685 Mono’s typeface forms are simple and free from unnecessary details.  Rendered
1686 in small sizes, the text looks crisper.")
1687     (license license:asl2.0)))
1688
1689 (define-public font-vazir
1690   (package
1691     (name "font-vazir")
1692     (version "22.1.0")
1693     (source
1694      (origin
1695        (method url-fetch/zipbomb)
1696        (uri
1697         (string-append "https://github.com/rastikerdar/vazir-font/"
1698                        "releases/download/v" version
1699                        "/vazir-font-v" version ".zip"))
1700        (sha256
1701         (base32
1702          "0w3gwb5q33x5llw7cfs8qhaxr4ssg6rsx4b9day3993zn24xq031"))))
1703     (build-system font-build-system)
1704     (home-page "https://rastikerdar.github.io/vazir-font/")
1705     (synopsis "Vazir Persian typeface")
1706     (description
1707      "Vazir is a beautiful and elegant Persian typeface originally based on
1708 DejaVu, and comes in six variants: Thin, Light, Normal, Medium, Bold, and
1709 Black.  This package provides four versions of Vazir:
1710
1711 @itemize
1712 @item @code{Vazir}: The main version; includes Latin glyphs from Roboto.
1713 @item @code{Vazir-FD}: Like @code{Vazir}, but (always) uses Farsi digit glyphs
1714 instead of Latin ones.
1715 @item @code{Vazir-WOL}: Like @code{Vazir}, but without Roboto's Latin glyphs.
1716 @item @code{Vazir-FD-WOL}: Combination of @code{Vazir-FD} and @code{Vazir-WOL}:
1717 always uses Farsi digits, and does not include Latin glyphs from Roboto.
1718 @end itemize\n")
1719     (license
1720      ;; See https://github.com/rastikerdar/vazir-font/blob/master/LICENSE for
1721      ;; details.
1722      (list license:public-domain        ; the Vazir modifications to DejaVu
1723                                         ; and the DejaVu modifications to...
1724            (license:x11-style           ; ...the Bitstream Vera typeface
1725             "file://LICENSE" "Bitstream Vera License")
1726            license:asl2.0))))           ; Latin glyphs from Roboto
1727
1728 (define-public font-meera-inimai
1729   (package
1730     (name "font-meera-inimai")
1731     (version "2.0")
1732     (source
1733      (origin
1734        (method git-fetch)
1735        (uri (git-reference
1736              (url "https://gitlab.com/smc/meera-inimai")
1737              (commit "0f39cdd7dbf1b6d1bed7df85834d33789dce20a7")))
1738        (file-name (git-file-name name version))
1739        (sha256
1740         (base32
1741          "1x5mhrpx24imh0r4l83mkaiszxgwi1q4ppyyvq63h3ddwk20cwdg"))))
1742     (build-system gnu-build-system)
1743     (native-inputs
1744      `(("fontforge" ,fontforge)
1745        ("harfbuzz" ,harfbuzz "bin")
1746        ("python" ,python-minimal)
1747        ("python-fonttools" ,python-fonttools)
1748        ("python-google-brotli" ,python-google-brotli)))
1749     (arguments
1750      `(#:make-flags (list "PY=python3"
1751                           (string-append "DESTDIR=" %output)
1752                           "fontpath=/share/fonts/truetype")
1753        #:test-target "test"
1754        #:phases
1755        (modify-phases %standard-phases
1756          (delete 'configure))))
1757     (home-page "https://gitlab.com/smc/meera-inimai")
1758     (synopsis "Meera Inimai Tamil font")
1759     (description "Meera Inimai is a Unicode font for the Tamil Script.  Meera
1760 Inimai is a san-serif typeface.  It is best used as a screen font for body
1761 text.  It is also useful for body text of printed pamphlets or single page
1762 designs.  Meera Inimai can be thought of as similar to Helvetica and its
1763 variation Arial.  Tamil characters are inherently vertically-elliptical.  The
1764 orthography of Roman glyphs of Meera Inimai are also based on this
1765 characteristic so that they sit smoothly with the Tamil glyphs.")
1766     (license license:silofl1.1)))
1767
1768 (define-public font-ipa-mj-mincho
1769   (package
1770     (name "font-ipa-mj-mincho")
1771     (version "006.01")
1772     (source (origin
1773               (method url-fetch/zipbomb)
1774               (uri (string-append "https://mojikiban.ipa.go.jp/OSCDL/IPAmjMincho"
1775                                   "/ipamjm" (string-join (string-split version #\.) "")
1776                                   ".zip"))
1777               (sha256
1778                (base32
1779                 "0s2vs9p7vd7ajnn6c2icli069sjwi4d45a39fczqpwwn507lwj9m"))))
1780     (build-system font-build-system)
1781     (arguments
1782      `(#:phases
1783        (modify-phases %standard-phases
1784          (add-after 'install 'install-doc
1785            (lambda* (#:key outputs #:allow-other-keys)
1786              (let ((doc-dir (string-append (assoc-ref outputs "out")
1787                                            "/share/doc/font-ipa-mj-mincho")))
1788                (mkdir-p doc-dir)
1789                (copy-file "Readme.txt" (string-append doc-dir "/README"))
1790                (copy-file "IPA_Font_License_Agreement_v1.0.txt"
1791                           (string-append doc-dir "/LICENSE"))
1792                #t))))))
1793     (home-page "https://mojikiban.ipa.go.jp/1300.html")
1794     (synopsis "Japanese font from the Information-technology Promotion Agency")
1795     (description "MJM Mincho is a font that aims at, for example, allowing you
1796 to write people's name, or for formal business situations where it is necessary
1797 to have a detailed and proper character style.")
1798     (license license:ipa)))