summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-dired.el9
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