diff options
| -rw-r--r-- | init.el | 2 | ||||
| -rw-r--r-- | lisp/km-dired.el | 10 |
2 files changed, 12 insertions, 0 deletions
@@ -1301,6 +1301,8 @@ (define-key km/dired-copy-filename-map "w" #'dired-copy-filename-as-kill) + (define-key km/dired-prefix-map "t" #'km/dired-copy-last-mtime-as-kill) + (after 'dired (define-key dired-mode-map "N" #'km/dired-touch-deref) ;; This overrides the default binding for `dired-copy-filename-as-kill'. 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 |