amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ibus-anthy: Modernize arguments.

Browse source 
* gnu/packages/ibus.scm (ibus-anthy)[arguments]: Convert to list of
G-Expressions.
This commit is contained in:
Liliana Marie Prikler 2022-07-01 21:21:32 +02:00
parent 421b47624c
commit 2533e7f8d1
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 21 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/ibus.scm
View file

@ -30,6 +30,7 @@
(define-module (gnu packages ibus) (define-module (gnu packages ibus)
#:use-module (guix licenses) #:use-module (guix licenses)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix gexp)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
@ -320,25 +321,26 @@ Chinese pinyin input methods.")
"16vd0k8wm13s38869jqs3dnwmjvywgn0snnpyi41m28binhlssf8")))) "16vd0k8wm13s38869jqs3dnwmjvywgn0snnpyi41m28binhlssf8"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:configure-flags (list
#:configure-flags
;; Use absolute exec path in the anthy.xml. ;; Use absolute exec path in the anthy.xml.
(list (string-append "--libexecdir=" %output "/libexec")) #~(list (string-append "--libexecdir=" #$output "/libexec"))
;; The test suite fails (see: ;; The test suite fails (see:
;; https://github.com/ibus/ibus-anthy/issues/28). ;; https://github.com/ibus/ibus-anthy/issues/28).
#:tests? #f #:tests? #f
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'wrap-programs (add-after 'install 'wrap-programs
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (for-each
(for-each (lambda (prog) (lambda (prog)
(wrap-program (string-append out "/libexec/" prog) (wrap-program (string-append #$output "/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")
,(string-append out "/lib/girepository-1.0"))))) ,(string-append #$output "/lib/girepository-1.0")))))
'("ibus-engine-anthy" "ibus-setup-anthy")))))))) '("ibus-engine-anthy" "ibus-setup-anthy")))))))
(native-inputs (native-inputs
(list gettext-minimal (list gettext-minimal
`(,glib "bin") `(,glib "bin")