scip/dot-emacs
1
0
Fork 0
mirror of https://codeberg.org/scip/dot-emacs.git synced 2025-12-17 04:20:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

added 'move-file from zck.org

Browse Source
This commit is contained in:
Thomas von Dein
2023-06-15 18:37:53 +02:00
parent 5439f2c33c
commit 976452038f
1 changed files with 27 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/init-dired.el
View File

@@ -55,7 +55,7 @@ URL `http://ergoemacs.org/emacs/dired_sort.html'
Version 2015-07-30" Version 2015-07-30"
(interactive) (interactive)
(let (sort-by arg) (let (sort-by arg)
(setq sort-by (ido-completing-read "Sort by:" '( "date" "size" "name" "dir" "date-desc" "size-desc" "name-desc" "dir-desc" ))) (setq sort-by (completing-read "Sort by:" '( "date" "size" "name" "dir" "date-desc" "size-desc" "name-desc" "dir-desc" )))
(cond (cond
((equal sort-by "name") (setq arg "-Al --si --time-style long-iso ")) ((equal sort-by "name") (setq arg "-Al --si --time-style long-iso "))
((equal sort-by "date") (setq arg "-Al --si --time-style long-iso -t")) ((equal sort-by "date") (setq arg "-Al --si --time-style long-iso -t"))
@@ -153,6 +153,32 @@ files marked, always operate on current line in dired-mode"
(rename-buffer (format "*dired: %s*" default-directory))) (rename-buffer (format "*dired: %s*" default-directory)))
buffer)) buffer))
;; not strictly dired related but fs related which is at least the
;; same topic. From: https://zck.org/emacs-move-file. I modified it
;; to accept a directory as target so I don't have to manually enter a
;; new file name if I'd like to keep the old one.
(defun move-file (new-location)
"Write this file to NEW-LOCATION, and delete the old one."
(interactive (list (expand-file-name
(if buffer-file-name
(read-file-name "Move file to: ")
(read-file-name "Move file to: "
default-directory
(expand-file-name (file-name-nondirectory (buffer-name))
default-directory))))))
(when (file-directory-p new-location)
(setq new-location (expand-file-name (file-name-nondirectory buffer-file-name) new-location)))
(when (file-exists-p new-location)
(delete-file new-location))
(message "start")
(let ((old-location (expand-file-name (buffer-file-name))))
(message (format "old: %s => new: %s" old-location new-location))
(write-file new-location t)
(when (and old-location
(file-exists-p new-location)
(not (string-equal old-location new-location)))
(delete-file old-location))))
;; **** dired config and key bindings ;; **** dired config and key bindings
;; and finally put everything together. ;; and finally put everything together.