Keep current element open after manual stop (#39)

Kazark · web-flow · commit ffbd742267ff · 2022-02-11T13:27:27.000+06:00
* Keep current element open after manual stop
* Add custom variable to toggle manual linger
diff --git a/org-appear.el b/org-appear.el
@@ -93,6 +93,12 @@ Does not have an effect if `org-hidden-keywords' is nil."
   :type 'number
   :group 'org-appear)
 
+(defcustom org-appear-manual-linger nil
+  "Whether to hide the element on manual stop.
+If true, hide upon navigating away."
+  :type 'boolean
+  :group 'org-appear)
+
 (defvar-local org-appear--timer nil
   "Current active timer.")
 
@@ -227,12 +233,12 @@ It signals that elements in the current buffer must be toggled."
   (setq org-appear--do-buffer 't))
 
 (defun org-appear-manual-stop ()
-  "Signal that elements in the current buffer must no longer be toggled.
-Cleanup current element, if any."
-  (when-let ((current-elem (org-appear--current-elem)))
-    (org-appear--hide-invisible current-elem))
-  (setq org-appear--do-buffer nil)
-  (setq org-appear--elem-toggled nil))
+  "Signal that elements in the current buffer must no longer be toggled."
+  (when (not org-appear-manual-linger)
+    (when-let ((current-elem (org-appear--current-elem)))
+      (org-appear--hide-invisible current-elem))
+    (setq org-appear--elem-toggled nil))
+  (setq org-appear--do-buffer nil))
 
 (defun org-appear--pre-cmd ()
   "This function is executed by `pre-command-hook' in `org-appear-mode'.
