xeals/origami.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add conj

Browse Source
This commit is contained in:
Greg Sexton 2014-04-10 20:25:30 +01:00
parent 04bce78b13
commit 3584641d4e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
origami.el
View File

@ -227,6 +227,11 @@ used to nil out data. This mutates the node."
(setq res (origami-run-parser p (cdr res)))) (setq res (origami-run-parser p (cdr res))))
(reverse acc)))) (reverse acc))))
(defun origami-parser-conj (p1 p2)
(lambda (content)
(or (origami-run-parser p1 content)
(origami-run-parser p2 content))))
(origami-run-parser (origami-run-parser
(origami-parser-many (origami-parser-paired (origami-parser-char "{") (origami-parser-many (origami-parser-paired (origami-parser-char "{")
(origami-parser-char "}") (origami-parser-char "}")