branch master updated: gnu: emacs-theme-magic: Use new package style.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 6c29b58216 gnu: emacs-theme-magic: Use new package style.
6c29b58216 is described below

commit 6c29b582160aee408f0079d0a13dd316374098b5
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Wed Feb 9 15:16:00 2022 +0100

    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(-)

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";)