ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH move device directory

This commit is contained in:
Nathan Dwarshuis 2020-12-11 16:11:41 -05:00
parent 2ad4386db4
commit abcf0b601a
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
etc/conf.org
View File

@ -233,7 +233,7 @@ desktop file exec directive."
(defconst nd/device-mount-dirs (defconst nd/device-mount-dirs
(list (list
(f-join "/media" (user-login-name)) (f-join "/tmp/media" (user-login-name))
(f-join "/run" "media" (user-login-name)))) (f-join "/run" "media" (user-login-name))))
(defun nd/get-mounted-directories () (defun nd/get-mounted-directories ()
@ -3483,11 +3483,12 @@ I handle device mounting using rofi and a custom mounting script (elsewhere in m
(defun nd/find-devices () (defun nd/find-devices ()
"Navigate to mounted devices." "Navigate to mounted devices."
(interactive) (interactive)
(let ((mounted (-annotate #'f-filename (nd/get-mounted-directories)))) (-if-let (mounted (-annotate #'f-filename (nd/get-mounted-directories)))
(-when-let (dev (completing-read "Go to device: " mounted)) (-when-let (dev (completing-read "Go to device: " mounted))
(-if-let (path (alist-get dev mounted nil nil #'equal)) (-if-let (path (alist-get dev mounted nil nil #'equal))
(find-file path) (find-file path)
(message "Invalid device: %s" dev))))) (message "Invalid device: %s" dev)))
(message "No devices to mount")))
#+END_SRC #+END_SRC
*** filtering *** filtering
:PROPERTIES: :PROPERTIES: