;;; 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