general-goodies.el

(defun nuke-all-buffers ()
  "Kill all buffers, leaving *scratch* only."
  (interactive)
  (mapcar (lambda (x) (kill-buffer x)) (buffer-list))
  (delete-other-windows))

(defun copy-file-name-to-clipboard ()
  "Copy the current buffer file name to the clipboard."
  (interactive)
  (let ((filename (if (equal major-mode 'dired-mode)
                      default-directory
                    (buffer-file-name))))
    (when filename
      (kill-new filename)
      (message "Copied buffer file name '%s' to the clipboard." filename))))

(defun dired-stay-or-jump ()
  "Jump to dired if current buffer is not a dired buffer.
Useful when creating new window layout/config."
  (interactive)
  (let ((cur-buf (buffer-name (current-buffer))))
    (if (eq major-mode 'dired-mode)
        (switch-to-buffer cur-buf)
      (dired-jump))))

(defun dired-popup ()
  (interactive)
  (popwin:popup-buffer (find-file-noselect default-directory)
                       :width 40 :position 'left :stick t))

(defun my-reload-dir-locals-for-current-buffer ()
  "reload dir locals for the current buffer"
  (interactive)
  (let ((enable-local-variables :all))
    (hack-dir-local-variables-non-file-buffer)))

(defun my-reload-dir-locals-for-all-buffer-in-this-directory ()
  "For every buffer with the same `default-directory` as the
current buffer's, reload dir-locals."
  ;; http://emacs.stackexchange.com/questions/13080/reloading-directory-local-variables
  (interactive)
  (let ((dir default-directory))
    (dolist (buffer (buffer-list))
      (with-current-buffer buffer
        (when (equal default-directory dir))
        (my-reload-dir-locals-for-current-buffer)))))

(provide 'general-goodies)