~ruther/guix-local

0e5058d36a52f050472688eb6f9ff6a47cbde12c — Zheng Junjie 1 year, 4 months ago de0e47a
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>
1 files changed, 42 insertions(+), 42 deletions(-)

M gnu/packages/language.scm
M gnu/packages/language.scm => gnu/packages/language.scm +42 -42
@@ 213,60 213,60 @@ focuses especially on Korean input (Hangul, Hanja, ...).")
       (method git-fetch)
       (uri
        (git-reference
         (url "https://github.com/hime-ime/hime.git")
         (commit
          (string-append "v" version))))
          (url "https://github.com/hime-ime/hime.git")
          (commit
           (string-append "v" version))))
       (file-name
        (git-file-name name version))
       (sha256
        (base32 "1wn0ici78x5qh6hvv50bf76ld7ds42hzzl4l5qz34hp8wyvrwakw"))))
    (build-system glib-or-gtk-build-system)
    (arguments
     `(#:tests? #f                      ; No target
       #:imported-modules
       (,@%glib-or-gtk-build-system-modules
     (list
      #:tests? #f                      ; No target
      #:imported-modules
      `(,@%glib-or-gtk-build-system-modules
        (guix build cmake-build-system)
        (guix build qt-build-system)
        (guix build qt-utils))
       #:modules
       (((guix build qt-build-system) #:prefix qt:)
      #:modules
      `(((guix build qt-build-system) #:prefix qt:)
        ,@%glib-or-gtk-build-system-default-modules)
       #:configure-flags
       (list
        ;; FIXME
        ;; error: unknown type name ‘GtkStatusIcon’
        "--disable-system-tray")
       #:phases
       (modify-phases %standard-phases
         (add-before 'configure 'relax-gcc-14-strictness
           (lambda _
             (setenv
              "CFLAGS"
              (string-append "-g -O2"
                             " -Wno-error=incompatible-pointer-types"
                             " -Wno-error=int-conversion"
                             " -Wno-error=implicit-function-declaration"))))
         (add-after 'unpack 'patch-std
           (lambda _
             (substitute* "configure"
               (("gnu17")
                "gnu11")
               (("gnu++17")
                "gnu++11"))
             #t))
         (add-after 'install 'qt-wrap
           (assoc-ref qt:%standard-phases 'qt-wrap)))))
      #:configure-flags
      #~(list
         ;; FIXME
         ;; error: unknown type name ‘GtkStatusIcon’
         "--disable-system-tray")
      #:phases
      #~(modify-phases %standard-phases
          (add-before 'configure 'relax-gcc-14-strictness
            (lambda _
              (setenv
               "CFLAGS"
               (string-append "-g -O2"
                              " -Wno-error=incompatible-pointer-types"
                              " -Wno-error=int-conversion"
                              " -Wno-error=implicit-function-declaration"))))
          (add-after 'unpack 'patch-std
            (lambda _
              (substitute* "configure"
                (("gnu17")
                 "gnu11")
                (("gnu++17")
                 "gnu++11"))))
          (add-after 'install 'qt-wrap
            (assoc-ref qt:%standard-phases 'qt-wrap)))))
    (native-inputs
     `(("gettext" ,gettext-minimal)
       ("pkg-config" ,pkg-config)
       ("whereis" ,util-linux)))
     (list gettext-minimal
           pkg-config
           util-linux))
    (inputs
     `(("anthy" ,anthy)
       ("appindicator" ,libappindicator)
       ("chewing" ,libchewing)
       ("gtk+" ,gtk+)
       ("qtbase" ,qtbase-5)
       ("xtst" ,libxtst)))
     (list anthy
           libappindicator
           libchewing
           gtk+
           qtbase-5
           libxtst))
    (synopsis "HIME Input Method Editor")
    (description "Hime is an extremely easy-to-use input method framework.  It
is lightweight, stable, powerful and supports many commonly used input methods,