sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added some missing autoloads for the new ledger-mode

Browse source
This commit is contained in:
John Wiegley 2010-05-02 23:50:17 -04:00
parent 056994497e
commit 7f5c1c81a1
5 changed files with 90 additions and 80 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ldg-mode.el
View file

@ -22,6 +22,8 @@
;;;###autoload ;;;###autoload
(define-derived-mode ledger-mode text-mode "Ledger" (define-derived-mode ledger-mode text-mode "Ledger"
"A mode for editing ledger data files." "A mode for editing ledger data files."
(ledger-post-setup)
(set (make-local-variable 'comment-start) " ; ") (set (make-local-variable 'comment-start) " ; ")
(set (make-local-variable 'comment-end) "") (set (make-local-variable 'comment-end) "")
(set (make-local-variable 'indent-tabs-mode) nil) (set (make-local-variable 'indent-tabs-mode) nil)

4
lisp/ldg-new.el
View file

@ -34,6 +34,10 @@
(require 'ldg-post) (require 'ldg-post)
(autoload #'ledger-mode "ldg-mode" nil t)
(autoload #'ledger-fully-complete-entry "ldg-complete" nil t)
(autoload #'ledger-texi-update-test "ldg-texi" nil t) (autoload #'ledger-texi-update-test "ldg-texi" nil t)
(autoload #'ledger-texi-update-examples "ldg-texi" nil t) (autoload #'ledger-texi-update-examples "ldg-texi" nil t)

9
lisp/ldg-post.el
View file

@ -83,6 +83,13 @@ to choose from."
(delete-char 1))))))) (delete-char 1)))))))
(goto-char pos))) (goto-char pos)))
(defun ledger-next-amount (&optional end)
(when (re-search-forward "\\( \\|\t\\| \t\\)[ \t]*-?\\([A-Z$]+ *\\)?\\(-?[0-9,]+?\\)\\(.[0-9]+\\)?\\( *[A-Z$]+\\)?\\([ \t]*@@?[^\n;]+?\\)?\\([ \t]+;.+?\\)?$" (marker-position end) t)
(goto-char (match-beginning 0))
(skip-syntax-forward " ")
(- (or (match-end 4)
(match-end 3)) (point))))
(defun ledger-align-amounts (&optional column) (defun ledger-align-amounts (&optional column)
"Align amounts in the current region. "Align amounts in the current region.
This is done so that the last digit falls in COLUMN, which defaults to 52." This is done so that the last digit falls in COLUMN, which defaults to 52."
@ -164,6 +171,4 @@ This is done so that the last digit falls in COLUMN, which defaults to 52."
(add-hook 'after-change-functions 'ledger-post-maybe-align t t)) (add-hook 'after-change-functions 'ledger-post-maybe-align t t))
(add-hook 'after-save-hook #'(lambda () (setq ledger-post-current-list nil)))) (add-hook 'after-save-hook #'(lambda () (setq ledger-post-current-list nil))))
(add-hook 'ledger-mode-hook 'ledger-post-setup)
(provide 'ldg-post) (provide 'ldg-post)

2
lisp/ldg-regex.el
View file

@ -96,7 +96,7 @@
(cons 'progn defs))) (cons 'progn defs)))
(put 'ledger-define-regexp 'lisp-indent-function 2) (put 'ledger-define-regexp 'lisp-indent-function 1)
(ledger-define-regexp date (ledger-define-regexp date
(let ((sep '(or ?- (any ?. ?/)))) ; can't do (any ?- ?. ?/) due to bug (let ((sep '(or ?- (any ?. ?/)))) ; can't do (any ?- ?. ?/) due to bug

3
lisp/ldg-register.el
View file

@ -57,8 +57,7 @@
(let ((pos (point)) (let ((pos (point))
(inhibit-read-only t)) (inhibit-read-only t))
(erase-buffer) (erase-buffer)
(ledger-register-render (ledger-register-render buf (apply #'ledger-exec-read buf args))
buf (apply #'ledger-exec-read buf args))
(goto-char pos)) (goto-char pos))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(toggle-read-only t) (toggle-read-only t)