TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: rime-data: Iterate over inputs to find Rime schemas.

Browse source 
* gnu/packages/ibus.scm (rime-data)[arguments]: Iterate over inputs to find
Rime schemas rather than using a pre-loaded list.
[native-inputs]: Move to ...
[inputs]: ... here.

Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
This commit is contained in:
Peng Mei Yu 2020-07-08 10:00:14 +08:00 committed by Nicolas Goaziou
parent 387bc21544
commit fa7bd6110b
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 14 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
gnu/packages/ibus.scm
View file

@ -363,7 +363,9 @@ (define-public rime-data
(base32 "06ad5c4m7xsfr4if5ywshfj2aj5g5b5hwzh38dzccn7c1l2ibi0z"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests
`(#:modules ((ice-9 match)
,@%gnu-build-system-modules)
#:tests? #f ; no tests
#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
"no_update=1")
#:phases
@ -376,40 +378,21 @@ (define-public rime-data
(("^\\.DEFAULT_GOAL := preset")
".DEFAULT_GOAL := all"))
#t))
;; Add schema packages into "package/rime" directory.
(add-after 'unpack 'add-packages
;; Copy Rime schemas into the "package/rime" directory.
(add-after 'unpack 'copy-rime-schemas
(lambda* (#:key inputs #:allow-other-keys)
(let* ((dest-dir "package/rime"))
(let ((dest-dir "package/rime"))
(mkdir-p dest-dir)
(for-each (lambda (pkg)
(symlink (assoc-ref inputs
(string-append "rime-" pkg))
(string-append dest-dir "/" pkg)))
'("array"
"bopomofo"
"cangjie"
"cantonese"
"combo-pinyin"
"double-pinyin"
"emoji"
"essay"
"ipa"
"jyutping"
"luna-pinyin"
"middle-chinese"
"pinyin-simp"
"prelude"
"quick"
"scj"
"soutzoe"
"stenotype"
"stroke"
"terra-pinyin"
"wubi"
"wugniu")))
(for-each
(match-lambda
((name . path)
(if (string-prefix? "rime-" name)
(let ((schema (substring name (string-length "rime-"))))
(symlink path (string-append dest-dir "/" schema))))))
inputs))
#t))
(delete 'configure))))
(native-inputs
(inputs
`(("rime-array"
,(origin
(method git-fetch)