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

Add basic support for moving popup windows (WIP)

Browse source 
Relevant to #141 #171
This commit is contained in:
Henrik Lissner 2017-09-24 20:46:53 +02:00
parent cfb094e589
commit 2ea01a5b66
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 39 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

10
core/autoload/popups.el
View file

@ -212,6 +212,16 @@ window parameter."
(when (/= count 0) (when (/= count 0)
(other-window count))))) (other-window count)))))
;;;###autoload
(defun doom-popup-move (direction)
"Move a popup window to another side of the frame, in DIRECTION, which can be
one of the following: 'left 'right 'up 'down"
(when (doom-popup-p)
(let ((buffer (current-buffer))
(doom-popup-inhibit-autokill t))
(doom/popup-close)
(doom-popup-buffer buffer '(:align direction) 'extend))))
(defun doom--popup-data (window) (defun doom--popup-data (window)
(unless (doom-popup-property :fixed window) (unless (doom-popup-property :fixed window)
(when-let (buffer (window-buffer window)) (when-let (buffer (window-buffer window))

4
modules/feature/evil/autoload/evil.el
View file

@ -101,6 +101,8 @@ flags. See http://vimdoc.sourceforge.net/htmldoc/cmdline.html#filename-modifiers
there and there is only one window, split in that direction and place this there and there is only one window, split in that direction and place this
window there. If there are no windows and this isn't the only window, use window there. If there are no windows and this isn't the only window, use
evil-window-move-* (e.g. `evil-window-move-far-left')" evil-window-move-* (e.g. `evil-window-move-far-left')"
(if (doom-popup-p)
(doom-popup-move direction)
(let* ((this-window (get-buffer-window)) (let* ((this-window (get-buffer-window))
(this-buffer (current-buffer)) (this-buffer (current-buffer))
(that-window (windmove-find-other-window direction nil this-window)) (that-window (windmove-find-other-window direction nil this-window))
@ -128,7 +130,7 @@ evil-window-move-* (e.g. `evil-window-move-far-left')"
(switch-to-buffer that-buffer)) (switch-to-buffer that-buffer))
(with-selected-window that-window (with-selected-window that-window
(switch-to-buffer this-buffer)) (switch-to-buffer this-buffer))
(select-window that-window)))) (select-window that-window)))))
;;;###autoload ;;;###autoload
(defun +evil/window-move-left () "See `+evil--window-swap'" (interactive) (+evil--window-swap 'left)) (defun +evil/window-move-left () "See `+evil--window-swap'" (interactive) (+evil--window-swap 'left))