ADD command to open file manager in current directory

This commit is contained in:
Nathan Dwarshuis 2020-02-05 13:26:11 -05:00
parent 30027742e1
commit a73274ae0a
1 changed files with 8 additions and 1 deletions

View File

@ -322,6 +322,12 @@ If FRONT is t, do to the front of current values instead of the back."
(let ((cwd (expand-file-name default-directory))) (let ((cwd (expand-file-name default-directory)))
(call-process "urxvt" nil 0 nil "-cd" cwd))) (call-process "urxvt" nil 0 nil "-cd" cwd)))
(defun nd/open-fm ()
"Launch filemanager in the current directory."
(interactive)
(let ((cwd (expand-file-name default-directory)))
(call-process "pcmanfm" nil 0 nil cwd)))
;; (defun nd/sh-send-line-or-region (&optional step) ;; (defun nd/sh-send-line-or-region (&optional step)
;; (interactive) ;; (interactive)
;; (let ((proc (get-process "*ansi-term*")) ;; (let ((proc (get-process "*ansi-term*"))
@ -3884,7 +3890,8 @@ The function keys are nice because they are almost (not always) free in every mo
("m" mu4e) ("m" mu4e)
("e" elfeed) ("e" elfeed)
("t" ansi-term) ("t" ansi-term)
("T" nd/open-urxvt)) ("T" nd/open-urxvt)
("f" nd/open-fm))
#+END_SRC #+END_SRC
*** control/meta *** control/meta
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp