guix-more/more/packages/ibus.scm

ibus.scm

1
;;; GNU Guix --- Functional package management for GNU
2
;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
3
;;;
4
;;; This file is part of GNU Guix.
5
;;;
6
;;; GNU Guix is free software; you can redistribute it and/or modify it
7
;;; under the terms of the GNU General Public License as published by
8
;;; the Free Software Foundation; either version 3 of the License, or (at
9
;;; your option) any later version.
10
;;;
11
;;; GNU Guix is distributed in the hope that it will be useful, but
12
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
13
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14
;;; GNU General Public License for more details.
15
;;;
16
;;; You should have received a copy of the GNU General Public License
17
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
18
19
(define-module (more packages ibus)
20
  #:use-module ((guix licenses) #:prefix license:)
21
  #:use-module (gnu packages)
22
  #:use-module (guix packages)
23
  #:use-module (guix download)
24
  #:use-module (guix utils)
25
  #:use-module (guix build-system gnu)
26
  #:use-module (gnu packages autotools)
27
  #:use-module (gnu packages base)
28
  #:use-module (gnu packages gettext)
29
  #:use-module (gnu packages glib)
30
  #:use-module (gnu packages ibus)
31
  #:use-module (gnu packages pkg-config)
32
  #:use-module (gnu packages python))
33
34
(define-public libhangul
35
  (package
36
    (name "libhangul")
37
    (version "0.1.0")
38
    (source (origin
39
              (method url-fetch)
40
              (uri (string-append
41
                    "https://github.com/choehwanjin/libhangul/archive/libhangul-"
42
                    version ".tar.gz"))
43
              (sha256
44
               (base32
45
                "0c2qpkrsshr55zxlrhibrsvj2j10lvdpf0x2q4y8s2gdb7qixa72"))))
46
    (build-system gnu-build-system)
47
    (arguments
48
     `(#:phases
49
       (modify-phases %standard-phases
50
         (add-after 'unpack 'autogen
51
           (lambda _ (and (zero? (system* "touch" "ChangeLog"))
52
                          (zero? (system* "autoreconf" "-fiv"))))))))
53
    (native-inputs
54
     `(("autoconf" ,autoconf)
55
       ("automake" ,automake)
56
       ("gettext" ,gettext-minimal)
57
       ("intltool" ,intltool)
58
       ("libtool" ,libtool)
59
       ("pkg-config" ,pkg-config)
60
       ("python" ,python)
61
       ("which" ,which)))
62
    (home-page "https://github.com/choehwanjin/libhangul")
63
    (synopsis "")
64
    (description "")
65
    (license license:lgpl2.1+)))
66
67
(define-public ibus-hangul
68
  (package
69
    (name "ibus-hangul")
70
    (version "1.5.0")
71
    (source (origin
72
              (method url-fetch)
73
              (uri (string-append
74
                    "https://github.com/choehwanjin/ibus-hangul/releases/"
75
                    "download/" version "/ibus-hangul-" version ".tar.gz"))
76
              (sha256
77
               (base32
78
                "120p9w7za6hi521hz8q235fkl4i3p1qqr8nqm4a3kxr0pcq40bd2"))))
79
    (build-system gnu-build-system)
80
    (arguments
81
     `(#:phases
82
       (modify-phases %standard-phases
83
         (add-after 'install 'wrap-programs
84
           (lambda* (#:key outputs #:allow-other-keys)
85
             (let ((out (assoc-ref outputs "out")))
86
               (for-each
87
                (lambda (prog)
88
                  (wrap-program (string-append out "/libexec/" prog)
89
                    `("PYTHONPATH" ":" prefix
90
                      (,(getenv "PYTHONPATH")))
91
                    `("GI_TYPELIB_PATH" ":" prefix
92
                      (,(getenv "GI_TYPELIB_PATH")
93
                       ,(string-append out "/lib/girepository-1.0")))))
94
                '("ibus-engine-hangul" "ibus-setup-hangul"))
95
               #f))))))
96
    (native-inputs
97
     `(("gettext" ,gettext-minimal)
98
       ("intltool" ,intltool)
99
       ("pkg-config" ,pkg-config)
100
       ("python" ,python)))
101
    (inputs
102
    ;   ("gtk+" ,gtk+)
103
     `(("ibus" ,ibus)
104
       ("libhangul" ,libhangul)
105
       ("gobject-introspection" ,gobject-introspection)
106
       ("python-pygobject" ,python-pygobject)))
107
    (synopsis "Hangul Korean language input method for IBus")
108
    (description "IBus-Hangul is an engine for the input bus \"IBus\").  It
109
adds the Hangul Korean language input method to IBus.  Because most graphical
110
applications allow text input via IBus, installing this package will enable
111
Korean language input in most graphical applications.")
112
    (home-page "https://github.com/choehwanjin/ibus-hangul/")
113
    (license license:gpl2+)))
114