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

Make union of regexps at compile time

Browse source
This commit is contained in:
George Kettleborough 2013-04-16 16:45:01 +01:00
parent a052898b60
commit 03b3ef5f0b
2 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ldg-mode.el
View file

@ -76,10 +76,9 @@ Can indent, complete or align depending on context."
(indent-to ledger-post-account-alignment-column) (indent-to ledger-post-account-alignment-column)
(save-excursion (save-excursion
(re-search-backward (re-search-backward
(macroexpand (rx-static-or ledger-account-any-status-regex
`(rx (or (regex ,ledger-account-any-status-regex) ledger-metadata-regex
(regex ,ledger-metadata-regex) ledger-payee-any-status-regex)
(regex ,ledger-payee-any-status-regex))))
(line-beginning-position) t)) (line-beginning-position) t))
(when (= (point) (match-end 0)) (when (= (point) (match-end 0))
(ledger-pcomplete interactively)))) (ledger-pcomplete interactively))))

6
lisp/ldg-regex.el
View file

@ -78,7 +78,11 @@
"\\|" "\\|"
ledger-metadata-regex)) ledger-metadata-regex))
(defmacro rx-static-or (&rest rx-strs)
"Returns rx union of regexps which can be symbols that eval to strings."
`(rx (or ,@(mapcar #'(lambda (rx-str)
`(regexp ,(eval rx-str)))
rx-strs))))
(defmacro ledger-define-regexp (name regex docs &rest args) (defmacro ledger-define-regexp (name regex docs &rest args)
"Simplify the creation of a Ledger regex and helper functions." "Simplify the creation of a Ledger regex and helper functions."