guix_mirror_bot pushed a commit to branch master
in repository guix.
commit bf6c7e0a5797989a6ff8529b31f3c5588df18e80
Author: Nicolas Graves <[email protected]>
AuthorDate: Sun May 18 10:16:24 2025 +0200
gnu: emacs-w3m: Improve style.
* gnu/packages/emacs-xyz.scm (emacs-w3m):
[arguments]<phases>: Use gexps.
Signed-off-by: Ian Eure <[email protected]>
---
gnu/packages/emacs-xyz.scm | 32 +++++++++++++++-----------------
1 file changed, 15 insertions(+), 17 deletions(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 01591a1cab..4b8bd067af 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -4237,25 +4237,23 @@ or unexpected behavior inside an elisp configuration
file (typically
(substitute* "configure"
(("EMACS_FLAVOR=unsupported") "EMACS_FLAVOR=emacs"))))
(add-before 'build 'patch-exec-paths
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (let ((out (assoc-ref outputs "out")))
- (make-file-writable "w3m.el")
- (emacs-substitute-variables "w3m.el"
- ("w3m-command" (search-input-file inputs "/bin/w3m"))
- ("w3m-touch-command" (search-input-file inputs "/bin/touch"))
- ("w3m-icon-directory"
- (string-append out "/share/images/emacs-w3m")))
- (make-file-writable "w3m-image.el")
- (emacs-substitute-variables "w3m-image.el"
- ("w3m-imagick-convert-program"
- (search-input-file inputs "/bin/convert"))
- ("w3m-imagick-identify-program"
- (search-input-file inputs "/bin/identify"))))))
+ (lambda* (#:key inputs #:allow-other-keys)
+ (make-file-writable "w3m.el")
+ (emacs-substitute-variables "w3m.el"
+ ("w3m-command" (search-input-file inputs "/bin/w3m"))
+ ("w3m-touch-command" (search-input-file inputs "/bin/touch"))
+ ("w3m-icon-directory"
+ (string-append #$output "/share/images/emacs-w3m")))
+ (make-file-writable "w3m-image.el")
+ (emacs-substitute-variables "w3m-image.el"
+ ("w3m-imagick-convert-program"
+ (search-input-file inputs "/bin/convert"))
+ ("w3m-imagick-identify-program"
+ (search-input-file inputs "/bin/identify")))))
(replace 'install
- (lambda* (#:key outputs #:allow-other-keys)
+ (lambda _
(invoke "make" "install" "install-icons")
- (with-directory-excursion
- (emacs:elpa-directory (assoc-ref outputs "out"))
+ (with-directory-excursion (emacs:elpa-directory #$output)
(for-each delete-file '("ChangeLog" "ChangeLog.1"))
(symlink "w3m-load.el" "w3m-autoloads.el")))))))
(home-page "http://emacs-w3m.namazu.org/";)
