[nongnu] elpa/org-present 1f264070dc 03/47: overlays for stars in headers

[ELPA Syncer]

branch: elpa/org-present
commit 1f264070dc2b2bd7e444cf4045422bb304a68db4
Author: Richard Lister <rlister+gh@gmail.com>
Commit: Richard Lister <rlister+gh@gmail.com>

    overlays for stars in headers
---
 org-present.el | 32 +++++++++++++++++++++++++++-----
 1 file changed, 27 insertions(+), 5 deletions(-)

diff --git a/org-present.el b/org-present.el
index 8a5c370670..6ec10881bf 100644
--- a/org-present.el
+++ b/org-present.el
@@ -60,9 +60,9 @@
 
 (define-minor-mode org-present-mode
   "Minimalist presentation minor mode for org-mode."
-  nil
-  " OP"
-  org-present-mode-keymap)
+  :init-value nil
+  :lighter " OP"
+  :keymap org-present-mode-keymap)
 
 (make-variable-buffer-local 'org-present-mode)
 
@@ -116,12 +116,34 @@
   (interactive)
   (text-scale-increase 0))
 
+(defun org-present-add-overlays ()
+  "Add overlays for this mode."
+  (interactive)
+  (add-to-invisibility-spec 'org-present)
+  (save-excursion
+    (goto-char (point-min))
+    (while (re-search-forward "^\\(*+\\)" nil t) ;make stars in headers 
invisible
+      (overlay-put (make-overlay (match-beginning 1) (match-end 1)) 'invisible 
'org-present))))
+
+(defun org-present-rm-overlays ()
+  "Remove overlays for this mode."
+  (interactive)
+  (remove-from-invisibility-spec 'org-present))
+
+;;;###autoload
+(defun org-present ()
+  "init."
+  (interactive)
+  (message "running org-present")
+  (setq org-present-mode t)
+  (org-present-add-overlays)
+  (run-hooks 'org-present-mode-hook))
+
 (defun org-present-quit ()
   "Quit the minor-mode."
   (interactive)
   (org-present-small)
+  (org-present-rm-overlays)
   (widen)
   (run-hooks 'org-present-mode-quit-hook)
   (setq org-present-mode nil))
-
-(run-hooks 'org-present-mode-hook)