emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

core-popups: add :noclone prop + fix replicating help popups

Browse source
This commit is contained in:
Henrik Lissner 2017-05-13 22:37:10 +02:00
parent 64bb34c163
commit 928e6754b9
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
core/core-popups.el
View file

@ -59,6 +59,10 @@ is enabled/disabled.'")
;; when their popup is closed. Used by
;; `doom*delete-popup-window'
;; :autoclose If non-nil, close popup if ESC is pressed from any buffer.
;; :noclone If non-nil, don't try to clone the buffer. This helps with
;; buffers with buttons/links that, when followed, should
;; open within the popup, rather than outside of it. Like
;; help buffers or eshell-term buffers.
shackle-rules
'(("^ ?\\*doom:.+\\*$" :size 25 :modeline minimal :regexp t :noesc t)
("^ ?\\*doom .+\\*$" :size 10 :noselect t :regexp t)
@ -71,7 +75,7 @@ is enabled/disabled.'")
("*Apropos*" :size 0.3)
("*Backtrace*" :size 25 :noselect t)
("*Buffer List*" :size 20 :autokill t)
("*Help*" :size 16)
("*Help*" :size 16 :autokill t :noclone t)
("*Messages*" :size 10 :noselect t)
("*Warnings*" :size 10 :noselect t :autokill t)
("*command-log*" :size 28 :noselect t :align right)
@ -194,7 +198,8 @@ and setting `doom-popup-rules' within it. Returns the window."
((bufferp (car args))
(shackle-match (car args))))))
window)
(when (get-buffer-window-list (car args) nil t)
(when (and (not (plist-get plist :noclone))
(get-buffer-window-list (get-buffer (car args)) nil t))
(setq plist (append (list :autokill t) plist))
(setcar args (clone-indirect-buffer (buffer-name (car args)) nil t)))
(unless (setq window (apply orig-fn args))