gnu: emacs-tramp: Improve package style.base-for-series-11328base-for-series-11327base-for-series-11325base-for-series-11324base-for-series-11323base-for-series-11322base-for-series-11321base-for-series-11320base-for-series-11319base-for-series-11318base-for-series-11317base-for-series-11316base-for-series-11315base-for-series-11314base-for-series-11313base-for-series-11312base-for-series-11311base-for-series-11310base-for-series-11309base-for-series-11308

* gnu/packages/emacs-xyz.scm (emacs-tramp)[arguments]<#:phases>: Use
G-expressions.  Use SEARCH-INPUT-FILE.

1 files changed, 12 insertions, 13 deletions

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 850cb4c517..11421e0f33 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -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
-       #: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)))))
+     (list
+      #:emacs emacs                     ;need D-Bus
+      #: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)
+              (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")