|
|
@@ -2369,6 +2369,30 @@ ARG is num to show, or defaults to 7." |
|
|
|
) |
|
|
|
|
|
|
|
|
|
|
|
;; dired-k |
|
|
|
;; Current HEAD of original repo is broken |
|
|
|
;; https://github.com/syohex/emacs-dired-k/issues/45 |
|
|
|
(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))) |
|
|
|
|
|
|
|
;; 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)))) |
|
|
|
) |
|
|
|
|
|
|
|
|
|
|
|
;; (define-minor-mode my-dired-glob-filter) |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
@@ -2840,30 +2864,6 @@ Any output will be written to current buffer." |
|
|
|
(define-key esc-map (kbd "C-s") 'swiper)) |
|
|
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; dired-k |
|
|
|
;; Current HEAD of original repo is broken |
|
|
|
;; https://github.com/syohex/emacs-dired-k/issues/45 |
|
|
|
(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))) |
|
|
|
|
|
|
|
;; 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)))) |
|
|
|
) |
|
|
|
|
|
|
|
;; ? |
|
|
|
(define-key input-decode-map "\e[1;5C" [C-right]) |
|
|
|
(define-key input-decode-map "\e[1;5D" [C-left]) |
|
|
|