Hi all,
First patch to guix-devel; tried my best to conform to the guidelines.
Couldn't fix some "abiguous package" issues with
font-adobe-source-code-pro package. Let me know if someone finds a
solution.
More packages to come!
Dylan
>From db8338214f57249f7f513d9b27b6f31ae6cea345 Mon Sep 17 00:00:00 2001
From: Dylan Jeffers <sapient...@openmailbox.org>
Date: Fri, 5 Aug 2016 18:37:34 -0700
Subject: [PATCH] Add python-kivy and adobe source-code-pro font
---
gnu/packages/fonts.scm | 51 +++++++++++++++++++++++++++++++++++++++++++++++++
gnu/packages/python.scm | 51 +++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 102 insertions(+)
diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 9b2281a..fa8420e 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -414,6 +414,55 @@ The Liberation Fonts are sponsored by Red Hat.")
for long (8 and more hours per day) work with computers.")
(license license:silofl1.1)))
+(define-public font-adobe-source-code-pro
+ (package
+ (name "font-adobe-source-code-pro")
+ (version "2.030")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/adobe-fonts/source-code-pro/archive/";
+ version "R-ro/1.050R-it.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/truetype")))
+ (setenv "PATH" PATH)
+ (system* tar "xvf" (assoc-ref %build-inputs "source"))
+ (mkdir-p font-dir)
+ (chdir (string-append "source-code-pro-" ,version
+ "R-ro-1.050R-it/TTF/"))
+ (for-each (lambda (ttf)
+ (copy-file ttf
+ (string-append font-dir "/"
+ (basename ttf))))
+ (find-files "." "\\.ttf$"))))))
+ (native-inputs
+ `(("gzip" ,gzip)
+ ("tar" ,tar)))
+ (home-page "https://adobe-fonts.github.io/source-code-pro/";)
+ (synopsis "Source-Code-Pro fonts")
+ (description
+ "Source Code Pro is a set of OpenType fonts that have been designed
+to work well in user interface (UI) environments. In addition to a
+functional OpenType font, this open source project provides all of the
+source files that were used to build this OpenType font by using the
+AFDKO makeotf tool.")
+ (license license:silofl1.1)))
+
(define-public font-adobe-source-han-sans
(package
(name "font-adobe-source-han-sans")
@@ -865,3 +914,5 @@ powerline support.")
(license (license:x11-style
"https://github.com/chrissimpkins/Hack/blob/master/LICENSE.md";
"Hack Open Font License v2.0"))))
+
+
diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm
index 470bad8..2cdc398 100644
--- a/gnu/packages/python.scm
+++ b/gnu/packages/python.scm
@@ -88,10 +88,15 @@
#:use-module (gnu packages tcl)
#:use-module (gnu packages bdw-gc)
#:use-module (gnu packages pcre)
+ #:use-module (gnu packages gstreamer)
+ #:use-module (gnu packages gl)
+ #:use-module (gnu packages sdl)
+ #:use-module (gnu packages video)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix utils)
+ #:use-module (guix build utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system cmake)
#:use-module (guix build-system python)
@@ -9808,3 +9813,49 @@ etc.")
(package
(inherit base)
(name "ptpython2"))))
+
+
+(define-public python-kivy
+ (package
+ (name "python-kivy")
+ (version "1.9.1")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (pypi-uri "kivy" version))
+ (sha256
+ (base32
+ "0zk3g1j1z0lzcm9d0k1lprrs95zr8n8k5pdg3p5qlsn26jz4bg19"))))
+ (build-system python-build-system)
+ (arguments
+ `(#:tests? #f ; tests require many more packages
+ #:phases
+ (modify-phases
+ %standard-phases
+ (add-after 'patch-generated-file-shebangs 'set-sdl-paths
+ (lambda* (#:key inputs #:allow-other-keys)
+ (setenv "KIVY_SDL2_PATH"
+ (string-append (assoc-ref inputs "sdl-union")
+ "/include/SDL2")))))))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)))
+ (inputs
+ `(
+ ("python-cython" ,python-cython)
+ ("gstreamer" ,gstreamer)
+ ("mesa" ,mesa)
+ ("sdl-union"
+ ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
+ (home-page "http://kivy.org";)
+ (synopsis
+ "Open-source multitouch application framework")
+ (description
+ "A software library for rapid development of
+hardware-accelerated multitouch applications.")
+ (license bsd-3)))
+
+(define-public python2-kivy
+ (let ((base (package-with-python2 (strip-python2-variant python-kivy))))
+ (package
+ (inherit base)
+ (name "python2-kivy"))))
--
2.7.3
