jdormit/dotfiles
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix delete-file implementation

Browse Source
This commit is contained in:
Jeremy Dormitzer 2024-06-18 12:35:05 -04:00
parent 68955452a5
commit f3c529781c
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
emacs/.emacs.d/config/init-files.el
View File

@ -2,15 +2,16 @@
;; File-related configuration ;; File-related configuration
(defun jdormit-delete-file (file) (defun my/delete-file (file)
(interactive (list (read-file-name "Delete file: " (interactive (list (read-file-name "Delete file: "
nil nil
nil nil
t t
(buffer-file-name)))) (file-name-nondirectory (buffer-file-name)))))
(delete-file file) (let ((file (expand-file-name file)))
(when (string-equal (buffer-file-name) file) (delete-file file)
(quit-window))) (when (string-equal (buffer-file-name) file)
(quit-window))))
(defun rename-this-file (new-name) (defun rename-this-file (new-name)
(interactive (list (read-file-name "Rename file: " (interactive (list (read-file-name "Rename file: "
@ -35,7 +36,7 @@
"f" '(nil :which-key "file") "f" '(nil :which-key "file")
"ff" #'find-file "ff" #'find-file
"fs" #'save-buffer "fs" #'save-buffer
"fD" '(jdormit-delete-file :which-key "delete") "fD" '(my/delete-file :which-key "delete")
"fr" '(rename-this-file :which-key "rename") "fr" '(rename-this-file :which-key "rename")
"fd" #'dired) "fd" #'dired)