|
|
|
@@ -2399,14 +2399,21 @@ ARG is num to show, or defaults to 7." |
|
|
|
;; (set-variable 'dired-k-date-colors |
|
|
|
;; `((,most-positive-fixnum))) |
|
|
|
|
|
|
|
;; always execute dired-k when dired buffer is opened and reverted |
|
|
|
(add-hook 'dired-after-readin-hook #'dired-k-no-revert) |
|
|
|
|
|
|
|
(add-hook 'switch-buffer-functions |
|
|
|
(lambda (prev cur) |
|
|
|
(when (derived-mode-p 'dired-mode) |
|
|
|
(dired-k-no-revert)))) |
|
|
|
) |
|
|
|
(let* ((pkg (cadr (assq 'dired-k |
|
|
|
package-alist))) |
|
|
|
(version-str (package-version-join (package-desc-version pkg)))) |
|
|
|
;; Currently dired-k HEAD of original repository is broken so do not use that |
|
|
|
(when (string= version-str |
|
|
|
"20171017.1228") |
|
|
|
|
|
|
|
;; always execute dired-k when dired buffer is opened and reverted |
|
|
|
(add-hook 'dired-after-readin-hook #'dired-k-no-revert) |
|
|
|
|
|
|
|
(add-hook 'switch-buffer-functions |
|
|
|
(lambda (prev cur) |
|
|
|
(when (derived-mode-p 'dired-mode) |
|
|
|
(dired-k-no-revert)))) |
|
|
|
))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
