gnu: ibus-anthy: Modernize.

* gnu/packages/ibus.scm (ibus-anthy)[phases]: Delete trailing #t and adjust to
use search-input-file and search-input-directory.
[native-inputs]: Use new style.
[inputs]: Likewise.
This commit is contained in:
Maxim Cournoyer 2022-06-23 22:49:08 -04:00
parent 06902a6766
commit 39b118776b
No known key found for this signature in database
GPG Key ID: 1260E46482E63562

View File

@ -10,6 +10,7 @@
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Songlin Jiang <hollowman@hollowman.ml>
;;; Copyright © 2021 Taiju HIGASHI <higashi@taiju.info>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -329,25 +330,28 @@ Chinese pinyin input methods.")
(modify-phases %standard-phases
(add-after 'install 'wrap-programs
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(for-each
(lambda (prog)
(wrap-program (string-append out "/libexec/" prog)
`("GUIX_PYTHONPATH" ":" prefix
(,(getenv "GUIX_PYTHONPATH")))
`("GI_TYPELIB_PATH" ":" prefix
(,(getenv "GI_TYPELIB_PATH")
,(string-append out "/lib/girepository-1.0")))))
'("ibus-engine-anthy" "ibus-setup-anthy"))
#t))))))
(for-each (lambda (prog)
(wrap-program (search-input-file
outputs (string-append "libexec/" prog))
`("GUIX_PYTHONPATH" ":" prefix
(,(getenv "GUIX_PYTHONPATH")))
`("GI_TYPELIB_PATH" ":" prefix
(,(getenv "GI_TYPELIB_PATH")
,(search-input-directory
inputs "lib/girepository-1.0")))))
'("ibus-engine-anthy" "ibus-setup-anthy")))))))
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("intltool" ,intltool)
("pkg-config" ,pkg-config)
("python" ,python)))
(list gettext-minimal
`(,glib "bin")
intltool
pkg-config
python))
(inputs
(list anthy gtk+ ibus gobject-introspection python-pygobject))
(list anthy
gtk+
ibus
gobject-introspection
python-pygobject))
(synopsis "Anthy Japanese language input method for IBus")
(description "IBus-Anthy is an engine for the input bus \"IBus\"). It
adds the Anthy Japanese language input method to IBus. Because most graphical