gnu/packages/fonts.scm

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