Platform-independent reveal-in-finder
This commit is contained in:
@@ -44,10 +44,15 @@
|
||||
:desc "M-x"
|
||||
"SPC" #'counsel-M-x)
|
||||
|
||||
(defun first-executable (candidates)
|
||||
(seq-find #'executable-find candidates))
|
||||
|
||||
;; Reveal in finder/nautilus/whatever
|
||||
(defun reveal-in-file-browser ()
|
||||
(interactive)
|
||||
(call-process "open" nil nil nil "."))
|
||||
(call-process
|
||||
(first-executable '("xdg-open" "open"))
|
||||
nil nil nil "."))
|
||||
|
||||
(map! :leader
|
||||
:desc "Reveal"
|
||||
|
||||
Reference in New Issue
Block a user