Browse Source

Disable dired-k temporarily

master
10sr 5 years ago
parent
commit
3959380210
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 27 additions and 26 deletions
  1. +27
    -26
      emacs.el

+ 27
- 26
emacs.el View File

@@ -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)


Loading…
Cancel
Save