Fix org-roam buffer being selected on org-roam--setup-buffer

This commit is contained in:
Jethro Kuan
2020-02-09 21:22:24 +08:00
parent a14da9630c
commit 32865d3d0c

View File

@@ -409,14 +409,15 @@ Valid states are 'visible, 'exists and 'none."
(defun org-roam--setup-buffer () (defun org-roam--setup-buffer ()
"Setup the `org-roam' buffer at the `org-roam-position'." "Setup the `org-roam' buffer at the `org-roam-position'."
(save-excursion (let ((window (get-buffer-window)))
(-> (get-buffer-create org-roam-buffer) (-> (get-buffer-create org-roam-buffer)
(display-buffer-in-side-window (display-buffer-in-side-window
`((side . ,org-roam-position))) `((side . ,org-roam-position)))
(select-window)) (select-window))
(org-roam--set-width (org-roam--set-width
(round (* (frame-width) (round (* (frame-width)
org-roam-buffer-width))))) org-roam-buffer-width)))
(select-window window)))
(defun org-roam () (defun org-roam ()
"Pops up the window `org-roam-buffer' accordingly." "Pops up the window `org-roam-buffer' accordingly."