From 25cd777ff3a2429cbb257e02603d6bef78d1564f Mon Sep 17 00:00:00 2001
From: Dylan Jeffers <sapientech@openmailbox.org>
Date: Thu, 11 Aug 2016 17:15:47 -0700
Subject: [PATCH] gnu: Add python-kivy.

* gnu/packages/python.scm (python-kivy): New variable.
* gnu/packages/python.scm (python2-kivy: New variable.
---
 gnu/packages/python.scm | 54 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)

diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm
index 6ff1c5c..9f14e80 100644
--- a/gnu/packages/python.scm
+++ b/gnu/packages/python.scm
@@ -24,6 +24,7 @@
 ;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
 ;;; Copyright © 2016 Troy Sankey <sankeytms@gmail.com>
 ;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
+;;; Copyright © 2016 Dylan Jeffers <sapientech@openmailbox.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -88,6 +89,9 @@
   #: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 sdl)
+  #:use-module (gnu packages gl)
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix git-download)
@@ -9852,3 +9856,53 @@ etc.")
     (package
       (inherit base)
       (name "ptpython2"))))
+
+(define-public python-kivy
+  (let ((commit
+         "a988c5e7a47da56263ff39514264a3de516ef2fe"))
+    (package
+      (name "python-kivy")
+      (version "1.9.1")
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/kivy/kivy")
+               (commit commit)))
+         (file-name (string-append name "-" version "-dev.tar.gz"))
+         (sha256
+          (base32
+           "0jk92b4a8l7blkvkgkjihk171s0dfnq582cckff5srwc8kal5m0p"))))
+      (build-system python-build-system)
+      (arguments
+       `(#:tests? #f              ; Tests require many optional packages
+         #:phases
+         (modify-phases %standard-phases
+           (replace 'build (lambda _ (zero? (system* "make" "force"))))
+           (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"))
+               #t)))))
+      (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
+       "Multitouch application framework")
+      (description
+       "A software library for rapid development of
+hardware-accelerated multitouch applications.")
+      (license license:expat))))
+
+(define-public python2-kivy
+  (let ((base (package-with-python2 (strip-python2-variant python-kivy))))
+    (package
+      (inherit base)
+      (name "python2-kivy"))))
-- 
2.7.3