Configure `dired' and add packages

1 files changed, 25 insertions, 0 deletions

@@ -320,6 +320,31 @@
 (acdw/hooks text-mode-hook goto-address-mode)
 (acdw/hooks prog-mode-hook goto-address-prog-mode)
 
+;;; Dired
+
+(acdw/set `((dired-recursive-copies always)
+            (dired-recursive-deletes always)
+            (delete-by-moving-to-trash t)
+            (dired-listing-switches "-Al")
+            (ls-lisp-dirs-first t)
+            (dired-dwim-target t)))
+
+(defun hook--dired-mode ()
+  (hl-line-mode +1)
+  (dired-hide-details-mode +1))
+(add-hook 'dired-mode-hook #'hook--dired-mode)
+
+(acdw/bind "C-x C-j" dired-jump :after "dired-x")
+
+(with-eval-after-load 'dired
+  ;; I tried `autoload'ing the keymap, and it just wouldn't work.  I have no
+  ;; idea what the issue was.
+  (acdw/pkg dired-subtree
+    :binds (("i" dired-subtree-toggle :map dired-mode-map))))
+
+(acdw/pkg dired-collapse
+  :hooks (dired-mode-hook dired-collapse-mode))
+
 ;;; Miscellaneous
 
 (acdw/set '((disabled-command-function nil)