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

PRAISE BE TO THE BYTE COMPILER FOR THY SHARP QUOTES

Browse source
This commit is contained in:
Henrik Lissner 2017-04-17 02:17:10 -04:00
parent ef88d30b73
commit 5ae94b765c
79 changed files with 798 additions and 795 deletions
Download patch file Download diff file Expand all files Collapse all files

16
modules/tools/dired/config.el
View file

@ -23,7 +23,7 @@
(fboundp 'dired-insert-set-properties)
(dired-insert-set-properties (point-min) (point-max)))
(set-buffer-modified-p nil))
(add-hook 'dired-after-readin-hook '+dired|sort-directories-first)
(add-hook 'dired-after-readin-hook #'+dired|sort-directories-first)
;; Automatically create missing directories when creating new files
(defun +dired|create-non-existent-directory ()
@ -31,14 +31,14 @@
(when (and (not (file-exists-p parent-directory))
(y-or-n-p (format "Directory `%s' does not exist! Create it?" parent-directory)))
(make-directory parent-directory t))))
(push '+dired|create-non-existent-directory find-file-not-found-functions)
(push #'+dired|create-non-existent-directory find-file-not-found-functions)
(after! evil
(add-transient-hook! 'dired-mode-hook
(map! :map dired-mode-map
:n "c" 'find-file
:n "d" 'dired-do-delete
:n "r" 'dired-do-rename)))
:n "c" #'find-file
:n "d" #'dired-do-delete
:n "r" #'dired-do-rename)))
;;
@ -54,13 +54,13 @@
"Butt out if the requested directory is remote (i.e. through tramp)."
(unless (file-remote-p default-directory)
(apply orig-fn args)))
(advice-add 'dired-k--highlight :around '+dired*dired-k-highlight)
(advice-add #'dired-k--highlight :around #'+dired*dired-k-highlight)
(add-hook 'dired-initial-position-hook 'dired-k)
(add-hook 'dired-initial-position-hook #'dired-k)
(add-hook 'dired-after-readin-hook #'dired-k-no-revert))
;; Striped dired buffers
(def-package! stripe-buffer
:commands stripe-buffer-mode
:init (add-hook 'dired-mode-hook 'stripe-buffer-mode))
:init (add-hook 'dired-mode-hook #'stripe-buffer-mode))