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

Implement toggle

Browse Source
This commit is contained in:
Greg Sexton 2014-04-19 15:08:46 +01:00
parent 2be3fa7916
commit 0f08711a7f
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
origami.el
View File

@ -414,7 +414,18 @@ otherwise fetch cached tree."
(origami-delete-overlay-from-fold-tree-fn buffer)
(origami-change-overlay-from-fold-node-fn buffer)))))
(defun origami-toggle-node (buffer point))
(defun origami-toggle-node (buffer point)
(interactive (list (current-buffer) (point)))
(let ((tree (origami-get-fold-tree buffer)))
(-when-let (path (origami-fold-find-path-containing tree point))
(debug-msg "open path: %s" path)
(origami-fold-diff tree (origami-store-cached-tree buffer
(origami-fold-open-set
path
(not (origami-fold-open-p (-last-item path)))))
(origami-create-overlay-from-fold-tree-fn buffer)
(origami-delete-overlay-from-fold-tree-fn buffer)
(origami-change-overlay-from-fold-node-fn buffer)))))
(defun origami-reset (buffer)
;; TODO: provide this to the user in case we get screwed up, maybe