diff mbox series

[bug#38741] Fix emacs-ledger-mode failing to autoload

Message ID a3db56a5-de13-4eb8-bc10-f17e0fac453d@www.fastmail.com
State Accepted
Headers show
Series [bug#38741] Fix emacs-ledger-mode failing to autoload | expand

Commit Message

Brant Gardner Dec. 25, 2019, 4:11 p.m. UTC 
* gnu/packages/finance.scm (emacs-ledger-mode): Fix emacs-ledger-mode failing to autoload
---
 gnu/packages/finance.scm | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

Comments

Guillaume Le Vaillant Jan. 9, 2020, 5:32 p.m. UTC | #1 
Thanks. I made a few cosmetic changes and pushed the patch as
2c50e52ab8228634ce1626dc174970f4a4321d61.
diff mbox series

Patch

diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm
index ce3033c054..ced85c44c2 100644
--- a/gnu/packages/finance.scm
+++ b/gnu/packages/finance.scm
@@ -288,6 +288,12 @@  in ability, and easy to use.")
          #:tests? #f ; there are none
          #:phases
          (modify-phases %standard-phases
+         (add-after 'unpack 'patch-site-dir
+           (lambda _
+             (substitute* "CMakeLists.txt"
+               (("DESTINATION share/emacs/site-lisp/ledger-mode")
+                "DESTINATION share/emacs/site-lisp"))
+             #t))
            (add-before 'build 'patch-path
              (lambda* (#:key inputs #:allow-other-keys)
                (let ((ledger (assoc-ref inputs "ledger")))
@@ -303,17 +309,12 @@  in ability, and easy to use.")
                  (invoke "makeinfo" "-o" target
                          "../source/doc/ledger-mode.texi"))
                #t))
-           (add-after 'install 'relocate-elisp
+           (add-after 'install 'generate-autoload
              (lambda* (#:key outputs #:allow-other-keys)
                (let* ((site-dir (string-append (assoc-ref outputs "out")
-                                               "/share/emacs/site-lisp"))
-                      (guix-dir (string-append site-dir "/guix.d"))
-                      (orig-dir (string-append site-dir "/ledger-mode"))
-                      (dest-dir (string-append guix-dir "/ledger-mode")))
-                 (mkdir-p guix-dir)
-                 (rename-file orig-dir dest-dir)
-                 (emacs-generate-autoloads ,name dest-dir)
-                 #t))))))
+                                               "/share/emacs/site-lisp")))
+                 (emacs-generate-autoloads ,name site-dir))
+               #t)))))
       (inputs
        `(("ledger" ,ledger)))
       (native-inputs