61 lines
2.5 KiB
EmacsLisp
61 lines
2.5 KiB
EmacsLisp
;;; defuns-file.el
|
|
|
|
;;;###autoload (autoload 'narf:file-delete "defuns-file" nil t)
|
|
(evil-define-command narf:file-delete (&optional bang filename)
|
|
"Delete current buffer's file. If bang, then kill the buffer afterwards as well."
|
|
:repeat nil
|
|
(interactive "<!><f>")
|
|
(let ((filename (file-truename (or filename (buffer-file-name)))))
|
|
(if (not (file-exists-p filename))
|
|
(error "File doesn't exist: %s" filename)
|
|
(delete-file filename)
|
|
(when bang
|
|
(kill-this-buffer)
|
|
(unless (narf/real-buffer-p)
|
|
(narf/previous-real-buffer)))
|
|
(save-place-forget-unreadable-files)
|
|
(message "File successfully deleted: %s" filename))))
|
|
|
|
(defun narf--save-exit() (save-buffer) (kill-buffer) (remove-hook 'yas-after-exit-snippet-hook '--save-exit))
|
|
;;;###autoload (autoload 'narf:file-create "defuns-file" nil t)
|
|
(evil-define-command narf:file-create (path &optional bang)
|
|
"Deploy files (and their associated templates) quickly. Will prompt
|
|
you to fill in each snippet field before buffer closes unless BANG is
|
|
provided."
|
|
:repeat nil
|
|
(interactive "<f><!>")
|
|
(let ((dir (f-dirname path))
|
|
(fullpath (f-full path))
|
|
(is-auto t))
|
|
(when (and bang (not (file-exists-p dir))) (f-mkdir dir))
|
|
(if (file-exists-p dir)
|
|
(if (file-exists-p fullpath)
|
|
(error "File already exists: %s" path)
|
|
(find-file fullpath)
|
|
(add-hook 'yas-after-exit-snippet-hook 'narf--save-exit)
|
|
(if bang (narf--save-exit)))
|
|
(error "Directory doesn't exist: %s" dir))))
|
|
|
|
;;;###autoload (autoload 'narf:file-move "defuns-file" nil t)
|
|
(evil-define-command narf:file-move (path)
|
|
"Move current buffer's file to PATH. Replaces %, # and other variables (see
|
|
`evil-ex-replace-special-filenames')"
|
|
:repeat nil
|
|
(interactive "<f>")
|
|
(let* ((old-path (buffer-file-name))
|
|
(new-path (cond ((f-dir? path)
|
|
(f-expand (f-filename old-path) path))
|
|
((f-dir? (f-dirname path))
|
|
(f-full path))
|
|
(t (user-error "Not a valid destination: %s" path))))
|
|
(project-root (narf/project-root)))
|
|
(rename-file old-path new-path 1)
|
|
(rename-buffer (f-filename new-path))
|
|
(set-visited-file-name new-path)
|
|
(set-buffer-modified-p nil)
|
|
(save-place-forget-unreadable-files)
|
|
(message "File '%s' successfully renamed to '%s'"
|
|
(f-relative old-path project-root) (f-relative new-path project-root))))
|
|
|
|
(provide 'defuns-file)
|
|
;;; defuns-file.el ends here
|