From bfd9abf2ce3bf6f3791cd4174545914d0e7b9a17 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Thu, 24 Oct 2019 15:04:16 +0900
Subject: [PATCH] Add dired-k configs

---
 emacs.el | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/emacs.el b/emacs.el
index 8051832..4609615 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2377,6 +2377,25 @@ Any output will be written to current buffer."
   (define-key esc-map (kbd "C-s") 'swoop-multi)
   )
 
+(when (fboundp 'dired-k)
+  (set-variable 'dired-k-style 'git)
+  ;; What is the best way of doing this?
+  (fset 'dired-k--highlight-by-file-attribyte 'ignore)
+  ;; (set-variable 'dired-k-size-colors
+  ;;               `((,most-positive-fixnum)))
+  ;; (set-variable 'dired-k-date-colors
+  ;;               `((,most-positive-fixnum)))
+
+  (with-eval-after-load 'dired
+    ;; You can use dired-k alternative to revert-buffer
+    (defvar dired-mode-map)
+    (define-key dired-mode-map (kbd "g") 'dired-k))
+
+  ;; always execute dired-k when dired buffer is opened
+  (add-hook 'dired-initial-position-hook 'dired-k)
+  (add-hook 'dired-after-readin-hook #'dired-k-no-revert)
+  )
+
 ;; Local Variables:
 ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
 ;; flycheck-checker: emacs-lisp