01/01: gnu: emacs-ledger-mode: Use ledger as input.

[guix-commits]

ambrevar pushed a commit to branch master
in repository guix.

commit 1c0dd730922b49c333d793295d912ce44e13498c
Author: Pierre Neidhardt <address@hidden>
Date:   Wed Apr 24 11:12:02 2019 +0200

    gnu: emacs-ledger-mode: Use ledger as input.
    
    * gnu/packages/finance.scm (emacs-ledger-mode)[inputs]: Add ledger.
    [arguments]: Patch path to ledger executable.
---
 gnu/packages/finance.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm
index bd30d46..9a210b4 100644
--- a/gnu/packages/finance.scm
+++ b/gnu/packages/finance.scm
@@ -241,6 +241,13 @@ in ability, and easy to use.")
          #:tests? #f ; there are none
          #:phases
          (modify-phases %standard-phases
+           (add-before 'build 'patch-path
+             (lambda* (#:key inputs #:allow-other-keys)
+               (let ((ledger (assoc-ref inputs "ledger")))
+                 (make-file-writable "ledger-exec.el")
+                 (emacs-substitute-variables "ledger-exec.el"
+                   ("ledger-binary-path" (string-append ledger 
"/bin/ledger"))))
+               #t))
            (add-after 'build 'build-doc
              (lambda* (#:key outputs #:allow-other-keys)
                (let ((target (string-append (assoc-ref outputs "out")
@@ -260,6 +267,8 @@ in ability, and easy to use.")
                  (rename-file orig-dir dest-dir)
                  (emacs-generate-autoloads ,name dest-dir)
                  #t))))))
+      (inputs
+       `(("ledger" ,ledger)))
       (native-inputs
        `(("emacs-minimal" ,emacs-minimal)
          ("texinfo" ,texinfo)))