diff options
| author | Jakob L. Kreuze <jakob@memeware.net> | 2019-02-09 19:31:24 -0500 |
|---|---|---|
| committer | Jakob L. Kreuze <jakob@memeware.net> | 2019-02-09 19:31:24 -0500 |
| commit | 3818c18c3e0fc171cbe45b3cf4dea6a83b2ecd69 (patch) | |
| tree | 82ca7af78f2190a6a81139319bb4aa03b0916769 | |
| parent | 4f9231f413318cd733efe22b13fa41a0708bcccb (diff) | |
Remove other instances of unprofessional language
| -rw-r--r-- | dired-rmjunk.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/dired-rmjunk.el b/dired-rmjunk.el index b0fe04d..353cbaa 100644 --- a/dired-rmjunk.el +++ b/dired-rmjunk.el @@ -26,7 +26,7 @@ ;; dired-rmjunk is a port of Jakub Klinkovský's home directory cleanup tool to ;; Dired. The interactive function, `dired-rmjunk' will mark all files in the ;; current Dired buffer that match one of the patterns specified in -;; `dired-rmjunk-shitty-files'. The tool is intended as a simple means for +;; `dired-rmjunk-patterns'. The tool is intended as a simple means for ;; keeping one's home directory tidy -- removing "junk" dotfiles. ;; The script that this is based on can be found at: @@ -35,10 +35,10 @@ ;;; Code: (defgroup dired-rmjunk () - "Remove shitty files with dired." + "Remove junk files with dired." :group 'dired) -(defcustom dired-rmjunk-shitty-files +(defcustom dired-rmjunk-patterns '(".adobe" ".macromedia" ".recently-used" ".local/share/recently-used.xbel" "Desktop" ".thumbnails" ".gconfd" ".gconf" ".local/share/gegl-0.2" ".FRD/log/app.log" ".FRD/links.txt" @@ -53,9 +53,9 @@ ;;;###autoload (defun dired-rmjunk () - "Mark all shitty files in the current dired buffer. -'Shitty' is defined to be any file with a name matching one of -the patterns in `dired-rmjunk-shitty-files'." + "Mark all junk files in the current dired buffer. +'Junk' is defined to be any file with a name matching one of the +patterns in `dired-rmjunk-patterns'." (interactive) (when (eq major-mode 'dired-mode) (save-excursion @@ -66,8 +66,8 @@ the patterns in `dired-rmjunk-shitty-files'." (dired-goto-file (concat (expand-file-name dired-directory) file)) (dired-flag-file-deletion 1))) (message (if (zerop files-marked-count) - "No shitty files found :)" - "Shitty files marked.")))))) + "No junk files found :)" + "Junk files marked.")))))) (provide 'dired-rmjunk) ;;; dired-rmjunk.el ends here |