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

Add doom-popup-no-fringe option; disable fringes in popups

Browse source
This commit is contained in:
Henrik Lissner 2017-06-10 01:54:15 +02:00
parent bab738c56c
commit a30b0efce5
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

15
core/core-popups.el
View file

@ -25,6 +25,9 @@
(defvar doom-popup-other-window nil (defvar doom-popup-other-window nil
"The last window selected before a popup was opened.") "The last window selected before a popup was opened.")
(defvar doom-popup-no-fringes t
"If non-nil, disable fringes in popup windows.")
(defvar-local doom-popup-rules nil (defvar-local doom-popup-rules nil
"The shackle rule that caused this buffer to be recognized as a popup.") "The shackle rule that caused this buffer to be recognized as a popup.")
@ -145,15 +148,21 @@ for :align t on every rule."
;; Makes popup window resist interactively changing its buffer. ;; Makes popup window resist interactively changing its buffer.
(set-window-dedicated-p window doom-popup-mode) (set-window-dedicated-p window doom-popup-mode)
(cond (doom-popup-mode (cond (doom-popup-mode
(when doom-popup-no-fringes
(set-window-fringes window 0 0 fringes-outside-margins))
;; Save metadata into window parameters so it can be saved by window ;; Save metadata into window parameters so it can be saved by window
;; config persisting plugins like workgroups or persp-mode. ;; config persisting plugins like workgroups or persp-mode.
(set-window-parameter window 'popup (or doom-popup-rules t)) (set-window-parameter window 'popup (or doom-popup-rules t))
(when doom-popup-rules (when doom-popup-rules
(dolist (param doom-popup-window-parameters) (cl-loop for param in doom-popup-window-parameters
(when-let (val (plist-get doom-popup-rules param)) when (plist-get doom-popup-rules param)
(set-window-parameter window param val))))) do (set-window-parameter window param it))))
(t (t
(when doom-popup-no-fringes
(set-window-fringes window
doom-ui-fringe-size doom-ui-fringe-size
fringes-outside-margins))
;; Ensure window parameters are cleaned up ;; Ensure window parameters are cleaned up
(set-window-parameter window 'popup nil) (set-window-parameter window 'popup nil)
(dolist (param doom-popup-window-parameters) (dolist (param doom-popup-window-parameters)