me/guix
Archived
1
0
Fork 0
Code Activity

gnu: emacs-tramp: Improve package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-tramp)[arguments]<#:phases>: Use
G-expressions.  Use SEARCH-INPUT-FILE.
This commit is contained in:
Nicolas Goaziou 2022-02-07 00:08:32 +01:00
parent 0d4faa8c45
commit 95664bc648
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -25780,19 +25780,18 @@ well as an option for visually flashing evaluated s-expressions.")
(base32 "1101nb0raiivrv1z4w442688cxj5mpf4h4zxzy6mhirgsbayk91p"))))
(build-system emacs-build-system)
(arguments
`(#:emacs ,emacs ;need D-Bus
(list
#:emacs emacs ;need D-Bus
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
;; All but one "/bin/" directory refer to remote
;; environments, which may not be Guix. Do not patch them
;; blindly. However, local encoding shell has to be patched.
(replace 'patch-el-files
(lambda* (#:key inputs #:allow-other-keys)
(let ((sh (assoc-ref inputs "bash"))
(file "tramp.el"))
(emacs-substitute-variables file
("tramp-encoding-shell" (string-append sh "/bin/sh"))))
#t)))))
(emacs-substitute-variables "tramp.el"
("tramp-encoding-shell"
(search-input-file inputs "/bin/sh"))))))))
(inputs
(list bash))
(home-page "https://savannah.gnu.org/projects/tramp")