Customize dired

1 files changed, 20 insertions, 0 deletions

@@ -1304,6 +1304,12 @@ This has to be done /before/ loading the package.  It's included in =visual-fill
     #+BEGIN_SRC emacs-lisp
       ;; highlight the current line in dired.
       (add-hook 'dired-mode-hook #'hl-line-mode)
+
+      (cuss dired-recursive-copies 'always
+        "Always recursively copy.")
+
+      (cuss dired-listing-switches "-alh"
+        "Show All items, Listed out, with Human-readable sizes.")
     #+end_src
 
 *** Expand subtrees
@@ -1324,6 +1330,20 @@ This has to be done /before/ loading the package.  It's included in =visual-fill
       (add-hook 'dired-mode-hook #'dired-collapse-mode)
     #+end_src
 
+*** Kill dired buffers
+
+from [[https://github.com/munen/emacs.d/][munen]].
+
+#+BEGIN_SRC emacs-lisp
+  (defun kill-dired-buffers ()
+    "Kill all open dired buffers."
+    (interactive)
+    (mapc (lambda (buffer)
+            (when (eq 'dired-mode (buffer-local-value 'major-mode buffer))
+              (kill-buffer buffer)))
+          (buffer-list)))
+#+end_src
+
 ** Org mode
 
 I’ve put org mode under Applications, as opposed to Writing, because it’s  more generally-applicable than that.