Browse Source

Move dired-k config

master
10sr 4 years ago
parent
commit
334b96807b
Signed by: 10sr GPG Key ID: C384BB17CBB19347
1 changed files with 24 additions and 24 deletions
  1. +24
    -24
      emacs.el

+ 24
- 24
emacs.el View File

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


Loading…
Cancel
Save