branch: externals/hyperbole
commit c5b276b61edeaa9a1952e8d50c41c4cb54a9cda7
Author: Bob Weiner <r...@gnu.org>
Commit: Bob Weiner <r...@gnu.org>
HyRolo - `hyrolo-outline-minor-mode' expands invisible text at point
---
ChangeLog | 2 ++
hyrolo.el | 12 ++++++++++--
2 files changed, 12 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 4cb7a544d6..c57bdfa0a5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
2024-02-19 Bob Weiner <r...@gnu.org>
+* hyrolo.el (hyrolo-show-post-command): Add.
+ (hyrolo-outline-minor-mode): Toggle use of
'hyrolo-show-post-command'.
* hyrolo.el (hyrolo-mode): Set these two missing variables:
'hyrolo-entry-group-number' and 'hyrolo-entry-trailing-space-group-number'.
diff --git a/hyrolo.el b/hyrolo.el
index 60c006eb23..3ce949a663 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 7-Jun-89 at 22:08:29
-;; Last-Mod: 19-Feb-24 at 11:33:53 by Bob Weiner
+;; Last-Mod: 19-Feb-24 at 12:09:48 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -2146,12 +2146,14 @@ See the command `outline-mode' for more information on
this mode."
(unless (derived-mode-p 'hyrolo-mode 'kotl-mode
'markdown-mode 'org-mode 'outline-mode)
(hyrolo-outline-minor-mode -1)))
nil t)
+ (add-hook 'post-command-hook 'hyrolo-show-post-command nil t)
(setq-local line-move-ignore-invisible t)
;; Use ellipses for invisible text
(hypb:add-to-invisibility-spec '(outline . t)))
;; disable minor mode
(when (and (boundp 'outline-minor-mode-cycle) outline-minor-mode-cycle)
(remove-overlays nil nil 'outline-overlay t))
+ (remove-hook 'post-command-hook 'hyrolo-show-post-command t)
(setq line-move-ignore-invisible nil)
;; Disable use of ellipses for invisible text.
(remove-from-invisibility-spec '(outline . t))
@@ -2547,7 +2549,7 @@ If within a file header, show the whole file starting
with the header."
(hyrolo-cache-location-start-and-end)
(setq start (or start (line-beginning-position))
end (1- (or end (point-max))))
- ;; Hide region
+ ;; Show region
(outline-flag-region start end nil))
(hyrolo-funcall-match #'outline-show-subtree t)))
@@ -3640,6 +3642,12 @@ that text."
(when reveal-auto-hide
(hyrolo-reveal-close-old-overlays old-ols)))))))
+(defun hyrolo-show-post-command ()
+ "Post command hook function to expand subtree if point is in invisible text.
+Used in *HyRolo* match buffer."
+ (when (outline-invisible-p)
+ (hyrolo-outline-show-subtree)))
+
;;; ************************************************************************
;;; hyrolo-file-list - initialize cache if this is already set when loading
;;; ************************************************************************
