Major overhaul

core/defuns-buffers.el

@@ -0,0 +1,82 @@
+;; Inspired by http://demonastery.org/2013/04/emacs-evil-narrow-region/
+;;;###autoload
+(defun my-narrow-to-region-indirect (start end)
+  "Restrict editing in this buffer to the current region, indirectly."
+  (interactive "r")
+  (deactivate-mark)
+  (let ((buf (clone-indirect-buffer nil nil)))
+    (with-current-buffer buf
+      (narrow-to-region start end))
+    (switch-to-buffer buf)))
+
+
+;; Killing Buffers ;;;;;;;;;;;;;;;;;;;;;
+;; Buffer defuns
+(defvar my-cleanup-buffers-list '("^ \\*"
+                                   "^\\*Backtrace\\*$"
+                                   "^\\*Warnings\\*$"
+                                   "^\\*Compile-Log\\*$"
+                                   "^\\*Ediff.*\\*$"
+                                   help-mode
+                                   dired-mode
+                                   reb-mode)
+  "A list of buffer name regexps or major-mode symbols. If buried buffers
+  match/have that mode active, `cleanup-buffers' will kill them.")
+
+(defvar my-cleanup-processes-alist '(("pry" . ruby-mode)
+                                     ("irb" . ruby-mode)
+                                     ("ipython" . python-mode))
+  "An alist of (process-name . major-mode), that `my-cleanup-processes' checks
+before killing processes. If there are no buffers with matching major-modes, it
+gets killed.")
+
+;;;###autoload
+(defun my--cleanup-buffers-add (regexp)
+  (add-to-list 'my-cleanup-buffers-list regexp))
+
+;;;###autoload
+(defun my-cleanup-buffers ()
+  "Kill left-over temporary, dired or buried special buffers"
+  (interactive)
+  (let* ((this-frame (selected-frame))
+         (kill-list (buffer-list this-frame)))
+    (setq kill-list
+          (-filter (lambda (b)
+                     (unless (get-buffer-window b) ; don't kill if visible
+                       (-any? (lambda (pred)
+                                (cond ((stringp pred)
+                                       (s-matches? pred (buffer-name b)))
+                                      ((symbolp pred)
+                                       (eq (buffer-local-value 'major-mode b) pred))))
+                              my-cleanup-buffers-list)))
+                   kill-list))
+
+    (message "Cleaned up %s buffers" (length kill-list))
+    (mapc 'kill-buffer kill-list)
+
+    (my-cleanup-processes)))
+
+;;;###autoload
+(defun my-cleanup-processes ()
+  (interactive)
+  (let ((buffer-list (buffer-list)))
+    (dolist (p (process-list))
+      (let* ((process-name (process-name p))
+             (assoc (assoc process-name my-cleanup-processes-alist)))
+        (when (and assoc
+                   (not (string= process-name "server"))
+                   (process-live-p p)
+                   (not (-any? (lambda (b)
+                                 (let ((mode (buffer-local-value 'major-mode b)))
+                                   (eq mode (cdr assoc))))
+                               buffer-list)))
+          (message "Cleanup: killing %s" process-name)
+          (delete-process p))))))
+
+;;;###autoload
+(defun my-kill-matching-buffers (regexp &optional buffer-list)
+  (interactive)
+  (mapc (lambda (b)
+          (if (s-matches? regexp (buffer-name b))
+              (kill-buffer b)))
+        (if buffer-list buffer-list (buffer-list))))