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