diff options
Diffstat (limited to 'src/init.el')
| -rw-r--r-- | src/init.el | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/src/init.el b/src/init.el index ca412eb..31f7c61 100644 --- a/src/init.el +++ b/src/init.el @@ -47,30 +47,30 @@ (defmacro emmet-parse (regex nums label &rest body) "Parse according to a regex and update the `input' variable." `(emmet-aif (emmet-regex ,regex input ',(number-sequence 0 nums)) - (let ((input (elt it ,nums))) - ,@body) - `,`(error ,(concat "expected " ,label)))) + (let ((input (elt it ,nums))) + ,@body) + `,`(error ,(concat "expected " ,label)))) (defmacro emmet-run (parser then-form &rest else-forms) "Run a parser and update the input properly, extract the parsed expression." `(emmet-pif (,parser input) - (let ((input (cdr it)) - (expr (car it))) - ,then-form) - ,@(or else-forms '(it)))) + (let ((input (cdr it)) + (expr (car it))) + ,then-form) + ,@(or else-forms '(it)))) (defmacro emmet-por (parser1 parser2 then-form &rest else-forms) "OR two parsers. Try one parser, if it fails try the next." `(emmet-pif (,parser1 input) - (let ((input (cdr it)) - (expr (car it))) - ,then-form) - (emmet-pif (,parser2 input) - (let ((input (cdr it)) - (expr (car it))) - ,then-form) - ,@else-forms))) + (let ((input (cdr it)) + (expr (car it))) + ,then-form) + (emmet-pif (,parser2 input) + (let ((input (cdr it)) + (expr (car it))) + ,then-form) + ,@else-forms))) (defmacro emmet-find (direction regexp &optional limit-of-search repeat-count) "Regexp-search in given direction, returning the position (or nil) |