summaryrefslogtreecommitdiff
path: root/ledger-mode.el
diff options
context:
space:
mode:
Diffstat (limited to 'ledger-mode.el')
-rw-r--r--ledger-mode.el20
1 files changed, 2 insertions, 18 deletions
diff --git a/ledger-mode.el b/ledger-mode.el
index dc92f73..bdd1b5e 100644
--- a/ledger-mode.el
+++ b/ledger-mode.el
@@ -149,17 +149,6 @@ And calculate the target-delta of the account being reconciled."
(when balance
(message balance))))
-(defun ledger-magic-tab (&optional interactively)
- "Decide what to with with <TAB>, INTERACTIVELY.
-Can indent, complete or align depending on context."
- (interactive "p")
- (if (= (point) (line-beginning-position))
- (indent-to ledger-post-account-alignment-column)
- (if (and (> (point) 1)
- (looking-back "\\([^ \t]\\)" 1))
- (ledger-pcomplete interactively)
- (ledger-post-align-postings (line-beginning-position) (line-end-position)))))
-
(defvar ledger-mode-abbrev-table)
(defvar ledger-date-string-today (ledger-format-date))
@@ -264,9 +253,7 @@ With a prefix argument, remove the effective date."
(define-key map [(control ?c) (control ?l)] #'ledger-display-ledger-stats)
(define-key map [(control ?c) (control ?q)] #'ledger-post-align-xact)
- (define-key map [tab] #'ledger-magic-tab)
(define-key map [(control tab)] #'ledger-post-align-xact)
- (define-key map [(control ?i)] #'ledger-magic-tab)
(define-key map [(control ?c) tab] #'ledger-fully-complete-xact)
(define-key map [(control ?c) (control ?i)] #'ledger-fully-complete-xact)
@@ -330,17 +317,14 @@ With a prefix argument, remove the effective date."
(setq font-lock-defaults
'(ledger-font-lock-keywords t nil nil nil))
(add-hook 'font-lock-extend-region-functions 'ledger-fontify-extend-region)
-
- (setq-local pcomplete-parse-arguments-function 'ledger-parse-arguments)
- (setq-local pcomplete-command-completion-function 'ledger-complete-at-point)
- (add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t)
+ (add-hook 'completion-at-point-functions #'ledger-complete-at-point nil t)
(add-hook 'after-save-hook 'ledger-report-redo nil t)
(add-hook 'post-command-hook 'ledger-highlight-xact-under-point nil t)
(ledger-init-load-init-file)
(setq-local comment-start ";")
-
+ (setq-local indent-line-function #'ledger-indent-line)
(setq-local indent-region-function 'ledger-post-align-postings))
;;;###autoload