branch: elpa/beancount
commit 517046bee22dfec8f3f4c3e47b2fea38bb77535c
Author: Martin Blais <bl...@furius.ca>
Commit: Martin Blais <bl...@furius.ca>
In reports, render to a maximum number of digits (5) that is more
reasonable than the default.
---
etc/emacsrc | 61 ++-----------------------------------------------------------
1 file changed, 2 insertions(+), 59 deletions(-)
diff --git a/etc/emacsrc b/etc/emacsrc
index 1e7b11aea4..9c8c2105df 100644
--- a/etc/emacsrc
+++ b/etc/emacsrc
@@ -3,66 +3,9 @@
;; Emacs setup for Ledger.
;;
-;; Add the emacs path.
-(add-to-list 'load-path (concat project-current "/src/elisp"))
-
-(if t
- (progn ;; New Beancount-only configuration.
-
- (require 'beancount)
-
- )
- (progn ;; Old Ledger configuration.
-
- (require 'ledger)
- (require 'ledger-plus)
-
-
- (defun ledger-insert-food ()
- (insert-yesterday) (insert " * |\n")
- (insert " Expenses:Food:Restaurant USD \n")
- (insert " Assets:Current:Cash\n")
- (forward-line -3) (forward-word 3) (forward-char 3))
-
-
-;;;-----------------------------------------------------------------------------
-
- (define-abbrev ledger-mode-abbrev-table "food" "" 'ledger-insert-food)
-
-
- (defun user-ledger-mode-hook ()
- (set-fill-column 200)
-
- ;; (outline-minor-mode 1)
- (setq outline-regexp "^;;;;; ")
-
- (define-key ledger-mode-map [(control ?c) (control ?n)]
- 'outline-next-visible-heading)
- (define-key ledger-mode-map [(control ?c) (control ?p)]
- 'outline-previous-visible-heading)
-
- ;; FIXME: we should make this work for the current entry when a region
is not
- ;; selected.
- (define-key ledger-mode-map [(control ?c) (control ?q)]
- (lambda () (interactive) (ledger-align-amounts 80)))
-
- ;; Remove tab bindings that are injected illegally in ledger.el.
- (define-key ledger-mode-map [tab] nil)
- (define-key ledger-mode-map [(control ?i)] nil)
-
- ;; Bring back comment-region.
- (define-key ledger-mode-map [(control ?c) (control ?c)] 'comment-region)
-
- (setq comment-start "; ")
-
- )
-
- (add-hook 'ledger-mode-hook 'user-ledger-mode-hook)
-
- (add-to-list 'auto-mode-alist '("\\.ledger$" . ledger-mode))
-
- ))
+(require 'beancount)
+(add-to-list 'auto-mode-alist '("\\.beancount$" . beancount-mode))
