mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-16 12:00:35 +02:00
Code Releases Activity

gnu: emacs-w3m: Improve style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-w3m):
  [arguments]<phases>: Use gexps.

Signed-off-by: Ian Eure <ian@retrospec.tv>
This commit is contained in:
Nicolas Graves 2025-05-18 10:16:24 +02:00 • committed by Liliana Marie Prikler
parent 9902813d96
commit bf6c7e0a57
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 15 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

32
gnu/packages/emacs-xyz.scm
View file

@ -4237,25 +4237,23 @@ or unexpected behavior inside an elisp configuration file (typically
(substitute* "configure" (substitute* "configure"
(("EMACS_FLAVOR=unsupported") "EMACS_FLAVOR=emacs")))) (("EMACS_FLAVOR=unsupported") "EMACS_FLAVOR=emacs"))))
(add-before 'build 'patch-exec-paths (add-before 'build 'patch-exec-paths
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (make-file-writable "w3m.el")
(make-file-writable "w3m.el") (emacs-substitute-variables "w3m.el"
(emacs-substitute-variables "w3m.el" ("w3m-command" (search-input-file inputs "/bin/w3m"))
("w3m-command" (search-input-file inputs "/bin/w3m")) ("w3m-touch-command" (search-input-file inputs "/bin/touch"))
("w3m-touch-command" (search-input-file inputs "/bin/touch")) ("w3m-icon-directory"
("w3m-icon-directory" (string-append #$output "/share/images/emacs-w3m")))
(string-append out "/share/images/emacs-w3m"))) (make-file-writable "w3m-image.el")
(make-file-writable "w3m-image.el") (emacs-substitute-variables "w3m-image.el"
(emacs-substitute-variables "w3m-image.el" ("w3m-imagick-convert-program"
("w3m-imagick-convert-program" (search-input-file inputs "/bin/convert"))
(search-input-file inputs "/bin/convert")) ("w3m-imagick-identify-program"
("w3m-imagick-identify-program" (search-input-file inputs "/bin/identify")))))
(search-input-file inputs "/bin/identify"))))))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(invoke "make" "install" "install-icons") (invoke "make" "install" "install-icons")
(with-directory-excursion (with-directory-excursion (emacs:elpa-directory #$output)
(emacs:elpa-directory (assoc-ref outputs "out"))
(for-each delete-file '("ChangeLog" "ChangeLog.1")) (for-each delete-file '("ChangeLog" "ChangeLog.1"))
(symlink "w3m-load.el" "w3m-autoloads.el"))))))) (symlink "w3m-load.el" "w3m-autoloads.el")))))))
(home-page "http://emacs-w3m.namazu.org/") (home-page "http://emacs-w3m.namazu.org/")