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

Refactor variable setup

Browse Source
This commit is contained in:
Greg Sexton 2014-08-16 16:31:37 +01:00
parent 26037d8a99
commit ac970fb8ea
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
origami.el
View File

@ -271,8 +271,10 @@ with the current state and the current node at each iteration."
;;; interactive utils ;;; interactive utils
;;; TODO: create functions for accessing/setting the local vars and (defun origami-setup-local-vars (buffer)
;;; make sure these are used -- error if the buffer local var isn't set (with-current-buffer buffer
(set (make-local-variable 'origami-tree) (origami-fold-root-node))
(set (make-local-variable 'origami-tree-tick) 0)))
(defun origami-get-cached-tree (buffer) (defun origami-get-cached-tree (buffer)
(or (local-variable-p 'origami-tree buffer) (or (local-variable-p 'origami-tree buffer)
@ -478,7 +480,7 @@ a fold, move to the end of the fold that point is in."
(defun origami-reset (buffer) (defun origami-reset (buffer)
(interactive (list (current-buffer))) (interactive (list (current-buffer)))
(origami-store-cached-tree buffer (origami-fold-root-node)) (origami-setup-local-vars buffer)
(origami-remove-all-overlays buffer)) (origami-remove-all-overlays buffer))
;;; minor mode ;;; minor mode
@ -508,11 +510,7 @@ Key bindings:
:lighter nil :lighter nil
:keymap origami-mode-map :keymap origami-mode-map
:init-value nil :init-value nil
(if origami-mode ;enabling if t (origami-reset (current-buffer)))
(progn
(set (make-local-variable 'origami-tree) (origami-fold-root-node))
(set (make-local-variable 'origami-tree-tick) (buffer-modified-tick)))
(origami-reset (current-buffer))))
(provide 'origami) (provide 'origami)