311aefe6f9
- 新增 init-dired.el 基础配置 - 调整 corfu 初始化方式 - 修改 dashboard 显示设置和快捷键 - 更新键位绑定 - 调整 org-journal 格式 - 修复 scratch buffer 模式设置 - 更新主题颜色
57 lines
2.1 KiB
EmacsLisp
57 lines
2.1 KiB
EmacsLisp
;;; 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
|