summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Bakke <mbakke@fastmail.com>2016-10-09 22:26:12 +0100
committerMarius Bakke <mbakke@fastmail.com>2016-11-03 20:32:04 +0000
commit6e1d7aa94e6acb5ede8b69586c4d3fb393096ff2 (patch)
tree9b7decd34463970a974b952848ebacb93b69b810
parentb4edcd28cf0bc55e3768d1be3044370f9d45ad73 (diff)
gnu: Add font-adobe-source-code-pro.
* gnu/packages/fonts.scm (font-adobe-source-code-pro): New variable.
-rw-r--r--gnu/packages/fonts.scm46
1 files changed, 46 insertions, 0 deletions
diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index c8642b72ae..3022d9a474 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -11,6 +11,7 @@
;;; Copyright © 2016 Jookia <166291@gmail.com>
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Dmitry Nikolaev <cameltheman@gmail.com>
+;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -28,6 +29,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages fonts)
+ #:use-module (ice-9 regex)
#:use-module (guix utils)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
@@ -851,3 +853,47 @@ powerline support.")
(license (license:x11-style
"https://github.com/chrissimpkins/Hack/blob/master/LICENSE.md"
"Hack Open Font License v2.0"))))
+
+(define-public font-adobe-source-code-pro
+ (package
+ (name "font-adobe-source-code-pro")
+ (version "2.030R-ro-1.050R-it")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/adobe-fonts/source-code-pro/archive/"
+ (regexp-substitute/global
+ ;; The upstream tag uses "/" between the roman and italic
+ ;; versions, so substitute our "-" separator here.
+ #f "R-ro-" version 'pre "R-ro/" 'post) ".tar.gz"))
+ (file-name (string-append name "-" version ".tar.gz"))
+ (sha256
+ (base32
+ "0arhhsf3i7ss39ykn73d1j8k4n8vx7115xph6jwkd970p1cxvr54"))))
+ (build-system trivial-build-system)
+ (arguments
+ `(#:modules ((guix build utils))
+ #:builder
+ (begin
+ (use-modules (guix build utils))
+ (let ((tar (string-append (assoc-ref %build-inputs "tar")
+ "/bin/tar"))
+ (PATH (string-append (assoc-ref %build-inputs "gzip")
+ "/bin"))
+ (font-dir (string-append %output "/share/fonts/opentype")))
+ (setenv "PATH" PATH)
+ (mkdir-p font-dir)
+ (zero? (system* tar "-C" font-dir "--strip-components=2"
+ "-xvf" (assoc-ref %build-inputs "source")
+ (string-append "source-code-pro-"
+ ,version "/OTF")))))))
+ (native-inputs
+ `(("gzip" ,gzip)
+ ("tar" ,tar)))
+ (home-page "https://github.com/adobe-fonts/source-code-pro")
+ (synopsis
+ "Monospaced font family for user interface and coding environments")
+ (description
+ "Source Code Pro is a set of monospaced OpenType fonts that have been
+designed to work well in user interface environments.")
+ (license license:silofl1.1)))