branch: externals/org-remark
commit 9f492e184ed8d9c97374e70e272783d2219eebee
Author: Noboru Ota <m...@nobiot.com>
Commit: Noboru Ota <m...@nobiot.com>
fix side-window
---
org-remark.el | 18 ++++++++++++------
1 file changed, 12 insertions(+), 6 deletions(-)
diff --git a/org-remark.el b/org-remark.el
index 9ba903efd2..b42826d61d 100644
--- a/org-remark.el
+++ b/org-remark.el
@@ -65,6 +65,15 @@ file."
"Define if Org-remark use Org-ID to link back to the main note."
:type 'boolean)
+
+(defcustom org-remark-notes-buffer-alist
+ `((display-buffer-in-side-window)
+ (side . left)
+ (slot . 1)
+ (dedicated . t))
+ "."
+ :type display-buffer--action-custom-type)
+
;;;; Variables
(defvar-local org-remark-loaded nil
@@ -301,18 +310,15 @@ notes file by tracking it."
(find-file-noselect org-remark-notes-file-path)
"*marginal notes*" 'clone)))
(setq org-remark-last-notes-buffer ibuf)
- (display-buffer ibuf
- '((display-buffer-in-side-window)
- (side . left)
- (slot . 1)
- (dedicated . t)))
+ (display-buffer ibuf org-remark-notes-buffer-alist)
;; Assuming the marginal-notes buffer is in another window
(switch-to-buffer-other-window ibuf)
(widen)(goto-char (point-min))
(when-let (p (or (org-find-property org-remark-prop-id id)
(org-find-property "marginalia-id" id)))
(goto-char p)(org-narrow-to-subtree))
- (unless arg (switch-to-buffer cbuf))))
+ ;; Assuming the marginal-notes buffer is in another window
+ (unless arg (switch-to-buffer-other-window cbuf))))
(defun org-remark-visit (point)
"Visit notes for hightlight and annocation at POINT.
