emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/boxy 57310c19a7 1/3: Using org reveal after navigating


From: ELPA Syncer
Subject: [elpa] externals/boxy 57310c19a7 1/3: Using org reveal after navigating to a box
Date: Tue, 10 May 2022 10:57:19 -0400 (EDT)

branch: externals/boxy
commit 57310c19a7e8afd8a87ab701d5f9c0102b42dd1d
Author: Tyler Grinn <tylergrinn@gmail.com>
Commit: Tyler Grinn <tylergrinn@gmail.com>

    Using org reveal after navigating to a box
---
 boxy.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/boxy.el b/boxy.el
index 465e3a4c27..6fb05bbcd5 100644
--- a/boxy.el
+++ b/boxy.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2021 Free Software Foundation, Inc.
 
 ;; Author: Tyler Grinn <tylergrinn@gmail.com>
-;; Version: 1.0.5
+;; Version: 1.0.6
 ;; File: boxy.el
 ;; Package-Requires: ((emacs "26.1"))
 ;; Keywords: tools
@@ -1149,7 +1149,8 @@ If INCLUDE-ON-TOP is non-nil, also include height on top 
of box."
     (let ((marker (car (oref box markers))))
       (save-selected-window
         (switch-to-buffer-other-window (marker-buffer marker))
-        (goto-char (marker-position marker)))
+        (goto-char (marker-position marker))
+        (org-reveal))
       (object-remove-from-list box :markers marker)
       (object-add-to-list box :markers marker t))))
 
@@ -1163,7 +1164,9 @@ If INCLUDE-ON-TOP is non-nil, also include height on top 
of box."
       (if-let ((window (get-buffer-window buffer)))
             (select-window window)
           (switch-to-buffer buffer))
-        (goto-char (marker-position marker)))))
+      (goto-char (marker-position marker))
+      (org-reveal))))
+  
 
 (defun boxy-button-jump-all (box)
   "View all occurrences of links from BOX in the same window."
@@ -1176,10 +1179,12 @@ If INCLUDE-ON-TOP is non-nil, also include height on 
top of box."
           (error "To many buffers to visit simultaneously"))
       (switch-to-buffer (marker-buffer marker))
       (goto-char (marker-position marker))
+      (org-reveal)
       (dolist (marker (cdr markers))
         (select-window (split-window nil size))
         (switch-to-buffer (marker-buffer marker))
-        (goto-char (marker-position marker))))))
+        (goto-char (marker-position marker))
+        (org-reveal)))))
 
 (defun boxy-button-jump-rel (box)
   "Jump to the box directly related to BOX."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]