contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

cp-nav.el - ibuffer 

emacs-init-time to open a session showing (only) the *Messages* buffer -
before - 13.3s
after  - 12.8s
This commit is contained in:
Kashish Sharma 2016-06-14 03:05:44 +05:30
parent 54fe426d94
commit d170ff547c
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
contrapunctus/cp-nav.el
View File

@ -84,24 +84,25 @@
(interactive)
(kill-buffer nil))
(require 'ibuffer)
(autoload 'ibuffer "ibuffer" "ibuffer" t)
(global-set-key (kbd "C-x C-b") 'ibuffer)
(cp-set-keys
:unset t
:keymap ibuffer-mode-map
:bindings
`((,(kbd "m"))
(,(kbd "U"))))
(cp-set-keys
:keymap ibuffer-mode-map
:bindings
`((,(kbd "m f") ibuffer-mark-by-file-name-regexp)
(,(kbd "m m") ibuffer-mark-by-mode-regexp)
(,(kbd "m n") ibuffer-mark-by-name-regexp)
(,(kbd "M") ibuffer-mark-forward)
(,(kbd "r") ibuffer-do-replace-regexp)
(,(kbd "U") ibuffer-unmark-all)))
(add-hook 'ibuffer-mode-hook 'ibuffer-set-filter-groups-by-mode)
(with-eval-after-load 'ibuffer
(cp-set-keys
:unset t
:keymap ibuffer-mode-map
:bindings
`((,(kbd "m"))
(,(kbd "U"))))
(cp-set-keys
:keymap ibuffer-mode-map
:bindings
`((,(kbd "m f") ibuffer-mark-by-file-name-regexp)
(,(kbd "m m") ibuffer-mark-by-mode-regexp)
(,(kbd "m n") ibuffer-mark-by-name-regexp)
(,(kbd "M") ibuffer-mark-forward)
(,(kbd "r") ibuffer-do-replace-regexp)
(,(kbd "U") ibuffer-unmark-all)))
(add-hook 'ibuffer-mode-hook 'ibuffer-set-filter-groups-by-mode))
(require 'win-switch)
(global-set-key "\C-xo" 'win-switch-dispatch)