emacs/dired: add diredfl & refactor
- Adds C-c C-e for invoking wdired - Adds diredfl for more colors in dired (and disables dired-k's coloring based on mtime, which was confusing)
This commit is contained in:
parent
9561331d05
commit
57697efb62
2 changed files with 18 additions and 4 deletions
|
@ -7,8 +7,6 @@
|
||||||
dired-recursive-copies 'always
|
dired-recursive-copies 'always
|
||||||
dired-recursive-deletes 'top
|
dired-recursive-deletes 'top
|
||||||
;; Auto refresh dired, but be quiet about it
|
;; Auto refresh dired, but be quiet about it
|
||||||
global-auto-revert-non-file-buffers t
|
|
||||||
auto-revert-verbose nil
|
|
||||||
dired-hide-details-hide-symlink-targets nil
|
dired-hide-details-hide-symlink-targets nil
|
||||||
;; files
|
;; files
|
||||||
image-dired-dir (concat doom-cache-dir "image-dired/")
|
image-dired-dir (concat doom-cache-dir "image-dired/")
|
||||||
|
@ -28,8 +26,16 @@
|
||||||
(setq args (delete "--group-directories-first" args))))
|
(setq args (delete "--group-directories-first" args))))
|
||||||
(setq dired-listing-switches (string-join args " ")))
|
(setq dired-listing-switches (string-join args " ")))
|
||||||
|
|
||||||
;; Kill buffer when quitting dired buffers
|
(define-key! dired-mode-map
|
||||||
(define-key dired-mode-map [remap quit-window] (λ! (quit-window t))))
|
;; Kill buffer when quitting dired buffers
|
||||||
|
[remap quit-window] (λ! (quit-window t))
|
||||||
|
;; To be consistent with ivy/helm+wgrep integration
|
||||||
|
"C-c C-e" #'wdired-change-to-wdired-mode))
|
||||||
|
|
||||||
|
|
||||||
|
(def-package! diredfl
|
||||||
|
:unless (featurep! +ranger)
|
||||||
|
:hook (dired-mode . diredfl-mode))
|
||||||
|
|
||||||
|
|
||||||
(def-package! dired-k
|
(def-package! dired-k
|
||||||
|
@ -37,6 +43,13 @@
|
||||||
:hook (dired-initial-position . dired-k)
|
:hook (dired-initial-position . dired-k)
|
||||||
:hook (dired-after-readin . dired-k-no-revert)
|
:hook (dired-after-readin . dired-k-no-revert)
|
||||||
:config
|
:config
|
||||||
|
(setq dired-k-style 'git
|
||||||
|
dired-k-padding 1)
|
||||||
|
|
||||||
|
;; Don't highlight based on mtime, this interferes with diredfl and is more
|
||||||
|
;; confusing than helpful.
|
||||||
|
(advice-add #'dired-k--highlight-by-file-attribyte :override #'ignore)
|
||||||
|
|
||||||
(defun +dired*interrupt-process (orig-fn &rest args)
|
(defun +dired*interrupt-process (orig-fn &rest args)
|
||||||
"Fixes dired-k killing git processes too abruptly, leaving behind disruptive
|
"Fixes dired-k killing git processes too abruptly, leaving behind disruptive
|
||||||
.git/index.lock files."
|
.git/index.lock files."
|
||||||
|
|
|
@ -1,6 +1,7 @@
|
||||||
;; -*- no-byte-compile: t; -*-
|
;; -*- no-byte-compile: t; -*-
|
||||||
;;; emacs/dired/packages.el
|
;;; emacs/dired/packages.el
|
||||||
|
|
||||||
|
(package! diredfl)
|
||||||
(package! dired-k)
|
(package! dired-k)
|
||||||
(when (featurep! +ranger)
|
(when (featurep! +ranger)
|
||||||
(package! ranger))
|
(package! ranger))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue