From 41ba1793f1768b4aa3c559e83ec31482cae00f3a Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sat, 5 Sep 2015 23:05:06 +0200
Subject: [PATCH 2/3] WIP: gnu: Add ibus-pinyin.

* gnu/packages/ibus.scm (ibus-pinyin): New variable.
---
 gnu/packages/ibus.scm | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)

diff --git a/gnu/packages/ibus.scm b/gnu/packages/ibus.scm
index 9c64530..4474665 100644
--- a/gnu/packages/ibus.scm
+++ b/gnu/packages/ibus.scm
@@ -28,6 +28,7 @@
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages base)
   #:use-module (gnu packages databases)
+  #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
   #:use-module (gnu packages gtk)
@@ -96,6 +97,60 @@ may also simplify input method development.")
    (home-page "http://ibus.googlecode.com/")
    (license lgpl2.1+)))
 
+(define-public ibus-pinyin
+  (package
+   (name "ibus-pinyin")
+   (version "1.5.0")
+   (source
+    (origin
+      (method url-fetch)
+      (uri (string-append "https://ibus.googlecode.com/files/ibus-pinyin-"
+                          version ".tar.gz"))
+      (sha256
+       (base32
+        "15mwpm64mjxm2j9fmjxd74xwngwb88131rj9b3b9zsjirj6lapd8"))))
+   (build-system glib-or-gtk-build-system)
+   (arguments
+    '(#:phases
+      (modify-phases %standard-phases
+        (add-after 'unpack 'use-full-python-path
+         (lambda* (#:key inputs #:allow-other-keys)
+           (substitute* "setup/ibus-setup-pinyin.in"
+             (("exec python")
+              (string-append "exec " (assoc-ref inputs "python")
+                             "/bin/python")))
+           #t))
+        (add-after 'wrap-program 'wrap-with-additional-paths
+         (lambda* (#:key inputs outputs #:allow-other-keys)
+           ;; Make sure 'ibus-setup-pinyin' runs with the correct PYTHONPATH
+           ;; and GI_TYPELIB_PATH.
+           ;; TODO: This doesn't work.  ibus-setup-pinyin cannot be executed.
+           (let ((out (assoc-ref outputs "out")))
+             (wrap-program (string-append out "/libexec/ibus-setup-pinyin")
+               `("PYTHONPATH" ":" prefix
+                 (,(getenv "PYTHONPATH")))
+               `("GI_TYPELIB_PATH" ":" prefix
+                 (,(getenv "GI_TYPELIB_PATH")
+                  ,(string-append (assoc-ref inputs "ibus")
+                                  "/lib/girepository-1.0"))))
+             #t))))))
+   (inputs
+    `(("ibus" ,ibus)
+      ("intltool" ,intltool)
+      ("sqlite" ,sqlite)
+      ("python" ,python-2)
+      ("pyxdg" ,python2-pyxdg)
+      ("pyzy" ,pyzy)))
+   (native-inputs
+    `(("gobject-introspection" ,gobject-introspection)
+      ("pkg-config" ,pkg-config)))
+   (synopsis "Chinese Pinyin and Bopomofo input methods for IBus")
+   (description
+    "This package provides the Chinese Pinyin and Bopomofo input methods for
+IBus.")
+   (home-page "https://github.com/ibus/ibus-pinyin")
+   (license gpl2+)))
+
 (define-public pyzy
   ;; There is no release tarball, so we take the last commit.
   (let ((commit "6d9c3cdff"))
-- 
2.5.0