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

30
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"))))
(build-system emacs-build-system)
(arguments
`(
;; Include Pywal interaction scripts.
#:include (cons "^python/" %default-include)
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-exec-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((files '("theme-magic.el" "python/wal_change_colors.py"))
(python (assoc-ref inputs "python"))
(python-pywal (assoc-ref inputs "python-pywal")))
(substitute* files
(("\"python\"") (string-append "\"" python "/bin/python3\""))
(("\"wal\"") (string-append "\"" python-pywal "/bin/wal\""))))
#t)))))
(list
;; Include Pywal interaction scripts.
#:include #~(cons "^python/" %default-include)
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-exec-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* '("theme-magic.el" "python/wal_change_colors.py")
(("\"python\"")
(string-append "\""
(search-input-file inputs "/bin/python3")
"\""))
(("\"wal\"")
(string-append "\""
(search-input-file inputs "/bin/wal")
"\""))))))))
(inputs
(list python python-pywal))
(home-page "https://github.com/jcaw/theme-magic")