me
/
guix
Archived
1
0
Fork 0
Code

gnu: ibus-anthy: Modernize arguments. 

* gnu/packages/ibus.scm (ibus-anthy)[arguments]: Convert to list of
G-Expressions.
master
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
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
;; Use absolute exec path in the anthy.xml. #:configure-flags
(list (string-append "--libexecdir=" %output "/libexec")) ;; Use absolute exec path in the anthy.xml.
;; The test suite fails (see: #~(list (string-append "--libexecdir=" #$output "/libexec"))
;; https://github.com/ibus/ibus-anthy/issues/28). ;; The test suite fails (see:
#:tests? #f ;; https://github.com/ibus/ibus-anthy/issues/28).
#:phases #:tests? #f
(modify-phases %standard-phases #:phases
(add-after 'install 'wrap-programs #~(modify-phases %standard-phases
(lambda* (#:key inputs outputs #:allow-other-keys) (add-after 'install 'wrap-programs
(let ((out (assoc-ref outputs "out"))) (lambda* (#:key inputs #:allow-other-keys)
(for-each (lambda (prog) (for-each
(wrap-program (string-append out "/libexec/" prog) (lambda (prog)
`("GUIX_PYTHONPATH" ":" prefix (wrap-program (string-append #$output "/libexec/" prog)
(,(getenv "GUIX_PYTHONPATH"))) `("GUIX_PYTHONPATH" ":" prefix
`("GI_TYPELIB_PATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))
(,(getenv "GI_TYPELIB_PATH") `("GI_TYPELIB_PATH" ":" prefix
,(string-append out "/lib/girepository-1.0"))))) (,(getenv "GI_TYPELIB_PATH")
'("ibus-engine-anthy" "ibus-setup-anthy")))))))) ,(string-append #$output "/lib/girepository-1.0")))))
'("ibus-engine-anthy" "ibus-setup-anthy")))))))
(native-inputs (native-inputs
(list gettext-minimal (list gettext-minimal
`(,glib "bin") `(,glib "bin")