15/38: gnu: emacs-ghq: Do not propagate ghq.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit a12a8d208b205e727a833afc2e8116f99c38b8bd
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sun May 21 13:20:51 2023 +0200

    gnu: emacs-ghq: Do not propagate ghq.
    
    * gnu/packages/emacs-xyz.scm (emacs-ghq)
    [arguments]<#:phases>: Add a phase to avoid propagating GHQ.
    [inputs]: Add GHQ.
    [propagated-inputs]: Remove GHQ.
---
 gnu/packages/emacs-xyz.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 0e7ff29110..f14d3c44e7 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -1917,8 +1917,19 @@ automatically opened with this mode.")
        (sha256
         (base32 "10a7rxmijwmdkfb5rgavd8inc3a45q0m57dxdf6v62bcy00kmw4l"))))
     (build-system emacs-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'set-ghq-location
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let ((ghq (search-input-file inputs "/bin/ghq")))
+                (substitute* "ghq.el"
+                  (("\"ghq") (string-append "\"" ghq)))))))))
+    (inputs
+     (list ghq))
     (propagated-inputs
-     (list emacs-dash emacs-s ghq))
+     (list emacs-dash emacs-s))
     (home-page "https://github.com/rcoedo/emacs-ghq";)
     (synopsis "Emacs interface for @code{ghq} tool")
     (description