Add a file for dired
This commit is contained in:
parent
b402889a8b
commit
dfa1db5edc
31
home-manager/software/emacs/emacs.d/lib/dired.el
Normal file
31
home-manager/software/emacs/emacs.d/lib/dired.el
Normal file
|
@ -0,0 +1,31 @@
|
||||||
|
(put 'dired-find-alternate-file 'disabled nil)
|
||||||
|
|
||||||
|
(setq-default dired-listing-switches "-alh")
|
||||||
|
|
||||||
|
;; keymap for dired
|
||||||
|
(global-set-key (kbd "C-c d") 'dired-jump)
|
||||||
|
|
||||||
|
(bind-keys :map dired-mode-map ("q" . az-kill-dired-buffers))
|
||||||
|
|
||||||
|
;;a function to kill all dired buffers
|
||||||
|
(defun az-kill-dired-buffers ()
|
||||||
|
(interactive)
|
||||||
|
(mapc (lambda (buffer)
|
||||||
|
(when (eq 'dired-mode (buffer-local-value 'major-mode buffer))
|
||||||
|
(kill-buffer buffer)))
|
||||||
|
(buffer-list)))
|
||||||
|
|
||||||
|
(use-package dired-hide-dotfiles
|
||||||
|
:ensure t
|
||||||
|
:init
|
||||||
|
(defun my-dired-mode-hook ()
|
||||||
|
"My `dired' mode hook."
|
||||||
|
;; To hide dot-files by default
|
||||||
|
(dired-hide-dotfiles-mode)
|
||||||
|
|
||||||
|
;; To toggle hiding
|
||||||
|
|
||||||
|
(add-hook 'dired-mode-hook #'my-dired-mode-hook))
|
||||||
|
:bind
|
||||||
|
(:map dired-mode-map
|
||||||
|
("." . dired-hide-dotfiles-mode)))
|
|
@ -98,36 +98,3 @@
|
||||||
(setq pcomplete-cycle-completions nil)))
|
(setq pcomplete-cycle-completions nil)))
|
||||||
|
|
||||||
(setq tramp-default-method "ssh")
|
(setq tramp-default-method "ssh")
|
||||||
|
|
||||||
|
|
||||||
(put 'dired-find-alternate-file 'disabled nil)
|
|
||||||
|
|
||||||
(setq-default dired-listing-switches "-alh")
|
|
||||||
|
|
||||||
;; keymap for dired
|
|
||||||
(global-set-key (kbd "C-c d") 'dired-jump)
|
|
||||||
|
|
||||||
(bind-keys :map dired-mode-map ("q" . az-kill-dired-buffers))
|
|
||||||
|
|
||||||
;;a function to kill all dired buffers
|
|
||||||
(defun az-kill-dired-buffers ()
|
|
||||||
(interactive)
|
|
||||||
(mapc (lambda (buffer)
|
|
||||||
(when (eq 'dired-mode (buffer-local-value 'major-mode buffer))
|
|
||||||
(kill-buffer buffer)))
|
|
||||||
(buffer-list)))
|
|
||||||
|
|
||||||
(use-package dired-hide-dotfiles
|
|
||||||
:ensure t
|
|
||||||
:init
|
|
||||||
(defun my-dired-mode-hook ()
|
|
||||||
"My `dired' mode hook."
|
|
||||||
;; To hide dot-files by default
|
|
||||||
(dired-hide-dotfiles-mode)
|
|
||||||
|
|
||||||
;; To toggle hiding
|
|
||||||
|
|
||||||
(add-hook 'dired-mode-hook #'my-dired-mode-hook))
|
|
||||||
:bind
|
|
||||||
(:map dired-mode-map
|
|
||||||
("." . dired-hide-dotfiles-mode)))
|
|
||||||
|
|
|
@ -31,6 +31,7 @@
|
||||||
|
|
||||||
;; various
|
;; various
|
||||||
(load-file (config-path "counsel.el"))
|
(load-file (config-path "counsel.el"))
|
||||||
|
(load-file (config-path "dired.el"))
|
||||||
(load-file (config-path "eyebrowse.el"))
|
(load-file (config-path "eyebrowse.el"))
|
||||||
(load-file (config-path "manuals.el"))
|
(load-file (config-path "manuals.el"))
|
||||||
(load-file (config-path "mu4e.el"))
|
(load-file (config-path "mu4e.el"))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user