emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[dired] follow function naming conventions

Browse source
This commit is contained in:
Max Nickel 2019-10-27 17:47:20 -04:00
parent 9d55e75bd8
commit 49fce0b1c3
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/emacs/dired/autoload.el
View file

@ -9,12 +9,12 @@
;;;###autoload ;;;###autoload
(defun +dired/enable-git-info-h () (defun +dired-enable-git-info-h ()
(if (locate-dominating-file "." ".git") (if (locate-dominating-file "." ".git")
(dired-git-info-mode 1))) (dired-git-info-mode 1)))
;;;###autoload ;;;###autoload
(defun +dired/dotfiles-hide () (defun +dired-dotfiles-hide ()
(set (make-local-variable '+dired-dotfiles-show-p) nil) (set (make-local-variable '+dired-dotfiles-show-p) nil)
(dired-mark-files-regexp "^\\\.") (dired-mark-files-regexp "^\\\.")
(dired-do-kill-lines)) (dired-do-kill-lines))
@ -24,6 +24,6 @@
(interactive) (interactive)
(when (equal major-mode 'dired-mode) (when (equal major-mode 'dired-mode)
(if (or (not (boundp '+dired-dotfiles-show-p)) +dired-dotfiles-show-p) ; if currently showing (if (or (not (boundp '+dired-dotfiles-show-p)) +dired-dotfiles-show-p) ; if currently showing
(+dired/dotfiles-hide) (+dired-dotfiles-hide)
(progn (revert-buffer) ; otherwise just revert to re-show (progn (revert-buffer) ; otherwise just revert to re-show
(set (make-local-variable '+dired-dotfiles-show-p) t))))) (set (make-local-variable '+dired-dotfiles-show-p) t)))))

4
modules/emacs/dired/config.el
View file

@ -48,7 +48,7 @@ only variant that supports --group-directories-first."
;; hide details by default ;; hide details by default
(add-hook 'dired-mode-hook 'dired-hide-details-mode) (add-hook 'dired-mode-hook 'dired-hide-details-mode)
;; hide dotfiles by default ;; hide dotfiles by default
(add-hook 'dired-after-readin-hook '+dired/dotfiles-hide) (add-hook 'dired-after-readin-hook '+dired-dotfiles-hide)
;; Don't complain about this command being disabled when we use it ;; Don't complain about this command being disabled when we use it
(put 'dired-find-alternate-file 'disabled nil) (put 'dired-find-alternate-file 'disabled nil)
@ -180,4 +180,4 @@ we have to clean it up ourselves."
:after dired :after dired
:init :init
(progn (progn
(add-hook 'dired-after-readin-hook '+dired/enable-git-info-h))) (add-hook 'dired-after-readin-hook '+dired-enable-git-info-h)))