From 7e5e156ffb776647d9273f706150a39336717cb9 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 10 May 2017 05:26:13 +0200 Subject: [PATCH] core-popups: integrate buffer-menu into shackle --- core/core-popups.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/core/core-popups.el b/core/core-popups.el index 174218ea3..493d90d67 100644 --- a/core/core-popups.el +++ b/core/core-popups.el @@ -69,6 +69,7 @@ is enabled/disabled.'") ("*Pp Eval Output*" :size 16 :noselect t :autokill t :autoclose t) ("*Apropos*" :size 0.3) ("*Backtrace*" :size 25 :noselect t) + ("*Buffer List*" :size 20 :autokill t) ("*Help*" :size 16) ("*Messages*" :size 10 :noselect t) ("*Warnings*" :size 10 :noselect t :autokill t) @@ -237,6 +238,17 @@ properties." ;; 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 (let ((map doom-popup-mode-map)) (define-key map [remap evil-window-delete] 'doom/popup-close)