TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add prefix argument to rename-current-buffer-file 

Best of both worlds. Maybe.
This commit is contained in:
Eivind Fonn 2017-05-23 10:55:25 +02:00
parent 7ecf1433ba
commit 8f7afe5eec
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
layers/+distributions/spacemacs-base/funcs.el
View File

@ -292,16 +292,20 @@ projectile cache when it's possible and update recentf list."
(message "File '%s' successfully renamed to '%s'" short-name (file-name-nondirectory new-name)))))))
;; from magnars
(defun spacemacs/rename-current-buffer-file ()
(defun spacemacs/rename-current-buffer-file (&optional arg)
"Rename the current buffer and the file it is visiting.
If the buffer isn't visiting a file, ask if it should
be saved to a file, or just renamed."
(interactive)
be saved to a file, or just renamed.
If called without a prefix argument, the prompt is
initialized with the current filename."
(interactive "P")
(let* ((name (buffer-name))
(filename (buffer-file-name)))
(if (and filename (file-exists-p filename))
;; the buffer is visiting a file
(let ((new-name (read-file-name "New name: " filename)))
(let* ((dir (file-name-directory filename))
(new-name (read-file-name "New name: " (if arg dir filename))))
(cond ((get-buffer new-name)
(error "A buffer named '%s' already exists!" new-name))
(t