From 9045e6d296593a7f81269ecfab327733853b68f4 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 5 Mar 2015 08:38:13 +0100
Subject: [PATCH 1/2] gnu: python2-rsvg: Define with helper function.

* gnu/packages/gnome.scm (python2-gnome-desktop-component): New variable.
---
 gnu/packages/gnome.scm | 56 ++++++++++++++++++++++++++++++++++++--------------
 1 file changed, 41 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 33ce2e8..c303826 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -6,6 +6,7 @@
 ;;; Copyright © 2014, 2015 Federico Beffa <beffa@fbengineering.ch>
 ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
 ;;; Copyright © 2015 Andy Wingo <wingo@igalia.com>
+;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1611,36 +1612,61 @@ commercial X servers. It is useful for creating XKB-related software (layout
 indicators etc).")
     (license license:lgpl2.0+)))
 
-(define-public python2-rsvg
-  ;; XXX: This is actually a subset of gnome-python-desktop.
+(define (python2-gnome-desktop-component comp syn desc ins lic)
   (package
-    (name "python2-rsvg")
+    (name (string-append "python2-" comp))
     (version "2.32.0")
     (source
      (origin
        (method url-fetch)
        (uri (string-append
-             "mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
+             "mirror://gnome/sources/gnome-python-desktop/"
+             (version-major+minor version) "/gnome-python-desktop-"
              version ".tar.bz2"))
        (sha256
         (base32
          "1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
     (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+        (alist-cons-before
+         'build 'enter-dir
+         (lambda _ (chdir ,comp))
+         (alist-cons-after
+          'install 'install-pth
+          (lambda* (#:key outputs #:allow-other-keys)
+            ;; The modules are stored in a subdirectory of python's
+            ;; site-packages directory.  Add a .pth file so that python will
+            ;; add that subdirectory to its module search path.
+            (call-with-output-file
+                (string-append
+                 (assoc-ref outputs "out")
+                 "/lib/python"
+                 ,(version-major+minor
+                   (package-version python-2))
+                 "/site-packages" "/" ,comp ".pth")
+                (lambda (port)
+                  (format port "gtk-2.0~%")))
+            #t)
+          %standard-phases))))
+    (inputs
+     `(("python2" ,python-2)
+       ("pygtk" ,python2-pygtk)
+       ,@ins))
     (native-inputs
      `(("pkg-config" ,pkg-config)))
-    (inputs
-     `(("python" ,python-2)
-       ("python2-pygtk" ,python2-pygtk)
-       ("librsvg" ,librsvg)))
     (home-page "http://www.gnome.org")
-    (synopsis "Python bindings to librsvg")
-    (description
-     "This packages provides Python bindings to librsvg, the SVG rendering
-library.")
+    (synopsis syn)
+    (description desc)
+    (license lic)))
 
-    ;; This is the license of the rsvg bindings.  The license of each module
-    ;; of gnome-python-desktop is given in 'COPYING'.
-    (license license:lgpl2.1+)))
+(define-public python2-rsvg
+  (python2-gnome-desktop-component
+   "rsvg"
+   "Python bindings to librsvg"
+   "This module contains bindings allowing the use of librsvg in Python."
+   `(("librsvg" ,librsvg))
+   license:lgpl2.1+))
 
 (define-public glib-networking
   (package
-- 
2.1.0