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

General & minor refactoring

Browse source
This commit is contained in:
Henrik Lissner 2018-01-07 00:08:30 -05:00
parent 25619908a2
commit 2d9e63d5bb
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 13 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/feature/popup/config.el
View file

@ -19,7 +19,8 @@ Modifying this has no effect, unless done before feature/popup loads.
If t, close the popup if ESC/C-g is pressed inside or outside of popups.
If 'other, close this popup if ESC/C-g is pressed outside of any popup. This
is great for popups you just want to peek at and discard.
is great for popups you just want to peek at and discard, but might also
want to poke around in, without the risk of closing it from the inside.
If 'current, close the current popup if ESC/C-g is pressed from inside of the
popup.
If nil, pressing ESC/C-g will never close this buffer.
@ -63,7 +64,7 @@ a brief description of some native window parameters that Emacs uses:
(defvar +popup-default-parameters
'((transient . t)
(quit . t))
"The default window parameters to add alists fed to `display-buffer-alist'.")
"The default window parameters.")
(defvar +popup-ttl 10
"The default time-to-live for transient buffers whose popup buffers have been
@ -133,8 +134,7 @@ ALIST supports one custom parameter: `size', which will resolve to
(setq +popup--display-buffer-alist (eval-when-compile +popup--display-buffer-alist))
(add-hook 'doom-init-ui-hook #'+popup-mode)
(add-hook '+popup-buffer-mode-hook #'+popup|adjust-fringes)
(add-hook '+popup-buffer-mode-hook #'+popup|set-modeline)
(add-hook! '+popup-buffer-mode-hook #'(+popup|adjust-fringes +popup|set-modeline))
;;
@ -213,9 +213,9 @@ ALIST supports one custom parameter: `size', which will resolve to
(set! :popup "^ \\*Org todo" '((size . 5)) '((transient . 0)))
(set! :popup "^\\*Org Agenda" '((size . 20)))
;; Org has a scorched-earth window management system I'm not fond of. i.e.
;; it kills all windows and monopolizes the frame. No thanks. We can do
;; better with shackle's help.
;; Org has a scorched-earth window management system I'm not fond of. i.e. it
;; kills all windows and monopolizes the frame. No thanks. We can do better
;; ourselves.
(defun +popup*suppress-delete-other-windows (orig-fn &rest args)
(cl-letf (((symbol-function 'delete-other-windows)
(symbol-function 'ignore)))