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