2019-10-27 01:39:52 +08:00
|
|
|
;;; emacs/dired/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun +dired/quit-all ()
|
|
|
|
|
"Kill all `dired-mode' buffers."
|
|
|
|
|
(interactive)
|
|
|
|
|
(mapc #'kill-buffer (doom-buffers-in-mode 'dired-mode))
|
|
|
|
|
(message "Killed all dired buffers"))
|
2019-10-28 05:32:52 +08:00
|
|
|
|
|
|
|
|
|
2019-10-28 05:31:53 +08:00
|
|
|
;;;###autoload
|
2019-10-28 05:47:20 +08:00
|
|
|
(defun +dired-enable-git-info-h ()
|
2019-10-28 05:31:53 +08:00
|
|
|
(if (locate-dominating-file "." ".git")
|
|
|
|
|
(dired-git-info-mode 1)))
|
2019-10-28 05:32:52 +08:00
|
|
|
|
|
|
|
|
;;;###autoload
|
2019-10-28 05:47:20 +08:00
|
|
|
(defun +dired-dotfiles-hide ()
|
2019-10-28 05:32:52 +08:00
|
|
|
(set (make-local-variable '+dired-dotfiles-show-p) nil)
|
|
|
|
|
(dired-mark-files-regexp "^\\\.")
|
|
|
|
|
(dired-do-kill-lines))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun +dired/dotfiles-toggle ()
|
|
|
|
|
(interactive)
|
|
|
|
|
(when (equal major-mode 'dired-mode)
|
|
|
|
|
(if (or (not (boundp '+dired-dotfiles-show-p)) +dired-dotfiles-show-p) ; if currently showing
|
2019-10-28 05:47:20 +08:00
|
|
|
(+dired-dotfiles-hide)
|
2019-10-28 05:32:52 +08:00
|
|
|
(progn (revert-buffer) ; otherwise just revert to re-show
|
|
|
|
|
(set (make-local-variable '+dired-dotfiles-show-p) t)))))
|
