From 56c3ee88fb13d9aa2d60e84892039131a42531bc Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 18 Mar 2022 21:32:52 +0000
Subject: dired clean-ups

---
 init.org | 50 +++++++++++++++++++++++++-------------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/init.org b/init.org
index a0200c0..b0c1148 100644
--- a/init.org
+++ b/init.org
@@ -912,35 +912,35 @@
 *** dired
     - [[https://www.masteringemacs.org/article/working-multiple-files-dired][Working with multiple files in dired - Mastering Emacs]]
     #+begin_src emacs-lisp
-      (require 'dired)
-      (require 'dired-x nil t)
-      (put 'dired-find-alternate-file 'disabled nil)
-
-      (setq dired-recursive-deletes 'top)
-      (setq dired-recursive-copies 'top)
-      (setq dired-listing-switches "-alhF --group-directories-first")
-      (setq dired-free-space-args "-Ph")
-      (setq ls-lisp-dirs-first t)
-      (setq dired-dwim-target t)
-      (setq wdired-create-parent-directories t)
-      (setq dired-kill-when-opening-new-dired-buffer t)
+      (use-package dired
+        :init
+        (setq dired-recursive-deletes 'top
+              dired-recursive-copies 'top
+              dired-listing-switches "-alhF --group-directories-first"
+              dired-free-space-args "-Ph"
+              ls-lisp-dirs-first t
+              dired-dwim-target t
+              dired-kill-when-opening-new-dired-buffer t
+              dired-mouse-drag-files t
+              wdired-create-parent-directories t)
+
+        (put 'dired-find-alternate-file 'disabled nil)
+        :hook (dired-mode . turn-on-gnus-dired-mode)
+        :bind (:map dired-mode-map
+                    ("C-c C-r" . wdired-change-to-wdired-mode)
+                    ("C-M-m" . gnus-dired-attach)))
+
+      (use-package dired-x :demand t)
 
       (use-package find-dired
-        :init
-        (setq find-ls-option '("-print0 | xargs -0 ls -ld" . "-ld")))
+        :init (setq find-ls-option '("-print0 | xargs -0 ls -ld" . "-ld"))
+        :bind ("C-c D" . find-name-dired))
 
-      (add-hook 'dired-mode-hook #'turn-on-gnus-dired-mode)
-      (define-key dired-mode-map [(control meta ?m)] #'gnus-dired-attach)
-      (define-key dired-mode-map (kbd "C-c C-r") #'wdired-change-to-wdired-mode)
-      (global-set-key (kbd "C-c D") #'find-name-dired)
+      (use-package dired-git-info
+        :ensure t
+        :bind (:map dired-mode-map (")" . dired-git-info-mode)))
 
-    #+END_SRC
-***** Dired packages
-      #+BEGIN_SRC emacs-lisp
-        (use-package dired-git-info
-          :ensure t
-          :bind (:map dired-mode-map (")" . dired-git-info-mode)))
-      #+END_SRC
+      #+end_src
 * General editing
 *** Executable scripts
     #+begin_src emacs-lisp
-- 
cgit v1.2.3