From 6d4461fc3264d6a730d32f1f8a5b58f78769a840 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sat, 13 Jun 2026 13:51:56 -0500
Subject: fix(dwim-shell): valid zip name, real backup timestamp, reachable
 menu key

Three audit fixes. Single-file zip named the archive after the input file (<<fne>>.<<e>>), making invalid archives and a "foo." name for directories. It now builds <fne>.zip. The dated backup single-quoted $(date ...), so the stamp sat literal in the filename. Now the timestamp is interpolated in Elisp with format-time-string. The dired menu used "M-S-d", which Meta-Shift-d never emits (it sends M-D), so the menu was unreachable in plain dired. It now binds M-D, matching the dirvish sibling. Both command strings moved to top-level builders so they're unit-testable without loading the dwim-shell-command package.
---
 modules/dirvish-config.el    |  2 +-
 modules/dwim-shell-config.el | 20 ++++++++++++++++----
 2 files changed, 17 insertions(+), 5 deletions(-)

(limited to 'modules')

diff --git a/modules/dirvish-config.el b/modules/dirvish-config.el
index 29ba2eba..79d6ff41 100644
--- a/modules/dirvish-config.el
+++ b/modules/dirvish-config.el
@@ -27,7 +27,7 @@
 ;; - p: Copy absolute file path
 ;; - P: Print the file at point via CUPS
 ;; - S: Study — start an org-drill session on the .org file at point
-;; - M-S-d (Meta-Shift-d): DWIM shell commands menu
+;; - M-D (Meta-Shift-d): DWIM shell commands menu
 ;; - TAB: Toggle subtree expansion
 ;; - F11: Toggle sidebar view
 
diff --git a/modules/dwim-shell-config.el b/modules/dwim-shell-config.el
index 655c8d85..ad17ea91 100644
--- a/modules/dwim-shell-config.el
+++ b/modules/dwim-shell-config.el
@@ -198,6 +198,18 @@ file list."
              (replace-regexp-in-string "'" "'\\\\''" (expand-file-name f))))
    files "\n"))
 
+(defun cj/dwim-shell--zip-single-file-command ()
+  "Return the zip command template for a single marked file.
+The archive is named =<fne>.zip=, not a reconstruction of the input filename
+\(which produced invalid archives, and a `foo.' name for a directory)."
+  "zip -r '<<fne>>.zip' '<<f>>'")
+
+(defun cj/dwim-shell--dated-backup-command ()
+  "Return the cp command template for a timestamped backup of marked file(s).
+The timestamp is interpolated here with `format-time-string' so it can't sit
+dead inside the shell's single quotes the way a literal =$(date ...)= did."
+  (format "cp -p '<<f>>' '<<f>>.%s.bak'" (format-time-string "%Y%m%d_%H%M%S")))
+
 ;; ----------------------------- Dwim Shell Command ----------------------------
 
 (use-package dwim-shell-command
@@ -337,7 +349,7 @@ Otherwise, unzip it to an appropriately named subdirectory "
 	(interactive)
 	(dwim-shell-command-on-marked-files
 	 "Zip" (if (eq 1 (seq-length (dwim-shell-command--files)))
-			   "zip -r '<<fne>>.<<e>>' '<<f>>'"
+			   (cj/dwim-shell--zip-single-file-command)
 			 "zip -r '<<archive.zip(u)>>' '<<*>>'")
 	 :utils "zip"))
 
@@ -547,8 +559,8 @@ clipboard contents cannot inject shell commands."
 	(interactive)
 	(dwim-shell-command-on-marked-files
 	 "Backup with date"
-	 "cp -p '<<f>>' '<<f>>.$(date +%Y%m%d_%H%M%S).bak'"
-	 :utils '("cp" "date")))
+	 (cj/dwim-shell--dated-backup-command)
+	 :utils '("cp")))
 
   (defun cj/dwim-shell-commands-optimize-image-for-web ()
 	"Optimize image(s) for web (reduce file size)."
@@ -930,7 +942,7 @@ gpg: decryption failed: No pinentry"
 
   ;; Bind menu to keymaps after function is defined
   (with-eval-after-load 'dired
-    (keymap-set dired-mode-map "M-S-d" #'dwim-shell-commands-menu))  ;; was M-D, overrides kill-word
+    (keymap-set dired-mode-map "M-D" #'dwim-shell-commands-menu))  ;; Meta-Shift-d; matches the dirvish binding below
   (with-eval-after-load 'dirvish
     (keymap-set dirvish-mode-map "M-D" #'dwim-shell-commands-menu)))
 
-- 
cgit v1.2.3