Add reveal-in-file-browser
This commit is contained in:
@@ -24,7 +24,8 @@
|
|||||||
(delete-other-windows)))
|
(delete-other-windows)))
|
||||||
|
|
||||||
(use-package emacs
|
(use-package emacs
|
||||||
:bind (("C-o" . nil)
|
:bind (("C-c o b" . reveal-in-file-browser)
|
||||||
|
("C-o" . nil)
|
||||||
("C-o C-o" . other-window)
|
("C-o C-o" . other-window)
|
||||||
("C-o o" . other-window)
|
("C-o o" . other-window)
|
||||||
("C-o b" . consult-buffer-other-window-no-focus)
|
("C-o b" . consult-buffer-other-window-no-focus)
|
||||||
@@ -151,3 +152,13 @@
|
|||||||
|
|
||||||
(use-package explain-pause-mode
|
(use-package explain-pause-mode
|
||||||
:ensure (:host github :repo "lastquestion/explain-pause-mode"))
|
:ensure (:host github :repo "lastquestion/explain-pause-mode"))
|
||||||
|
|
||||||
|
(defun first-executable (candidates)
|
||||||
|
(seq-find #'executable-find candidates))
|
||||||
|
|
||||||
|
;; Reveal in finder/nautilus/whatever
|
||||||
|
(defun reveal-in-file-browser ()
|
||||||
|
(interactive)
|
||||||
|
(call-process
|
||||||
|
(first-executable '("xdg-open" "open"))
|
||||||
|
nil nil nil "."))
|
||||||
|
|||||||
Reference in New Issue
Block a user