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

rename-current-buffer-file: non-file bfr sav or ren

Browse source 
problem:  renaming a non-file buffer, only shows an error message
solution: ask if the buffer should be saved to a file or just renamed
This commit is contained in:
duianto 2017-04-14 19:39:14 +02:00 committed by syl20bnr
parent 15873375dd
commit 122076407b
1 changed files with 52 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

73
layers/+distributions/spacemacs-base/funcs.el
View file

@ -293,31 +293,62 @@ projectile cache when it's possible and update recentf list."
;; from magnars ;; from magnars
(defun spacemacs/rename-current-buffer-file () (defun spacemacs/rename-current-buffer-file ()
"Renames current buffer and file it is visiting." "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) (interactive)
(let* ((name (buffer-name)) (let* ((name (buffer-name))
(filename (buffer-file-name))) (filename (buffer-file-name)))
(if (not (and filename (file-exists-p filename))) (if (and filename (file-exists-p filename))
(error "Buffer '%s' is not visiting a file!" name) ;; the buffer is visiting a file
(let* ((dir (file-name-directory filename)) (let* ((dir (file-name-directory filename))
(new-name (read-file-name "New name: " dir))) (new-name (read-file-name "New name: " dir)))
(cond ((get-buffer new-name) (cond ((get-buffer new-name)
(error "A buffer named '%s' already exists!" new-name)) (error "A buffer named '%s' already exists!" new-name))
(t (t
(let ((dir (file-name-directory new-name))) (let ((dir (file-name-directory new-name)))
(when (and (not (file-exists-p dir)) (yes-or-no-p (format "Create directory '%s'?" dir))) (when (and (not (file-exists-p dir))
(make-directory dir t))) (yes-or-no-p
(rename-file filename new-name 1) (format "Create directory '%s'?" dir)))
(rename-buffer new-name) (make-directory dir t)))
(set-visited-file-name new-name) (rename-file filename new-name 1)
(set-buffer-modified-p nil) (rename-buffer new-name)
(when (fboundp 'recentf-add-file) (set-visited-file-name new-name)
(set-buffer-modified-p nil)
(when (fboundp 'recentf-add-file)
(recentf-add-file new-name) (recentf-add-file new-name)
(recentf-remove-if-non-kept filename)) (recentf-remove-if-non-kept filename))
(when (and (configuration-layer/package-usedp 'projectile) (when (and (configuration-layer/package-usedp 'projectile)
(projectile-project-p)) (projectile-project-p))
(call-interactively #'projectile-invalidate-cache)) (call-interactively #'projectile-invalidate-cache))
(message "File '%s' successfully renamed to '%s'" name (file-name-nondirectory new-name)))))))) (message "File '%s' successfully renamed to '%s'"
name (file-name-nondirectory new-name)))))
;; the buffer is not visiting a file
(let ((key))
(while (not (memq key '(?s ?r)))
(setq key (read-key (propertize
(format
(concat "Buffer '%s' is not visiting a file: "
"[s]ave to file or [r]ename buffer?")
name) 'face 'minibuffer-prompt)))
(cond ((eq key ?s) ; save to file
;; this allows for saving a new empty (unmodified) buffer
(unless (buffer-modified-p) (set-buffer-modified-p t))
(save-buffer))
((eq key ?r) ; rename buffer
(let ((new-name (read-string "New buffer name: ")))
(while (get-buffer new-name)
;; ask to rename again, if the new buffer name exists
(if (yes-or-no-p
(format (concat "A buffer named '%s' already exists: "
"Rename again?") new-name))
(setq new-name (read-string "New buffer name: "))
(keyboard-quit)))
(rename-buffer new-name)
(message "Buffer '%s' successfully renamed to '%s'"
name new-name)))
;; ?\a = C-g, ?\e = Esc and C-[
((memq key '(?\a ?\e)) (keyboard-quit))))))))
(defun spacemacs/delete-file (filename &optional ask-user) (defun spacemacs/delete-file (filename &optional ask-user)
"Remove specified file or directory. "Remove specified file or directory.