70/96: gnu: emacs-envrc: Add DIRENV as an input.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit 2f1b156d0450d111f82c5fe08368c1ab862316ae
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Tue Apr 18 15:10:42 2023 +0200

    gnu: emacs-envrc: Add DIRENV as an input.
    
    * gnu/packages/emacs-xyz.scm (emacs-envrc)[arguments]<#:phases>: Set direnv
    executable location.
    <#:tests?, #:test-command>: Tentatively run tests, without success.  At 
least,
    they do not complain "direnv" executable is nowhere to be found.
    [inputs]: Add DIRENV.
---
 gnu/packages/emacs-xyz.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index b54cde5ba5..41825063e1 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -19462,6 +19462,21 @@ from within Elisp using a DSL similar to CSS 
selectors.")
         (base32
          "0vjk8k5k9xsngk50nf611c4j0bikqn9l1y3m35s8y3knwqw22ii0"))))
     (build-system emacs-build-system)
+    (arguments
+     (list
+      #:tests? #false                   ;FIXME: 8 out of 11 tests fail
+      #:test-command #~(list "emacs" "-Q" "--batch"
+                             "-l" "envrc-tests.el"
+                             "-f" "ert-run-tests-batch-and-exit")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'set-direnv-location
+            (lambda* (#:key inputs #:allow-other-keys)
+              (emacs-substitute-variables "envrc.el"
+                ("envrc-direnv-executable"
+                 (search-input-file inputs "/bin/direnv"))))))))
+    (inputs
+     (list direnv))
     (propagated-inputs
      (list emacs-inheritenv))
     (home-page "https://github.com/purcell/envrc";)