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