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

Merge pull request #280 from csrhodes/fix-ledger-iterate-regex

Browse source 
Fix ledger iterate regex
This commit is contained in:
Craig Earls 2014-04-24 06:51:58 -07:00
commit 62bdb2f13a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ledger-regex.el
View file

@ -178,8 +178,8 @@
(ledger-define-regexp iso-date (ledger-define-regexp iso-date
( let ((sep '(or ?- ?/))) ( let ((sep '(or ?- ?/)))
(rx (group (rx (group
(and (group (? (= 4 num))) (and (? (and (group (= 4 num)))
(eval sep) (eval sep))
(group (and num (? num))) (group (and num (? num)))
(eval sep) (eval sep)
(group (and num (? num))))))) (group (and num (? num)))))))
@ -325,7 +325,7 @@
(note end-note)) (note end-note))
(defconst ledger-iterate-regex (defconst ledger-iterate-regex
(concat "\\(Y\\s-+\\([0-9]+\\)\\|" ;; Catches a Y directive (concat "\\(\\(?:Y\\|year\\)\\s-+\\([0-9]+\\)\\|" ;; Catches a Y/year directive
ledger-iso-date-regexp ledger-iso-date-regexp
"\\([ *!]+\\)" ;; mark "\\([ *!]+\\)" ;; mark
"\\((.*)\\)?" ;; code "\\((.*)\\)?" ;; code