1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
;;; dirvish-config.el --- Configuration for Tramp and the Dired File Manager -*- lexical-binding: t; -*-
;; author Craig Jennings <c@cjennings.net>
;;; Commentary:
;; DIRVISH NOTES:
;; access the quick access directories by pressing 'g' (for "go")
;;; Code:
;; ----------------------------------- Dired -----------------------------------
(use-package dired
:ensure nil ;; built-in
:defer .5
:bind
(:map dired-mode-map
([remap dired-summary] . which-key-show-major-mode)
("E" . wdired-change-to-wdired-mode) ;; edit names/properties in buffer
("e" . cj/dired-ediff-files)) ;; ediff files
:custom
(dired-use-ls-dired nil) ;; non GNU FreeBSD doesn't support a "--dired" switch
:config
(setq dired-listing-switches "-hl --almost-all --group-directories-first")
(setq dired-dwim-target t)
(setq dired-clean-up-buffers-too t) ;; offer to kill buffers associated deleted files and dirs
(setq dired-clean-confirm-killing-deleted-buffers t) ;; don't ask whether to kill buffers associated with deleted files.
(setq dired-kill-when-opening-new-dired-buffer t) ;; stop littering buffers while navigating a directory tree
(setq dired-recursive-copies (quote always)) ;; “always” means no asking
(setq dired-recursive-deletes (quote top))) ;; “top” means ask once
;; (add-hook 'dired-mode-hook 'auto-revert-mode) ;; auto revert dired when files change
;; ------------------------------ Dired Open With ------------------------------
(defun cj/dired-open-with (command)
"Open the dired file at point with a user-specified COMMAND.
This function is meant to be called interactively. It prompts for the command to
open the file with if called without a parameter. The command runs
asynchronously and its output is saved in a buffer, but the buffer is not
automatically displayed."
(interactive "sCommand to use to open the file: ")
(let* ((file (dired-get-file-for-visit))
(buff (generate-new-buffer (concat "*dired-open-with output: " file "*"))))
(start-process-shell-command command buff (concat command " " file))))
;; -------------------------- Dired Copy Path As Kill --------------------------
;; copies the full path of the file at point to the clipboard
(defun cj/dired-copy-path-as-kill ()
"Copy the full path of file at point in dired to the clipboard."
(interactive)
(let ((filename (dired-get-file-for-visit)))
(if (and filename (file-exists-p filename))
(progn
(kill-new filename)
(message "Copied '%s' to clipboard." filename))
(message "No file at point."))))
;; ------------------------ Dired Convert Image To Jpeg ------------------------
;; converts the image at point to a jpeg
(defun cj/dired-convert-image-to-jpeg ()
(interactive)
(let* ((original-file (dired-get-file-for-visit))
(file-extension (file-name-extension original-file))
(jpeg-file (concat (file-name-sans-extension original-file) ".jpeg")))
(if (member file-extension '("png" "bmp" "gif" "tif" "tiff" "svg" "webp"))
(if (string= file-extension "jpeg")
(message "File is already in JPEG format.")
(start-process "convert-to-jpeg" nil "convert" original-file jpeg-file)
(message "Conversion started for %s" original-file))
(message (concat "File is not a supported image file type."
"Current supported types: "
"'png' 'bmp' 'gif' 'tif' 'tiff' 'svg' 'webp'")))))
;; ------------------------ Dired Mark All Visible Files -----------------------
;; convenience function to mark all visible files in dired
(defun cj/dired-mark-all-visible-files ()
"Mark all visible files for deletion in Dired mode."
(interactive)
(save-excursion
(goto-char (point-min))
(while (not (eobp))
(if (not (looking-at "^. d"))
(dired-mark 1))
(forward-line 1))))
;; ---------------------------------- Dirvish ----------------------------------
(use-package dirvish
:defer .5
:after dired
:custom
(dirvish-quick-access-entries
`(("h" ,user-home-dir "home")
("cx" ,code-dir "code diredtory")
("ws" ,(concat code-dir "/website") "website staging")
("dr" ,(concat sync-dir "/drill/") "drill files")
("s" ,sync-dir "sync directory")
("mp" ,(concat sync-dir "/playlists") "music playlists")
("px" ,projects-dir "projects directory")
("tg" ,(concat sync-dir "/text.games") "text games")
("ps" ,(concat pix-dir "/screenshots/") "pictures screenshots")
("pw" ,(concat pix-dir "/wallpaper/") "pictures wallpaper")
("px" ,pix-dir "pictures directory")
("dl" ,dl-dir "downloads")
("dt" ,(concat dl-dir "/torrents/complete/") "torrents")
("vx" ,videos-dir "videos")
("df" "~/.dotfiles/" "dotfiles")
("dx" "~/documents/" "documents")
("mx" "~/music/" "music")
("rcj" "/sshx:cjennings@cjennings.net:~" "remote cjennings.net")
("rsb" "/sshx:cjennings@wolf.usbx.me:/home/cjennings/" "remote seedbox")
)) ;; end dirvish-quick-access-entries
(dirvish-attributes '(vscode-icon file-size))
(dirvish-override-dired-mode t)
(dirvish-preview-dispatchers '(image gif video audio epub pdf archive))
:hook (dirvish-setup . dirvish-emerge-mode)
:config
(setq dirvish-use-mode-line nil)
(setq dirvish-use-header-line nil)
:bind
(("C-x d" . dirvish)
("C-x C-d" . dirvish)
("C-x D" . dirvish-override-dired-mode)
("<f11>" . dirvish-side)
:map dirvish-mode-map ; note: Dirvish inherits `dired-mode-map'
("g" . dirvish-quick-access)
("G" . revert-buffer)
("bg" . (lambda () (interactive) ; set background image
(shell-command (concat "nitrogen --save --set-zoom-fill "
(dired-file-name-at-point) " >>/dev/null 2>&1" ))))
("Z" . (lambda () (interactive) (cj/dired-open-with "zathura")))
("P" . (lambda () (interactive) (cj/dired-open-with "gimp")))
("O" . (lambda () (interactive) (call-interactively 'cj/dired-open-with)))
("<left>" . dired-up-directory)
("<right>" . dired-find-file)
("f" . dirvish-file-info-menu)
("p" . cj/dired-copy-path-as-kill)
("C" . cj/dired-convert-image-to-jpeg)
("y" . dirvish-yank-menu)
("N" . dirvish-narrow)
("M" . cj/dired-mark-all-visible-files)
("s" . dirvish-quicksort) ; remapped `dired-sort-toggle-or-edit'
("v" . dirvish-vc-menu) ; remapped `dired-view-file'
("TAB" . dirvish-subtree-toggle)
("C-." . dirvish-history-go-forward)
("C-," . dirvish-history-go-backward)
("M-l" . dirvish-ls-switches-menu)
("M-m" . dirvish-mark-menu)
("M-t" . dirvish-layout-toggle)
("M-s" . dirvish-setup-menu)
("M-e" . dirvish-emerge-menu)))
;; -------------------------------- VSCode-Icons -------------------------------
(use-package vscode-icon
:defer .5
:commands (vscode-icon-for-file))
;; -------------------------------- Dired Rsync --------------------------------
(use-package dired-rsync
:after dired
:bind (:map dired-mode-map
("r" . dired-rsync)))
;; ---------------------------- Dired Hide Dotfiles ----------------------------
(use-package dired-hide-dotfiles
:after dired
:bind
(:map dired-mode-map
("h" . dired-hide-dotfiles-mode)))
;; ------------------------------- Dired Sidebar -------------------------------
(use-package dired-sidebar
:after (dired projectile)
:bind (("<f11>" . dired-sidebar-toggle-sidebar))
:commands (dired-sidebar-toggle-sidebar)
:init
(add-hook 'dired-sidebar-mode-hook
(lambda ()
(unless (file-remote-p default-directory)
(auto-revert-mode))))
:config
(push 'toggle-window-split dired-sidebar-toggle-hidden-commands) ; don't allow splitting dired window when it's showing
(push 'rotate-windows dired-sidebar-toggle-hidden-commands) ; don't allow rotating windows when sidebar is showing
(setq dired-sidebar-subtree-line-prefix " ") ; two spaces give simple and aesthetic indentation
(setq dired-sidebar-no-delete-other-windows t) ; don't close when calling 'delete other windows'
(setq dired-sidebar-theme 'vscode) ; fancy icons, please
(setq dired-sidebar-use-custom-font 'nil) ; keep the same font as the rest of Emacs
(setq dired-sidebar-delay-auto-revert-updates 'nil) ; don't delay auto-reverting
(setq dired-sidebar-pop-to-sidebar-on-toggle-open 'nil)) ; don't jump to sidebar when it's toggled on
;; ----------------------------- Dired Ediff Files -----------------------------
;; mark two files within dired, then ediff them within Emacs
(defun cj/dired-ediff-files ()
"Ediff two selected files within Dired."
(interactive)
(let ((files (dired-get-marked-files))
(wnd (current-window-configuration)))
(if (<= (length files) 2)
(let ((file1 (car files))
(file2 (if (cdr files)
(cadr files)
(read-file-name
"file: "
(dired-dwim-target-directory)))))
(if (file-newer-than-file-p file1 file2)
(ediff-files file2 file1)
(ediff-files file1 file2))
(add-hook 'ediff-after-quit-hook-internal
(lambda ()
(setq ediff-after-quit-hook-internal nil)
(set-window-configuration wnd))))
(error "No more than 2 files should be marked"))))
(provide 'dirvish-config)
;;; dirvish-config.el ends here
|
