gnu: emacs-bash-completion: Improve package style.

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

gnu/packages/emacs-xyz.scm

@@ -15944,38 +15944,37 @@ Slack client.")
   (let ((commit "c5eaeed156ab906190c662d491269230967104b1")
         (revision "0"))
     (package
-     (name "emacs-bash-completion")
+      (name "emacs-bash-completion")
-     (version (git-version "3.1.0" revision commit))
+      (version (git-version "3.1.0" revision commit))
-     (source
+      (source
-      (origin
+       (origin
-        (method git-fetch)
+         (method git-fetch)
-        (uri (git-reference
+         (uri (git-reference
-              (url "https://github.com/szermatt/emacs-bash-completion")
+               (url "https://github.com/szermatt/emacs-bash-completion")
-              (commit commit)))
+               (commit commit)))
-        (file-name (git-file-name name version))
+         (file-name (git-file-name name version))
-        (sha256
+         (sha256
-         (base32 "0r221iirqsbz13s76r68i496izbirrvcw8ql3wsh205zmxa3jqg1"))))
+          (base32 "0r221iirqsbz13s76r68i496izbirrvcw8ql3wsh205zmxa3jqg1"))))
-     (inputs (list bash))
+      (inputs (list bash))
-     (build-system emacs-build-system)
+      (build-system emacs-build-system)
-     (arguments
+      (arguments
-      `(#:phases
+       (list
-        (modify-phases %standard-phases
+        #:phases
-          (add-after 'unpack 'make-git-checkout-writable
+        #~(modify-phases %standard-phases
-            (λ _
+            (add-after 'unpack 'make-git-checkout-writable
-              (for-each make-file-writable (find-files "."))
+              (λ _
-              #t))
+                (for-each make-file-writable (find-files "."))))
-          (add-before 'install 'configure
+            (add-before 'install 'configure
-            (lambda* (#:key inputs #:allow-other-keys)
+              (lambda* (#:key inputs #:allow-other-keys)
-              (let ((bash (assoc-ref inputs "bash")))
                 (emacs-substitute-variables "bash-completion.el"
-                  ("bash-completion-prog" (string-append bash "/bin/bash"))))
+                  ("bash-completion-prog"
-              #t)))))
+                   (search-input-file inputs "/bin/bash"))))))))
-     (home-page "https://github.com/szermatt/emacs-bash-completion")
+      (home-page "https://github.com/szermatt/emacs-bash-completion")
-     (synopsis "Bash completion for the shell buffer")
+      (synopsis "Bash completion for the shell buffer")
-     (description
+      (description
-      "@code{bash-completion} defines dynamic completion hooks for shell-mode
+       "@code{bash-completion} defines dynamic completion hooks for shell-mode
   and shell-command prompts that are based on Bash completion.")
-     (license license:gpl2+))))
+      (license license:gpl2+))))
 
 (define-public emacs-easy-kill
   (package