Kill Emacs buffers by path

killemall.el

;; based on https://stackoverflow.com/a/32823597

(defun killemall (regexp)
  (interactive "sKill buffers with paths matching this regexp: ")
  (dolist (buffer (buffer-list))
    (let ((name (or (buffer-file-name buffer)
                    (with-current-buffer buffer
                      (when (boundp 'dired-directory)
                        (if (consp dired-directory)
                            (car dired-directory)
                          dired-directory))))))
      (when (and name (not (string-equal name ""))
                 (string-match regexp name))
        (kill-buffer buffer)))))