gnu: hime: Use new style.

* gnu/packages/language.scm (hime)[arguments]: Use G-expressions.
<#:phases>: Drop #t.
[native-inputs]: Remove labels.
[inputs]: Remove labels.

Change-Id: I92ddc11f5c9a65f525548bde98f994f14e28652f
Signed-off-by: Andreas Enge <andreas@enge.fr>
This commit is contained in:
Zheng Junjie 2025-07-14 18:59:32 +08:00 committed by Andreas Enge
parent de0e47a982
commit 0e5058d36a
No known key found for this signature in database
GPG key ID: F7D5C9BF765C61E3

View file

@ -222,22 +222,23 @@ focuses especially on Korean input (Hangul, Hanja, ...).")
(base32 "1wn0ici78x5qh6hvv50bf76ld7ds42hzzl4l5qz34hp8wyvrwakw")))) (base32 "1wn0ici78x5qh6hvv50bf76ld7ds42hzzl4l5qz34hp8wyvrwakw"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments
`(#:tests? #f ; No target (list
#:tests? #f ; No target
#:imported-modules #:imported-modules
(,@%glib-or-gtk-build-system-modules `(,@%glib-or-gtk-build-system-modules
(guix build cmake-build-system) (guix build cmake-build-system)
(guix build qt-build-system) (guix build qt-build-system)
(guix build qt-utils)) (guix build qt-utils))
#:modules #:modules
(((guix build qt-build-system) #:prefix qt:) `(((guix build qt-build-system) #:prefix qt:)
,@%glib-or-gtk-build-system-default-modules) ,@%glib-or-gtk-build-system-default-modules)
#:configure-flags #:configure-flags
(list #~(list
;; FIXME ;; FIXME
;; error: unknown type name GtkStatusIcon ;; error: unknown type name GtkStatusIcon
"--disable-system-tray") "--disable-system-tray")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'configure 'relax-gcc-14-strictness (add-before 'configure 'relax-gcc-14-strictness
(lambda _ (lambda _
(setenv (setenv
@ -252,21 +253,20 @@ focuses especially on Korean input (Hangul, Hanja, ...).")
(("gnu17") (("gnu17")
"gnu11") "gnu11")
(("gnu++17") (("gnu++17")
"gnu++11")) "gnu++11"))))
#t))
(add-after 'install 'qt-wrap (add-after 'install 'qt-wrap
(assoc-ref qt:%standard-phases 'qt-wrap))))) (assoc-ref qt:%standard-phases 'qt-wrap)))))
(native-inputs (native-inputs
`(("gettext" ,gettext-minimal) (list gettext-minimal
("pkg-config" ,pkg-config) pkg-config
("whereis" ,util-linux))) util-linux))
(inputs (inputs
`(("anthy" ,anthy) (list anthy
("appindicator" ,libappindicator) libappindicator
("chewing" ,libchewing) libchewing
("gtk+" ,gtk+) gtk+
("qtbase" ,qtbase-5) qtbase-5
("xtst" ,libxtst))) libxtst))
(synopsis "HIME Input Method Editor") (synopsis "HIME Input Method Editor")
(description "Hime is an extremely easy-to-use input method framework. It (description "Hime is an extremely easy-to-use input method framework. It
is lightweight, stable, powerful and supports many commonly used input methods, is lightweight, stable, powerful and supports many commonly used input methods,