diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2016-03-20 22:27:07 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2016-03-20 22:27:07 -0400 |
| commit | ecb95568a82da5dbe97be0aba3b45b56efd0b75f (patch) | |
| tree | 9a3dba3bb1f60df92aee30d700ec958d62b8416f /lisp | |
| parent | 8228c37d3e319d50de92270c4574142eee83da5d (diff) | |
| download | emacs.d-ecb95568a82da5dbe97be0aba3b45b56efd0b75f.tar.gz | |
Add dired-copy-last-mtime-as-kill command
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 |