Emacs cleanup unused buffers

gistfile1.txt

(setq msv-cleanup-list '(dired-mode doc-view-mode image-mode magit-status-mode magit-log-edit-mode debugger-mode archive-mode))

(defun msv-cleanup ()
  "Clean up and kill buffers that are no longer needed"
  (interactive)
  (save-excursion
    (let ((count 0))
    (dolist (buffer (buffer-list))
      (set-buffer buffer)
      (when (member major-mode msv-cleanup-list)
	(setq count (1+ count))
	(kill-buffer buffer)))
    (message "Killed %i buffer(s)." count))))