From 5a47fbebe468ee6a39132cfd6b42bdb309e3e7f0 Mon Sep 17 00:00:00 2001 From: Matus Goljer Date: Wed, 14 Oct 2015 21:34:20 +0200 Subject: Add an option to change amount-alignment mode. Make the default alignment behaviour the same as before 767ab3e, that is, align on the last digit by default. A new option `ledger-post-amount-alignment-at' now exists to adjust alignment preference. --- lisp/ledger-post.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'lisp/ledger-post.el') diff --git a/lisp/ledger-post.el b/lisp/ledger-post.el index d741442a..f4727342 100644 --- a/lisp/ledger-post.el +++ b/lisp/ledger-post.el @@ -41,6 +41,16 @@ :type 'integer :group 'ledger-post) +(defcustom ledger-post-amount-alignment-at :end + "Position at which the amount is ailgned. + +Can be :end to align on the last number of the amount (can be +followed by unaligned commodity) or :decimal to align at the +decimal separator." + :type '(radio (const :tag "align at the end of amount" :end) + (const :tag "align at the decimal separator" :decimal)) + :group 'ledger-post) + (defcustom ledger-post-use-completion-engine :built-in "Which completion engine to use, :iswitchb or :ido chose those engines. :built-in uses built-in Ledger-mode completion" @@ -79,7 +89,11 @@ point at beginning of the commodity." (when (re-search-forward ledger-amount-regex end t) (goto-char (match-beginning 0)) (skip-syntax-forward " ") - (- (match-end 3) (point))))) + (cond + ((eq ledger-post-amount-alignment-at :end) + (- (or (match-end 4) (match-end 3)) (point))) + ((eq ledger-post-amount-alignment-at :decimal) + (- (match-end 3) (point))))))) (defun ledger-next-account (&optional end) "Move to the beginning of the posting, or status marker, limit to END. -- cgit v1.2.3