riyyi
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Browse Source

Add buffer cleanup function

master
Riyyi 4 years ago
parent
5d905b08dd
commit
8b71686ade
1 changed files with 40 additions and 20 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 60
      .emacs.d/config.org

60
.emacs.d/config.org
Unescape View File

@ -958,6 +958,7 @@ Functions that use package functionality.
(string-match-p (string-match-p
(concat "^\\*\\(" (concat "^\\*\\("
"e?shell\\|" "e?shell\\|"
"Compile-Log\\|"
"Completions\\|" "Completions\\|"
"clangd\\|" ; lsp c/c++ "clangd\\|" ; lsp c/c++
"Faces\\|" "Faces\\|"
@ -969,6 +970,21 @@ Functions that use package functionality.
"\\).*") "\\).*")
name) name)
))) )))
(defun dot/kill-buffer-or-window ()
(interactive)
(if (centaur-tabs-hide-tab (buffer-name))
(kill-buffer-and-window)
(delete-window))
)
(defun dot/buffer-cleanup ()
(interactive)
(dolist (buffer (buffer-list))
(when (centaur-tabs-hide-tab buffer)
(kill-buffer buffer))
)
)
) )
(defun dashboard-goto-bookmarks () (defun dashboard-goto-bookmarks ()
@ -1102,7 +1118,7 @@ Set custom keybinds to functionality of default modes.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
;; Buffers ;; Buffers
(global-set-key (kbd "C-x C-b") 'ibuffer) (global-set-key (kbd "C-x C-b") 'ibuffer)
(global-set-key (kbd "M-w") 'kill-this-buffer) (global-set-key (kbd "M-w") 'kill-buffer-and-window)
;; Config edit/reload ;; Config edit/reload
(global-set-key (kbd "C-c r") 'config-reload) (global-set-key (kbd "C-c r") 'config-reload)
@ -1247,16 +1263,17 @@ General.el ~leader key binds.
"b" '(:ignore t :which-key "buffer/bookmark") "b" '(:ignore t :which-key "buffer/bookmark")
"b a" '(auto-revert-mode :which-key "Auto revert buffer") "b a" '(auto-revert-mode :which-key "Auto revert buffer")
"b b" '(switch-to-buffer :which-key "Switch buffer") "b b" '(switch-to-buffer :which-key "Switch buffer")
"b B" '(ibuffer :which-key "List buffers")
"b d" '(kill-current-buffer :which-key "Kill buffer") "b d" '(kill-current-buffer :which-key "Kill buffer")
"b h" '(previous-buffer :which-key "Previous buffer") "b h" '(previous-buffer :which-key "Previous buffer")
"b k" '(kill-current-buffer :which-key "Kill buffer") "b k" '(kill-current-buffer :which-key "Kill buffer")
"b l" '(next-buffer :which-key "Next buffer") "b l" '(next-buffer :which-key "Next buffer")
"b m" '(bookmark-set :which-key "Make bookmark") "b m" '(bookmark-set :which-key "Make bookmark")
"b M" '(bookmark-delete :which-key "Delete bookmark")
"b n" '(evil-buffer-new :which-key "New empty buffer") "b n" '(evil-buffer-new :which-key "New empty buffer")
"b r" '(revert-buffer :which-key "Revert buffer") "b r" '(revert-buffer :which-key "Revert buffer")
"b s" '(basic-save-buffer :which-key "Save buffer") "b s" '(basic-save-buffer :which-key "Save buffer")
"b B" '(ibuffer :which-key "List buffers")
"b C" '(dot/buffer-cleanup :which-key "Cleanup buffers")
"b M" '(bookmark-delete :which-key "Delete bookmark")
"b S" '(evil-write-all :which-key "Save all buffers") "b S" '(evil-write-all :which-key "Save all buffers")
"b <left>" '(previous-buffer :which-key "Previous buffer") "b <left>" '(previous-buffer :which-key "Previous buffer")
"b <right>" '(next-buffer :which-key "Next buffer") "b <right>" '(next-buffer :which-key "Next buffer")
@ -1327,23 +1344,26 @@ General.el ~leader key binds.
"u" '(auto-package-update-now :which-key "Update packages") "u" '(auto-package-update-now :which-key "Update packages")
;; Window ;; Window
;; "w" '(:keymap evil-window-map :which-key "window") "w" '(:ignore t :which-key "window")
"w" '(:ignore t :which-key "window") "w +" '(evil-window-increase-height :which-key "Increase window height")
"w =" '(balance-windows-area :which-key "Balance windows area") "w -" '(evil-window-decrease-height :which-key "Decrease window height")
"w h" '(windmove-left :which-key "Focus window left") "w <" '(evil-window-decrease-width :which-key "Decrease window width")
"w j" '(windmove-down :which-key "Focus window down") "w =" '(balance-windows :which-key "Balance windows")
"w k" '(windmove-up :which-key "Focus window up") "w >" '(evil-window-increase-width :which-key "Increase window width")
"w l" '(windmove-right :which-key "Focus window right") "w _" '(evil-window-set-height :which-key "Maximize window height")
"w o" '(delete-other-windows :which-key "Close other windows") "w h" '(windmove-left :which-key "Focus window left")
"w s" '(:ignore t :which-key "split") "w j" '(windmove-down :which-key "Focus window down")
"w s h" '(split-follow-horizontally :which-key "Split horizontal") "w k" '(windmove-up :which-key "Focus window up")
"w s v" '(split-follow-vertically :which-key "Split vertical") "w l" '(windmove-right :which-key "Focus window right")
"w w" '(other-window :which-key "Focus other window") "w o" '(delete-other-windows :which-key "Close other windows")
"w q" '(delete-window :which-key "Close window") "w s" '(split-follow-horizontally :which-key "Split horizontal")
"w <left>" '(windmove-left :which-key "Focus window left") "w v" '(split-follow-vertically :which-key "Split vertical")
"w <right>" '(windmove-right :which-key "Focus window right") "w w" '(other-window :which-key "Focus other window")
"w <up>" '(windmove-up :which-key "Focus window up") "w q" '(dot/kill-buffer-or-window :which-key "Close window")
"w <down>" '(windmove-down :which-key "Focus window down") "w <left>" '(windmove-left :which-key "Focus window left")
"w <right>" '(windmove-right :which-key "Focus window right")
"w <up>" '(windmove-up :which-key "Focus window up")
"w <down>" '(windmove-down :which-key "Focus window down")
;; winner-redo (built-in window history) ;; winner-redo (built-in window history)
;; winner-undo ;; winner-undo
) )

Write Preview
Loading…
Cancel
Save