ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add font-linuxlibertine.

Browse source 
* gnu/packages/fonts.scm (font-linuxlibertine): New variable.
This commit is contained in:
Ricardo Wurmus 2017-04-23 14:10:50 +02:00
parent f3bd17281a
commit d28fa5cc70
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 58 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
gnu/packages/fonts.scm
View file

@ -5,7 +5,7 @@
;;; Copyright © 2014 Alex Kost <alezost@gmail.com>
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2017 ng0 <ng0@libertad.pw>
;;; Copyright © 2016 Jookia <166291@gmail.com>
@ -370,6 +370,63 @@ (define-public font-liberation
The Liberation Fonts are sponsored by Red Hat.")
(license license:silofl1.1)))
(define-public font-linuxlibertine
(package
(name "font-linuxlibertine")
(version "5.3.0")
(source (origin
(method url-fetch/tarbomb)
(uri (string-append "mirror://sourceforge/linuxlibertine/"
"linuxlibertine/" version
"/LinLibertineSRC_" version "_2012_07_02.tgz"))
(sha256
(base32
"0x7cz6hvhpil1rh03rax9zsfzm54bh7r4bbrq8rz673gl9h47v0v"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; there are no tests
#:modules ((guix build utils)
(guix build gnu-build-system)
(srfi srfi-1)
(srfi srfi-26))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'build
(lambda _
(let ((compile
(lambda (name ext)
(zero? (system*
"fontforge" "-lang=ff"
"-c" (string-append "Open('" name "');"
"Generate('"
(basename name "sfd") ext
"')"))))))
(every (lambda (name)
(and (compile name "ttf")
(compile name "otf")))
(find-files "." "\\.sfd$")))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((font-dir (string-append (assoc-ref outputs "out")
"/share/fonts/truetype")))
(mkdir-p font-dir)
(for-each (cut install-file <> font-dir)
(find-files "." "\\.(otf|ttf)$"))
#t))))))
(native-inputs
`(("fontforge" ,fontforge)))
(home-page "http://www.linuxlibertine.org/")
(synopsis "Serif and sans serif typefaces")
(description "The Linux Libertine fonts is a set of typefaces containing
both a Serif version (\"Linux Libertine\") and a Sans Serif (\"Linux
Biolinum\") designed to be used together as an alternative for Times/Times New
Roman and Helvetica/Arial. The Serif typeface comes in two shapes and two
weights, and with a Small Capitals version of the regular typeface. Linux
Biolinum is available in both Regular and Bold weights.")
;; The fonts are released under either of these licenses.
(license (list license:gpl2+ license:silofl1.1))))
(define-public font-terminus
(package
(name "font-terminus")