sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

even better context regex generation

Browse source
This commit is contained in:
Craig Earls 2013-04-10 06:33:46 -07:00
parent dde09ef1a1
commit 1286bdeda0
1 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/ldg-context.el
View file

@ -28,7 +28,8 @@
(eval-when-compile
(require 'cl))
;; *-string constants are assembled in the single-line-config macro to
;; form the regex and list of elements
(defconst indent-string "\\(^[ \t]+\\)")
(defconst status-string "\\([*! ]?\\)")
(defconst account-string "[\\[(]?\\(.*?\\)[])]?")
@ -49,20 +50,20 @@
(eval
(intern
(concat (symbol-name e) "-string")))))) "[ \t]*$")
,(append elements))))
,elements)))
(defconst ledger-line-config
`((xact (,(single-line-config date nil status nil nil code payee comment)
,(single-line-config date nil status nil nil code payee)))
(acct-transaction (,(single-line-config indent comment)
,(single-line-config indent status account commodity amount nil comment)
,(single-line-config indent status account commodity amount)
,(single-line-config indent status account amount nil commodity comment)
,(single-line-config indent status account amount nil commodity)
,(single-line-config indent status account amount)
,(single-line-config indent status account comment)
,(single-line-config indent status account)))))
(list (list 'xact (list (single-line-config date nil status nil nil code payee comment)
(single-line-config date nil status nil nil code payee)))
(list 'acct-transaction (list (single-line-config indent comment)
(single-line-config indent status account commodity amount nil comment)
(single-line-config indent status account commodity amount)
(single-line-config indent status account amount nil commodity comment)
(single-line-config indent status account amount nil commodity)
(single-line-config indent status account amount)
(single-line-config indent status account comment)
(single-line-config indent status account)))))
(defun ledger-extract-context-info (line-type pos)
"Get context info for current line with LINE-TYPE.