ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: fcitx5-material-color-theme: Update to 0.2.1.

Browse source 
* gnu/packages/fcitx5.scm (fcitx5-material-color-theme): Update to 0.2.1.
[arguments]: Adjust 'install' phase accordingly.
This commit is contained in:
宋文武 2022-11-07 16:33:26 +08:00
parent 38a1cf3d26
commit c7e4429a64
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/packages/fcitx5.scm
View file

@ -472,7 +472,7 @@ (define-public fcitx5-configtool
(define-public fcitx5-material-color-theme (define-public fcitx5-material-color-theme
(package (package
(name "fcitx5-material-color-theme") (name "fcitx5-material-color-theme")
(version "0.1") (version "0.2.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -481,7 +481,7 @@ (define-public fcitx5-material-color-theme
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1mgc722521jmfx0xc3ibmiycd3q2w7xg2956xcpc07kz90gcdjaa")))) (base32 "0drdypjf1njl7flkb5d581vchwlp4gaqyws3cp0v874wkwh4gllb"))))
(build-system copy-build-system) (build-system copy-build-system)
(arguments (arguments
`(#:phases `(#:phases
@ -497,7 +497,6 @@ (define-public fcitx5-material-color-theme
(define (install-theme-variant variant target) (define (install-theme-variant variant target)
(let ((dir (string-append themes-prefix "/" target)) (let ((dir (string-append themes-prefix "/" target))
(png (string-append "panel-" variant ".png"))
(conf (string-append "theme-" variant ".conf"))) (conf (string-append "theme-" variant ".conf")))
(format #t "install: Installing color variant \"~a\" to ~a~%" (format #t "install: Installing color variant \"~a\" to ~a~%"
variant dir) variant dir)
@ -505,13 +504,15 @@ (define (install-theme-variant variant target)
(("^Name=.*") (("^Name=.*")
(string-append "Name=" target "\n"))) (string-append "Name=" target "\n")))
(mkdir-p dir) (mkdir-p dir)
(install-file png dir)
(copy-file conf (string-append dir "/theme.conf")) (copy-file conf (string-append dir "/theme.conf"))
(symlink (string-append assets-dir "/arrow.png") (symlink (string-append assets-dir "/arrow.png")
(string-append dir "/arrow.png")))) (string-append dir "/arrow.png"))
(symlink (string-append assets-dir "/radio.png")
(string-append dir "/radio.png"))))
(mkdir-p assets-dir) (mkdir-p assets-dir)
(install-file "arrow.png" assets-dir) (install-file "arrow.png" assets-dir)
(install-file "radio.png" assets-dir)
(for-each (for-each
(lambda (x) (lambda (x)
(install-theme-variant (install-theme-variant
@ -520,7 +521,9 @@ (define (install-theme-variant variant target)
"orange" "pink" "red" "teal")) "orange" "pink" "red" "teal"))
(install-theme-variant (install-theme-variant
"deepPurple" "Material-Color-DeepPurple"))))))) "deepPurple" "Material-Color-DeepPurple")
(install-theme-variant
"sakuraPink" "Material-Color-SakuraPink")))))))
(home-page "https://github.com/hosxy/Fcitx5-Material-Color") (home-page "https://github.com/hosxy/Fcitx5-Material-Color")
(synopsis "Material Design for Fcitx 5") (synopsis "Material Design for Fcitx 5")
(description "Fcitx5-material-color-theme is a Material Design theme (description "Fcitx5-material-color-theme is a Material Design theme