diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-05-17 08:14:23 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-05-17 08:14:23 -0700 |
| commit | 6a8b2a5fb08160882b6e101b364ef7c2e80e574e (patch) | |
| tree | 7d2a96dd5e6b2c7eb585c17956415fa7eeb3c32a /lisp/ledger-context.el | |
| parent | 35a36f33aa1a5eeb40a028bbab30cf75ec04dd54 (diff) | |
| parent | d2db0f9102ac0a7a1a4d9c47e46ac2bba438fde1 (diff) | |
| download | fork-ledger-6a8b2a5fb08160882b6e101b364ef7c2e80e574e.tar.gz fork-ledger-6a8b2a5fb08160882b6e101b364ef7c2e80e574e.tar.bz2 fork-ledger-6a8b2a5fb08160882b6e101b364ef7c2e80e574e.zip | |
Merge pull request #292 from thdox/fix-lisp-indentation
Thank Thierry,
I don't know when these got messed up but I have been meaning to do just this for some time.
Diffstat (limited to 'lisp/ledger-context.el')
| -rw-r--r-- | lisp/ledger-context.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/ledger-context.el b/lisp/ledger-context.el index feb4a389..3efeab7f 100644 --- a/lisp/ledger-context.el +++ b/lisp/ledger-context.el @@ -54,16 +54,16 @@ (defconst ledger-line-config (list (list 'xact (list (ledger-single-line-config date nil status nil code nil payee nil comment) - (ledger-single-line-config date nil status nil code nil payee) - (ledger-single-line-config date nil status nil payee))) - (list 'acct-transaction (list (ledger-single-line-config indent comment) - (ledger-single-line-config indent status account nil commodity amount nil comment) - (ledger-single-line-config indent status account nil commodity amount) - (ledger-single-line-config indent status account nil amount nil commodity comment) - (ledger-single-line-config indent status account nil amount nil commodity) - (ledger-single-line-config indent status account nil amount) - (ledger-single-line-config indent status account nil comment) - (ledger-single-line-config indent status account))))) + (ledger-single-line-config date nil status nil code nil payee) + (ledger-single-line-config date nil status nil payee))) + (list 'acct-transaction (list (ledger-single-line-config indent comment) + (ledger-single-line-config indent status account nil commodity amount nil comment) + (ledger-single-line-config indent status account nil commodity amount) + (ledger-single-line-config indent status account nil amount nil commodity comment) + (ledger-single-line-config indent status account nil amount nil commodity) + (ledger-single-line-config indent status account nil amount) + (ledger-single-line-config indent status account nil comment) + (ledger-single-line-config indent status account))))) (defun ledger-extract-context-info (line-type pos) "Get context info for current line with LINE-TYPE. @@ -97,7 +97,7 @@ Leave point at the beginning of the thing under point" (let ((here (point))) (goto-char (line-beginning-position)) (cond ((looking-at "^[0-9/.=-]+\\(\\s-+\\*\\)?\\(\\s-+(.+?)\\)?\\s-+") - (goto-char (match-end 0)) + (goto-char (match-end 0)) 'transaction) ((looking-at "^\\s-+\\([*!]\\s-+\\)?[[(]?\\([^\\s-]\\)") (goto-char (match-beginning 2)) @@ -162,7 +162,7 @@ specified line, returns nil." (let ((left (forward-line offset))) (if (not (equal left 0)) nil - (ledger-context-at-point))))) + (ledger-context-at-point))))) (defun ledger-context-line-type (context-info) (nth 0 context-info)) |