From 6c29b582160aee408f0079d0a13dd316374098b5 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 9 Feb 2022 15:16:00 +0100 Subject: 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. --- gnu/packages/emacs-xyz.scm | 30 ++++++++++++++++-------------- 1 file changed, 16 insertions(+), 14 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index f8af29fa79..92aebf2089 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -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") -- cgit v1.2.3