"Package-ize" dired

1 files changed, 16 insertions, 19 deletions

@@ -367,29 +367,26 @@ indicator in the mode-line."
              (prog-mode-hook goto-address-prog-mode)))
 
 ;;; Dired
-
-(acdw/set `((dired-recursive-copies always)
+(acdw/pkg dired
+  :local t
+  :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)))
+         (dired-dwim-target t))
+  :now ((autoload 'dired-mode-map "dired" nil nil 'keymap)
+        (acdw/pkg dired-subtree)
+        (acdw/pkg dired-x
+          :local t
+          :binds (("C-x C-j" dired-jump)))
+        (acdw/pkg dired-collapse
+          :hooks ((dired-mode-hook dired-collapse-mode)))
+        (defun hook--dired-mode ()
+          (hl-line-mode +1)
+          (dired-hide-details-mode +1)))
+  :hooks ((dired-mode-hook hook--dired-mode))
+  :binds (("i" dired-subtree-toggle :map dired-mode-map)))
 
 ;;; Eshell