From 39593802108a475e795e51b1a28ba323b41d881c Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Fri, 25 Oct 2019 11:45:26 +0900
Subject: [PATCH] Disable dired-k temporarily

---
 emacs.el | 53 +++++++++++++++++++++++++++--------------------------
 1 file changed, 27 insertions(+), 26 deletions(-)

diff --git a/emacs.el b/emacs.el
index cff5118..16f5b5a 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2378,33 +2378,34 @@ 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?
-  (with-eval-after-load 'dired-k
-    (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)
-    )
+;; dired-k seems to always create index.lock file so disabling temporarily
+'(when (fboundp 'dired-k)
+   (set-variable 'dired-k-style 'git)
+   ;; What is the best way of doing this?
+   (with-eval-after-load 'dired-k
+     (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)
-  (add-hook 'dired-mode-hook
-            (lambda ()
-              (setq revert-buffer-function
-                    ;; TODO: Define function name
-                    (lambda (arg noconfirm)
-                      (dired-revert arg noconfirm)
-                      (dired-k-no-revert)))))
-  )
+   ;; 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)
+   (add-hook 'dired-mode-hook
+             (lambda ()
+               (setq revert-buffer-function
+                     ;; TODO: Define function name
+                     (lambda (arg noconfirm)
+                       (dired-revert arg noconfirm)
+                       (dired-k-no-revert)))))
+   )
 
 ;; Local Variables:
 ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)