dired: Add "touch -h" command

1 files changed, 9 insertions, 0 deletions

diff --git a/lisp/km-dired.el b/lisp/km-dired.el
index bbd38e6..148d376 100644
--- a/lisp/km-dired.el
+++ b/lisp/km-dired.el
@@ -20,6 +20,7 @@
 
 ;;; Code:
 
+(require 'dash)
 (require 'dired)
 (require 'org)
 (require 'km-util)
@@ -75,6 +76,14 @@
                                flag))
     (replace-match "" t nil nil 1)))
 
+;;;###autoload
+(defun km/dired-touch-deref (&optional arg)
+  "Run 'touch -h' on makred files (or next ARG)."
+  (interactive "p")
+  (setq arg (and current-prefix-arg arg))
+  (--when-let (dired-get-marked-files nil arg)
+    (apply #'call-process "touch" nil nil nil "-h" it)))
+
 
 ;;; Copying file names