about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el39
1 files changed, 19 insertions, 20 deletions
diff --git a/init.el b/init.el index 75228cc..d8570c4 100644 --- a/init.el +++ b/init.el
@@ -253,10 +253,7 @@
253 253
254(setup dired 254(setup dired
255 (:also-load dired-x) 255 (:also-load dired-x)
256 (:also-straight dired-subtree 256 (:also-straight dired+)
257 dired-collapse
258 dired-git-info
259 dired+)
260 (:option dired-recursive-copies 'always 257 (:option dired-recursive-copies 'always
261 dired-recursive-deletes 'always 258 dired-recursive-deletes 'always
262 dired-create-destination-dirs 'always 259 dired-create-destination-dirs 'always
@@ -265,7 +262,7 @@
265 dired-isearch-filenames 'dwim 262 dired-isearch-filenames 'dwim
266 delete-by-moving-to-trash t 263 delete-by-moving-to-trash t
267 dired-auto-revert-buffer t 264 dired-auto-revert-buffer t
268 dired-listing-switches "-Al" 265 dired-listing-switches "-AlF"
269 ls-lisp-dirs-first t 266 ls-lisp-dirs-first t
270 dired-ls-F-marks-symlinks t 267 dired-ls-F-marks-symlinks t
271 dired-clean-confirm-killing-deleted-buffers nil 268 dired-clean-confirm-killing-deleted-buffers nil
@@ -275,27 +272,29 @@
275 shell touch) 272 shell touch)
276 dired-dwim-target t) 273 dired-dwim-target t)
277 (:local-set truncate-lines t) 274 (:local-set truncate-lines t)
278 (:bind "<backspace>" #'dired-up-directory 275 (:bind "<backspace>" #'dired-up-directory)
279 "TAB" #'dired-subtree-cycle 276 (:hook #'dired-hide-details-mode
280 "i" #'dired-subtree-toggle 277 #'hl-line-mode
281 ")" #'dired-git-info-mode) 278 #'lin-mode)
282 (:hook #'dired-collapse-mode
283 #'dired-hide-details-mode
284 #'hl-line-mode)
285 (:+key "C-x C-j" #'dired-jump) 279 (:+key "C-x C-j" #'dired-jump)
286 (dolist (refresh-after-func '(dired-do-flagged-delete)) 280 (dolist (refresh-after-func '(dired-do-flagged-delete))
287 (advice-add refresh-after-func :after #'revert-buffer)) 281 (advice-add refresh-after-func :after #'revert-buffer))
288 (with-eval-after-load 'dired
289 (cl-case system-type
290 ((windows-nt ms-dos)
291 (:straight w32-browser))
292 (gnu/linux
293 (:straight dired-open)
294 (:option dired-listing-switches
295 (concat dired-listing-switches " -F")))))
296 (with-eval-after-load 'frowny 282 (with-eval-after-load 'frowny
297 (add-to-list 'frowny-inhibit-modes #'dired-mode))) 283 (add-to-list 'frowny-inhibit-modes #'dired-mode)))
298 284
285(setup ehelp
286 ;; Trying this instead of `helpful'
287 (:global [help] 'ehelp-command
288 [f1] 'ehelp-command)
289 (with-eval-after-load 'vertico-multiform
290 (dolist (cmd '(electric-describe-key
291 electric-describe-mode
292 electric-describe-syntax
293 electric-describe-bindings
294 electric-describe-function
295 electric-describe-variable))
296 (setf (alist-get cmd vertico-multiform-commands) nil))))
297
299(setup eldoc 298(setup eldoc
300 (:hook-into elisp-mode 299 (:hook-into elisp-mode
301 lisp-interaction-mode)) 300 lisp-interaction-mode))