diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-07-02 13:16:28 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-07-02 13:16:28 -0700 |
| commit | cf2fa5c32bedf30dcfddb4c4ee20fd7643b7c8f6 (patch) | |
| tree | 6e4163c52674ac227d982947a9fdbe5ae49bc255 /lisp/ldg-context.el | |
| parent | a6cb179d8a1dda87e223881c926cfb12a6da163e (diff) | |
| download | ledger-cf2fa5c32bedf30dcfddb4c4ee20fd7643b7c8f6.tar.gz ledger-cf2fa5c32bedf30dcfddb4c4ee20fd7643b7c8f6.tar.bz2 ledger-cf2fa5c32bedf30dcfddb4c4ee20fd7643b7c8f6.zip | |
Formatting changes and initial inclusion of ledger-schedule
Diffstat (limited to 'lisp/ldg-context.el')
| -rw-r--r-- | lisp/ldg-context.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/ldg-context.el b/lisp/ldg-context.el index b0e35115..9b1e2725 100644 --- a/lisp/ldg-context.el +++ b/lisp/ldg-context.el @@ -51,14 +51,14 @@ (concat (symbol-name e) "-string")))))) "[ \t]*$"))) (defmacro single-line-config2 (&rest elements) -"Take list of ELEMENTS and return regex and element list for use in context-at-point" + "Take list of ELEMENTS and return regex and element list for use in context-at-point" (let (regex-string) `'(,(concat (dolist (e elements regex-string) - (setq regex-string - (concat regex-string - (eval - (intern - (concat (symbol-name e) "-string")))))) "[ \t]*$") + (setq regex-string + (concat regex-string + (eval + (intern + (concat (symbol-name e) "-string")))))) "[ \t]*$") ,elements))) (defmacro single-line-config (&rest elements) @@ -68,8 +68,8 @@ (defconst ledger-line-config (list (list 'xact (list (single-line-config date nil status nil code nil payee nil comment) - (single-line-config date nil status nil code nil payee) - (single-line-config date nil status nil payee))) + (single-line-config date nil status nil code nil payee) + (single-line-config date nil status nil payee))) (list 'acct-transaction (list (single-line-config indent comment) (single-line-config2 indent status account nil commodity amount nil comment) (single-line-config2 indent status account nil commodity amount) |