>From db8338214f57249f7f513d9b27b6f31ae6cea345 Mon Sep 17 00:00:00 2001
From: Dylan Jeffers <address@hidden>
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