From: rearman <rearman@r717.net>
Date: Wed, 31 Dec 2025 18:43:43 +0000 (-0500)
Subject: Split dired defuns out into their own file
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=b1c1a701d1bd5fa408d335947efeae413583e65b;p=emacsinit.git

Split dired defuns out into their own file

Add binding to open dired in new frame, move 'open-marked' to a defun instead
of a lambda.
---

diff --git a/init.el b/init.el
index cb54a2c..bcc6da9 100644
--- a/init.el
+++ b/init.el
@@ -23,7 +23,8 @@
 (add-hook 'after-init-hook
 	  (lambda ()
 	    (require 're-repl-defuns)
-	    (require 're-pass-alike)))
+	    (require 're-pass-alike)
+	    (require 're-dired-defuns)))
 
 (add-to-list 'auto-mode-alist '("\\.keymap\\'" . c-mode))
 (add-to-list 'auto-mode-alist '("\\.dtsi\\'" . c-mode))
@@ -99,10 +100,7 @@
 			  #'dired-find-alternate-file)
 	      (keymap-set dired-mode-map
 			  "F"
-			  #'(lambda ()
-			      (interactive)
-			      (mapc #'find-file
-				    (reverse (dired-get-marked-files)))))
+			  #'re/dired-find-marked-files)
 	      (keymap-set dired-mode-map
 			  "^"
 			  #'(lambda ()
diff --git a/re/re-bindings.el b/re/re-bindings.el
index 3851216..63c19cc 100644
--- a/re/re-bindings.el
+++ b/re/re-bindings.el
@@ -72,6 +72,7 @@
 (keymap-global-set "C-<right>" #'enlarge-window-horizontally)
 (keymap-global-set "C-c d" #'eldoc) ; force eldoc to show in minibuffer
 (keymap-global-set "C-c D" #'eldoc-doc-buffer) ; open eldoc buffer when it's getting spammed
+(keymap-global-set "C-x D" #'re/dired-new-frame)
 
 ;; Mouse
 (keymap-global-unset "M-<down-mouse-1>")
diff --git a/re/re-dired-defuns.el b/re/re-dired-defuns.el
new file mode 100644
index 0000000..548e57c
--- /dev/null
+++ b/re/re-dired-defuns.el
@@ -0,0 +1,20 @@
+;;; re-dired-defuns.el -*- lexical-binding: t; -*-
+;; This file is not part of GNU Emacs.
+
+;;; Code:
+
+(defun re/dired-new-frame ()
+  "Open dired in a new frame."
+  (interactive)
+  (re/open-with-new-frame "DIRED"
+			  #'(lambda ()
+			      (interactive)
+			      (dired default-directory))))
+
+(defun re/dired-find-marked-files ()
+  "Open all marked files from `dired'."
+  (interactive)
+  (mapc 'find-file (reverse (dired-get-marked-files))))
+
+(provide 're-dired-defuns)
+;;; re-dired-defuns.el ends here