refactor(config): Tidy Emacs config across modules

lisp/init-dired.el

@@ -18,36 +18,34 @@
 	dired-mouse-drag-files t
 	mouse-drag-and-drop-region-cross-program t
 	dired-compress-file-default-suffix ".zip"
-	dired-kill-when-opening-new-buffer t
-	dired-kill-when-opening-new-dired-buffer t)
+	dired-kill-when-opening-new-dired-buffer nil
+	dired-auto-revert-buffer t)
   (put 'dired-find-alternate-file 'disabled nil))
 
 ;; dirvish
 (use-package dirvish
-  :hook
-  (dired-mode-hook . denote-dired-mode)
+  :straight
+  '(dirvish :fork (:host github :repo "latiagertrutis/dirvish"))
   :init
   (dirvish-override-dired-mode)
-
   :config
   (require 'vc)
+
   (if *is-windows* (require 'fix-dirvish-preview))
 
   (if (or *is-mac* *is-android*)
       (setq dirvish-hide-details t)
     (setq dirvish-hide-details '(dirvish-side)))
-  (setq dirvish-use-mode-line t)
-
-  (unless *is-windows*
-    (setq dirvish-attributes '(file-time file-size)))
 
   (if *is-android*
       (setq dirvish-default-layout '(1 0.6))
     (setq dirvish-default-layout nil
 	  dirvish-layout-recipes '((1 0.15 0.45))))
 
-  (with-eval-after-load 'dirvish
-    (add-hook 'dired-mode-hook #'dired-hide-details-mode))
+  (setq dirvish-use-mode-line t
+	dirvish-mode-line-format '(:left (sort omit symlink) :right (free-space index))
+	dirvish-attributes '(file-time file-size)
+	dirvish-yank-sources 'session)
 
   :custom
   (dirvish-quick-access-entries
@@ -78,6 +76,7 @@
        ("v" "~/视频/"                     "Videos")
        ("n" "~/org/my-org-note/"          "Notes")
        ("g" "~/gptel/"                    "gptel sessions")))
+
     (*is-android*
      '(("h" "~/"                            "Home")
        ("e" "~/.emacs.d"                    "Emacs")