From 209965631c5e10c426d1b6319a69caa06fb48707 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 14 Mar 2016 00:31:33 -0400
Subject: dired: Add "touch -h" command

---
 lisp/km-dired.el | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lisp')

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
 
-- 
cgit v1.2.3