awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

core-popups: integrate buffer-menu into shackle

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-10 05:26:13 +02:00
parent 57a74b1761
commit 7e5e156ffb
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
core/core-popups.el
View File

@ -69,6 +69,7 @@ is enabled/disabled.'")
("*Pp Eval Output*" :size 16 :noselect t :autokill t :autoclose t) ("*Pp Eval Output*" :size 16 :noselect t :autokill t :autoclose t)
("*Apropos*" :size 0.3) ("*Apropos*" :size 0.3)
("*Backtrace*" :size 25 :noselect t) ("*Backtrace*" :size 25 :noselect t)
("*Buffer List*" :size 20 :autokill t)
("*Help*" :size 16) ("*Help*" :size 16)
("*Messages*" :size 10 :noselect t) ("*Messages*" :size 10 :noselect t)
("*Warnings*" :size 10 :noselect t :autokill t) ("*Warnings*" :size 10 :noselect t :autokill t)
@ -237,6 +238,17 @@ properties."
;; Hacks ;; Hacks
;; ;;
(progn ; hacks for built-in functions
(defun doom*buffer-menu (&optional arg)
"Open `buffer-menu' in a popup window."
(interactive "P")
(let ((buf (list-buffers-noselect arg)))
(doom-popup-buffer buf)
(with-current-buffer buf
(setq mode-line-format "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %; q to quit; ? for help."))))
(advice-add #'buffer-menu :override #'doom*buffer-menu))
(after! evil (after! evil
(let ((map doom-popup-mode-map)) (let ((map doom-popup-mode-map))
(define-key map [remap evil-window-delete] 'doom/popup-close) (define-key map [remap evil-window-delete] 'doom/popup-close)