nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* gnu/packages/finance.scm (emacs-ledger-mode)[inputs]: Add ledger.
[arguments]: Patch path to ledger executable.
This commit is contained in:
Pierre Neidhardt 2019-04-24 11:12:02 +02:00
parent 9ca762eb83
commit 1c0dd73092
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/packages/finance.scm
View File

@ -241,6 +241,13 @@ in ability, and easy to use.")
#:tests? #f ; there are none #:tests? #f ; there are none
#:phases #:phases
(modify-phases %standard-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 (add-after 'build 'build-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((target (string-append (assoc-ref outputs "out") (let ((target (string-append (assoc-ref outputs "out")
@ -260,6 +267,8 @@ in ability, and easy to use.")
(rename-file orig-dir dest-dir) (rename-file orig-dir dest-dir)
(emacs-generate-autoloads ,name dest-dir) (emacs-generate-autoloads ,name dest-dir)
#t)))))) #t))))))
(inputs
`(("ledger" ,ledger)))
(native-inputs (native-inputs
`(("emacs-minimal" ,emacs-minimal) `(("emacs-minimal" ,emacs-minimal)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))