me
/
guix
Archived
1
0
Fork 0
Code

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.
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
1 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
gnu/packages/ibus.scm
View File

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