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

Extract out local function

Browse Source
This commit is contained in:
Greg Sexton
2014-11-15 16:38:50 +00:00
parent 775d3058a8
commit d586c41b21
1 changed files with 26 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
origami-parsers.el
View File

@@ -30,6 +30,7 @@
;;; Commentary:
;;; Code:
(require 'cl)
(defcustom origami-parser-alist
'((java-mode . origami-c-style-parser)
@@ -53,33 +54,35 @@
(reverse acc))))
(defun origami-build-pair-tree (create open close positions)
;; this is so horrible, but fast
(let (acc beg (should-continue t))
(while (and should-continue positions)
(cond ((equal (caar positions) open)
(if beg ;go down a level
(let* ((res (origami-build-pair-tree create open close positions))
(new-pos (car res))
(children (cdr res)))
(setq positions (cdr new-pos))
(setq acc (cons (funcall create beg (cdar new-pos) 0 children) acc))
(setq beg nil))
;; begin a new pair
(setq beg (cdar positions))
(setq positions (cdr positions))))
((equal (caar positions) close)
(if beg
(progn ;close with no children
(setq acc (cons (funcall create beg (cdar positions) 0 nil) acc))
(setq positions (cdr positions))
(setq beg nil))
(setq should-continue nil)))))
(cons positions (reverse acc))))
(cl-labels ((build (positions)
;; this is so horrible, but fast
(let (acc beg (should-continue t))
(while (and should-continue positions)
(cond ((equal (caar positions) open)
(if beg ;go down a level
(let* ((res (build positions))
(new-pos (car res))
(children (cdr res)))
(setq positions (cdr new-pos))
(setq acc (cons (funcall create beg (cdar new-pos) 0 children) acc))
(setq beg nil))
;; begin a new pair
(setq beg (cdar positions))
(setq positions (cdr positions))))
((equal (caar positions) close)
(if beg
(progn ;close with no children
(setq acc (cons (funcall create beg (cdar positions) 0 nil) acc))
(setq positions (cdr positions))
(setq beg nil))
(setq should-continue nil)))))
(cons positions (reverse acc)))))
(cdr (build positions))))
(defun origami-c-style-parser (create)
(lambda (content)
(let ((positions (origami-get-positions content "[{}]")))
(cdr (origami-build-pair-tree create "{" "}" positions)))))
(origami-build-pair-tree create "{" "}" positions))))
(defun origami-lisp-parser (create regex)
(lambda (content)