feat(dired): add +dired-here

abougouffa · May 18, 2024 · 3ebe16e · 3ebe16e
1 parent d018dbc
commit 3ebe16e
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/core/me-builtin.el b/core/me-builtin.el
@@ -278,7 +278,12 @@ or file path may exist now."
   :hook (dired-mode . turn-on-gnus-dired-mode)
   :custom
   (dired-dwim-target t)
-  (dired-auto-revert-buffer t))
+  (dired-auto-revert-buffer t)
+  :init
+  (defun +dired-here (&optional switches)
+    "Run `dired' in DIR or in the current directory."
+    (interactive (list (when current-prefix-arg (read-string "Dired listing switches: " dired-listing-switches))))
+    (dired default-directory switches)))
 
 (use-package doc-view
   :custom