pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

This is WAY cleaner

Browse source
This commit is contained in:
Benson Chu 2025-08-10 11:39:37 -05:00 committed by Benson Chu
parent 80d4ca038e
commit c6d81e50ce
1 changed files with 16 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
lisp/org-config/my-org-capture-shouldnt-mess-windows.el
View file

@ -28,35 +28,29 @@
(window-parameter window 'window-side))
(defun my/org-capture-shouldnt-mess-windows (fun &rest args)
(let ((buffer
(save-window-excursion
(set-window-parameter (selected-window) 'window-side nil)
(let ((window--sides-inhibit-check t))
(apply fun args)
(current-buffer)))))
(pop-to-buffer buffer)))
(set-window-parameter (selected-window) 'window-side nil)
(cl-letf* ((original-pop-to-buffer
(symbol-function 'pop-to-buffer))
((symbol-function 'pop-to-buffer)
(lambda (buffer &optional action norecord)
(if (equal action '(org-display-buffer-split))
(funcall original-pop-to-buffer buffer)
(funcall original-pop-to-buffer buffer action norecord)))))
(let ((window--sides-inhibit-check t))
(apply fun args))))
(advice-add #'org-capture
:around
#'my/org-capture-shouldnt-mess-windows)
(defun my/org-capture-finalize-shouldnt-mess-windows (&rest args)
(save-window-excursion
(let ((buffer (current-buffer)))
;; This basically means that we don't change window configurations when
;; there are previous buffers to be seen. IDK if this will have unintended
;; consequences, because...
(if (zerop (length (window-prev-buffers)))
(delete-window)
(previous-buffer))
;; current-window-configuration will encode a buffer that's about to be
;; deleted. I tested it, and it does what I want, so maybe there's no
;; problem?
(with-current-buffer buffer
(org-capture-put :return-to-wconf (current-window-configuration))))))
(defun my/org-capture-finalize-shouldnt-mess-windows (orig &rest args)
(cl-letf (((symbol-function 'set-window-configuration)
#'ignore))
(apply orig args)))
(advice-add #'org-capture-finalize
:before
:around
#'my/org-capture-finalize-shouldnt-mess-windows)
(defun my/org-todo-side-window-hack (fun &rest args)