From afa181fff435b4e549092c2639e8165069082755 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 7 Oct 2015 21:31:45 +0200
Subject: gnu: python: Build the tkinter module.

Fixes <http://bugs.gnu.org/20889>.
Reported by Federico Beffa <beffa@ieee.org>.

* gnu/packages/python.scm (python-2)[arguments]: Pass
  --with-tcltk-includes and --with-tcltk-libs.
  [inputs]: Add TCL and TK.
---
 gnu/packages/python.scm | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm
index bb4b385026..b512e77bbf 100644
--- a/gnu/packages/python.scm
+++ b/gnu/packages/python.scm
@@ -65,6 +65,7 @@
   #:use-module (gnu packages xml)
   #:use-module (gnu packages xorg)
   #:use-module (gnu packages zip)
+  #:use-module (gnu packages tcl)
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix git-download)
@@ -138,9 +139,20 @@
               (openssl (assoc-ref %build-inputs "openssl"))
               (readline (assoc-ref %build-inputs "readline"))
               (zlib (assoc-ref %build-inputs "zlib"))
+              (tk (assoc-ref %build-inputs "tk"))
+              (tcl (assoc-ref %build-inputs "tcl"))
               (out (assoc-ref %outputs "out")))
          (list "--enable-shared"                  ; allow embedding
                "--with-system-ffi"                ; build ctypes
+
+               ;; configure/setup.py doesn't use pkg-config to find Tcl/Tk.
+               (string-append "--with-tcltk-includes=-I" tk "/include -I"
+                              tcl "/include")
+               (string-append "--with-tcltk-libs=-L" tk "/lib -ltk" ""
+                              ,(version-prefix (package-version tk) 2)
+                              " -L" tcl "/lib -ltcl"
+                              ,(version-prefix (package-version tcl) 2))
+
                (string-append "CPPFLAGS="
                 "-I" bz2 "/include "
                 "-I" gdbm "/include "
@@ -217,7 +229,9 @@
        ("sqlite" ,sqlite)                         ; for sqlite extension
        ("openssl" ,openssl)
        ("readline" ,readline)
-       ("zlib" ,zlib)))
+       ("zlib" ,zlib)
+       ("tcl" ,tcl)
+       ("tk" ,tk)))                               ; for tkinter
     (native-inputs
      `(("pkg-config" ,pkg-config)))
     (native-search-paths
@@ -225,8 +239,7 @@
             (variable "PYTHONPATH")
             (files '("lib/python2.7/site-packages")))))
     (home-page "http://python.org")
-    (synopsis
-     "High-level, dynamically-typed programming language")
+    (synopsis "High-level, dynamically-typed programming language")
     (description
      "Python is a remarkably powerful dynamic programming language that
 is used in a wide variety of application domains.  Some of its key
-- 
cgit v1.2.3