Generalize +evil-esc-hook into doom-escape-hook

This lets vanilla Emacs users in on having a universal "escape" key.
This commit is contained in:
Henrik Lissner 2018-01-06 02:38:34 -05:00
parent c8768f512d
commit 3cbddbfd88
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
8 changed files with 34 additions and 28 deletions

View file

@ -139,14 +139,14 @@ current buffer."
:keymap +popup-mode-map
(cond (+popup-mode
(add-hook 'doom-unreal-buffer-functions #'+popup-p)
(add-hook '+evil-esc-hook #'+popup|close-on-escape t)
(add-hook 'doom-escape-hook #'+popup|close-on-escape t)
(setq +popup--old-display-buffer-alist display-buffer-alist
display-buffer-alist +popup--display-buffer-alist)
(dolist (prop +popup-window-parameters)
(push (cons prop 'writeable) window-persistent-parameters)))
(t
(remove-hook 'doom-unreal-buffer-functions #'+popup-p)
(remove-hook '+evil-esc-hook #'+popup|close-on-escape)
(remove-hook 'doom-escape-hook #'+popup|close-on-escape)
(setq display-buffer-alist +popup--old-display-buffer-alist)
(dolist (prop +popup-window-parameters)
(assq-delete-all prop window-persistent-parameters)))))