diff options
Diffstat (limited to 'lisp/km-dired.el')
| -rw-r--r-- | lisp/km-dired.el | 9 |
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 |