me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-theme-magic: Use new package style. 

* gnu/packages/emacs-xyz.scm (emacs-theme-magic)[arguments]: Use
G-expressions.
<#:phases>: Use SEARCH-INPUT-FILE instead of ASSOC-REF.  Remove trailing #T.
master
Nicolas Goaziou 2022-02-09 15:16:00 +01:00
parent a80f9a0751
commit 6c29b58216
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gnu/packages/emacs-xyz.scm
View File

@ -1117,20 +1117,22 @@ then only the color of the mode line changes when a window becomes in-/active.")
(base32 "10gkg7jh1s1484gm66a87zr7x8vmv00s7gfd0w2pj47nqf98g8hz")))) (base32 "10gkg7jh1s1484gm66a87zr7x8vmv00s7gfd0w2pj47nqf98g8hz"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`( (list
;; Include Pywal interaction scripts. ;; Include Pywal interaction scripts.
#:include (cons "^python/" %default-include) #:include #~(cons "^python/" %default-include)
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-exec-paths (add-after 'unpack 'patch-exec-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((files '("theme-magic.el" "python/wal_change_colors.py")) (substitute* '("theme-magic.el" "python/wal_change_colors.py")
(python (assoc-ref inputs "python")) (("\"python\"")
(python-pywal (assoc-ref inputs "python-pywal"))) (string-append "\""
(substitute* files (search-input-file inputs "/bin/python3")
(("\"python\"") (string-append "\"" python "/bin/python3\"")) "\""))
(("\"wal\"") (string-append "\"" python-pywal "/bin/wal\"")))) (("\"wal\"")
#t))))) (string-append "\""
(search-input-file inputs "/bin/wal")
"\""))))))))
(inputs (inputs
(list python python-pywal)) (list python python-pywal))
(home-page "https://github.com/jcaw/theme-magic") (home-page "https://github.com/jcaw/theme-magic")