summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-dired.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/km-dired.el b/lisp/km-dired.el
index 148d376..69787d0 100644
--- a/lisp/km-dired.el
+++ b/lisp/km-dired.el
@@ -84,6 +84,16 @@
(--when-let (dired-get-marked-files nil arg)
(apply #'call-process "touch" nil nil nil "-h" it)))
+;;;###autoload
+(defun km/dired-copy-last-mtime-as-kill ()
+ "Copy last modification time for file at point."
+ (interactive)
+ (setq arg (and current-prefix-arg arg))
+ (--when-let (dired-get-filename nil 'noerror)
+ (kill-new (message "%s" (format-time-string
+ "%Y%m%d%H%M.%S"
+ (nth 5 (file-attributes it)))))))
+
;;; Copying file names