awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

emacs/dired: disable dired-git-info-mode in wdired-mode

Browse Source 
And refactor ranger/dired keybind for dired-git-info-mode (#2106).
This commit is contained in:
Henrik Lissner
2019-11-23 01:26:17 -05:00
parent 44e22b7f80
commit 5608ba7236
1 changed files with 17 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
modules/emacs/dired/config.el
View File

@ -182,8 +182,20 @@ we have to clean it up ourselves."
:init :init
(add-hook 'dired-after-readin-hook '+dired-enable-git-info-h) (add-hook 'dired-after-readin-hook '+dired-enable-git-info-h)
:config :config
(if (featurep! +ranger) (map! :map (dired-mode-map ranger-mode-map)
(map! :map ranger-mode-map
:ng ")" #'dired-git-info-mode) :ng ")" #'dired-git-info-mode)
(map! :map dired-mode-map (after! wdired
:ng ")" #'dired-git-info-mode))) ;; Temporarily disable `dired-git-info-mode' when entering wdired, due to
;; reported incompatibilities.
(defvar +dired--git-info-p nil)
(defadvice! +dired--disable-git-info-a (&rest _)
:before #'wdired-change-to-wdired-mode
(setq +dired--git-info-p dired-git-info-mode)
(when +dired--git-info-p
(dired-git-info-mode -1)))
(defadvice! +dired--reactivate-git-info-a (&rest _)
:after '(wdired-exit
wdired-abort-changes
wdired-finish-edit)
(when +dired--git-info-p
(dired-git-info-mode +1)))))