Config: optimize dired and theme, add workspace config

lisp/init-dired.el

@@ -4,6 +4,8 @@
 
 ;;; Code:
 
+(setq dired-dwim-target t)
+
 (with-eval-after-load 'dirvish
   (define-key dirvish-mode-map (kbd "<down>")
               (lambda () (interactive) (forward-line 1) (dired-move-to-filename)))
@@ -26,8 +28,13 @@
   :init
   (dirvish-override-dired-mode)
   :config
-  (setq dirvish-hide-details nil)
+  (if *is-mac*
+      (setq dirvish-hide-details t)
+    (setq dirvish-hide-details '(dirvish-side)))
   (setq dirvish-use-mode-line 'global)
+  (unless *is-windows*
+    (setq dirvish-attributes '(file-time file-size)))
+  (setq dirvish-default-layout '(1 0.15 0.45))
   :custom
   (dirvish-quick-access-entries
    (when *is-windows*
@@ -35,32 +42,27 @@
        ("e" "~/.emacs.d/")
        ("p" "c:/Users/gaozh/Pictures/Screenshots/" "Pictures")
        ("d" "f:/下载25-2-10/" "Download")
-       ("v" "f:/luping26-1-11/" "Videos")))))
+       ("v" "f:/luping26-1-11/" "Videos"))))
+  (dirvish-quick-access-entries
+   (when *is-mac*
+     '(("h" "~/"                          "Home")
+       ("e" "~/.emacs.d/")
+       ("p" "~/Pictures/" "Pictures")
+       ("d" "~/Downloads/" "Download")
+       ("v" "~/Movies/" "Videos")))))
+
+(use-package trashed
+  :commands (trashed)
+  :config
+  (setq trashed-action-confirmer 'y-or-n-p)
+  (setq trashed-use-header-line t)
+  (setq trashed-sort-key '("Date deleted" . t))
+  (setq trashed-date-format "%Y-%m-%d %H:%M:%S"))
 
 (setq dired-listing-switches
       "-l --almost-all --human-readable --group-directories-first --no-group")
 (put 'dired-find-alternate-file 'disabled nil)
 
-(with-eval-after-load 'dirvish
-  (global-set-key (kbd "C-c d a") 'dirvish-quick-access)
-  (global-set-key (kbd "C-c d s") 'dirvish-side)
-  (global-set-key (kbd "C-c d h") 'dirvish-history-menu)
-  (global-set-key (kbd "C-x d") 'dired-jump)
-  (global-set-key (kbd "C-x C-j") 'dired)
-  (define-key dired-mode-map (kbd "h") 'dirvish-history-menu)
-  (define-key dired-mode-map (kbd "M-,") 'scroll-other-window-down)
-  (define-key dired-mode-map (kbd "M-.") 'scroll-other-window))
-
-(with-eval-after-load 'dirvish
-  (global-set-key (kbd "C-c d a") 'dirvish-quick-access)
-  (global-set-key (kbd "C-c d s") 'dirvish-side)
-  (global-set-key (kbd "C-c d h") 'dirvish-history-menu)
-  (global-set-key (kbd "C-x d") 'dired-jump)
-  (global-set-key (kbd "C-x C-j") 'dired)
-  (define-key dired-mode-map (kbd "h") 'dirvish-history-menu)
-  (define-key dired-mode-map (kbd "M-,") 'scroll-other-window-down)
-  (define-key dired-mode-map (kbd "M-.") 'scroll-other-window))
-
 ;; Fix video-mtn preview issue on Windows
 ;; The problem: mtn generates thumbnails with filename like "video.mp4.jpg",
 ;; but dirvish expects MD5-based filename like "a1b2c3d4.jpg"