gnu: Add font-dseg.

* gnu/packages/fonts.scm (font-dseg): New variable.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Alexandros Theodotou 2019-11-10 01:25:28 +00:00 committed by Ludovic Courtès
parent e30bb63c29
commit 600f680dca
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -27,6 +27,7 @@
;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2019 Baptiste Strazzulla <bstrazzull@hotmail.fr> ;;; Copyright © 2019 Baptiste Strazzulla <bstrazzull@hotmail.fr>
;;; Copyright © 2019 Alva <alva@skogen.is> ;;; Copyright © 2019 Alva <alva@skogen.is>
;;; Copyright © 2019 Alexandros Theodotou <alex@zrythm.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1524,3 +1525,43 @@ (define-public font-hermit
operators are clear even when not surrounded by spaces. Similar characters operators are clear even when not surrounded by spaces. Similar characters
have been designed to be very distinguishable from each other.") have been designed to be very distinguishable from each other.")
(license license:silofl1.1))) (license license:silofl1.1)))
(define-public font-dseg
(package
(name "font-dseg")
(version "0.45")
(source
(origin
(method url-fetch/zipbomb)
(uri
(string-append "https://github.com/keshikan/DSEG/"
"releases/download/v" version
"/fonts-DSEG_v"
(string-concatenate (string-split version #\.))
".zip"))
(sha256
(base32
"0v8sghh4vl286faf8pvi74znz07pyf0qii8z4wjllisqwc35sx72"))))
(build-system font-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(font-dir (string-append out "/share/fonts"))
(truetype-dir (string-append font-dir "/truetype")))
(with-directory-excursion
(string-append "fonts-DSEG_v"
(apply string-append (string-split ,version
#\.)))
(for-each (lambda (f) (install-file f truetype-dir))
(find-files "." "\\.ttf$"))
#t)))))))
(home-page "https://www.keshikan.net/fonts-e.html")
(synopsis "DSEG: 7-segment and 14-segment fonts")
(description
"DSEG is a font family that imitates seven- and fourteen-segment LCD
displays (7SEG, 14SEG). DSEG includes the roman alphabet and symbol glyphs.
This package provides the TrueType fonts.")
(license license:silofl1.1)))