添加 dirvish 配置和其他调整

- 新增 init-dired.el 基础配置
- 调整 corfu 初始化方式
- 修改 dashboard 显示设置和快捷键
- 更新键位绑定
- 调整 org-journal 格式
- 修复 scratch buffer 模式设置
- 更新主题颜色

lisp/init-dired.el

@@ -0,0 +1,56 @@
+;;; init-dired.el --- dired & dirvish -*-lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
+
+(with-eval-after-load 'dirvish
+  (define-key dirvish-mode-map (kbd "<down>")
+              (lambda () (interactive) (forward-line 1) (dired-move-to-filename)))
+  (define-key dirvish-mode-map (kbd "C-n")
+              (lambda () (interactive) (forward-line 1) (dired-move-to-filename)))
+  (define-key dirvish-mode-map (kbd "n")
+              (lambda () (interactive) (forward-line 1) (dired-move-to-filename)))
+  (define-key dirvish-mode-map (kbd "b") 'dired-up-directory)
+  (define-key dirvish-mode-map (kbd "C-b") 'dired-up-directory)
+  (define-key dirvish-mode-map (kbd "<left>") 'dired-up-directory)
+  (define-key dirvish-mode-map (kbd "<right>") 'dired-find-file)
+  (define-key dirvish-mode-map (kbd "C-f") 'dired-find-file)
+  (define-key dirvish-mode-map (kbd "<SPC>") 'dirvish-layout-toggle))
+
+(with-eval-after-load 'dirvish
+  (add-hook 'dired-mode-hook #'dired-hide-details-mode))
+
+;; dirvish
+(use-package dirvish
+  :init
+  (dirvish-override-dired-mode)
+  :config
+  (setq dirvish-hide-details nil)
+  (setq dirvish-use-mode-line 'global)
+  :custom
+  (dirvish-quick-access-entries
+   (when *is-windows*
+     '(("h" "~/"                          "Home")
+       ("e" "~/.emacs.d/")
+       ("p" "c:/Users/gaozh/Pictures/Screenshots/" "Pictures")
+       ("d" "f:/下载25-2-10/" "Download")
+       ("v" "f:/luping26-1-11/" "Videos")))))
+
+(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))
+
+(provide 'init-dired)
+
+;;; init-dired.el ends here