diff options
| author | Yuchen Pei <id@ypei.org> | 2025-02-10 09:51:26 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2025-02-10 09:51:26 +1100 |
| commit | b1bf873a65c277cf2b21f6bdb0d50fa739613d03 (patch) | |
| tree | 29d5ea9f780b04158405bedb862b48a18132cfe7 /emacs/.emacs.d/lisp/my/my-dired.el | |
| parent | 74fa0df00b35ee09cc1b989c4bfc4c2d56a2a49f (diff) | |
[emacs] belf set author
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-dired.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-dired.el | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-dired.el b/emacs/.emacs.d/lisp/my/my-dired.el index 83607ab..2fdbfa9 100644 --- a/emacs/.emacs.d/lisp/my/my-dired.el +++ b/emacs/.emacs.d/lisp/my/my-dired.el @@ -109,15 +109,24 @@ With a prefix arg, toggle `my-dired-reverse-sorting' instead." "Empty the xdg trash" (interactive) (let* ((xdg-data-dir - (directory-file-name - (expand-file-name "Trash" - (or (getenv "XDG_DATA_HOME") - "~/.local/share")))) - (trash-files-dir (expand-file-name "files" xdg-data-dir)) - (trash-info-dir (expand-file-name "info" xdg-data-dir))) + (directory-file-name + (expand-file-name "Trash" + (or (getenv "XDG_DATA_HOME") + "~/.local/share")))) + (trash-files-dir (expand-file-name "files" xdg-data-dir)) + (trash-info-dir (expand-file-name "info" xdg-data-dir))) (delete-directory trash-files-dir t) (delete-directory trash-info-dir t))) +(defun my-dired-jump-xdg-trash () + "Open the xdg trash dir in dired." + (interactive) + (dired + (directory-file-name + (expand-file-name "Trash" + (or (getenv "XDG_DATA_HOME") + "~/.local/share"))))) + (defun my-dired-do-delete (delete-fun &optional arg) "Wrapper of `dired-do-delete'. |