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

Improve the clojure parser

Browse Source
This commit is contained in:
Greg Sexton 2014-08-25 18:53:52 +01:00
parent 142ec95360
commit 2673711f7c
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
origami-parsers.el
View File

@ -39,7 +39,7 @@
(c++-mode . origami-c-style-parser)
(emacs-lisp-mode . origami-elisp-parser)
(lisp-interaction-mode . origami-elisp-parser)
(clojure-mode . origami-elisp-parser))
(clojure-mode . origami-clj-parser))
"alist mapping major-mode to parser function."
:type 'hook
:group 'origami)
@ -67,7 +67,7 @@ children of the pair."
(parser-1? pair))
pair))))
(defun origami-elisp-parser (create)
(defun origami-lisp-parser (create regex)
(lambda (content)
(with-temp-buffer
(insert (parser-content-string content))
@ -76,7 +76,7 @@ children of the pair."
(let (beg end offset acc)
(while (< (point) (point-max))
(setq beg (point))
(search-forward-regexp "(def\\w*\\s-*\\(\\s_\\|\\w\\|[?!]\\)*\\([ \\t]*(.*?)\\)?" nil t)
(search-forward-regexp regex nil t)
(setq offset (- (point) beg))
(end-of-defun)
(backward-char)
@ -86,6 +86,12 @@ children of the pair."
(beginning-of-defun -1))
(list (reverse acc))))))
(defun origami-elisp-parser (create)
(origami-lisp-parser create "(def\\w*\\s-*\\(\\s_\\|\\w\\|[?!]\\)*\\([ \\t]*(.*?)\\)?"))
(defun origami-clj-parser (create)
(origami-lisp-parser create "(def\\(\\w\\|-\\)*\\s-*\\(\\s_\\|\\w\\|[?!]\\)*\\([ \\t]*\\[.*?\\]\\)?"))
(provide 'origami-parsers)
;;; parser.el ends here