diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/km-files.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/km-files.el b/lisp/km-files.el index 762afe5..5ec4a06 100644 --- a/lisp/km-files.el +++ b/lisp/km-files.el @@ -99,6 +99,14 @@ Use the current file name as initial input of prompt." (defun km/read-recent-file () (completing-read "Choose recent file: " recentf-list nil t)) +;;;###autoload +(defun km/find-file-with-denote-naming (file) + (interactive "F") + (find-file + (concat (file-name-directory file) + (format-time-string "%Y%m%dT%H%M%S--") + (file-name-nondirectory file)))) + ;;; Scratch files |