From a73274ae0a019601b6f85b91c41883cbdae8f5d4 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Wed, 5 Feb 2020 13:26:11 -0500 Subject: [PATCH] ADD command to open file manager in current directory --- etc/conf.org | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/etc/conf.org b/etc/conf.org index 14f96d0..35233ad 100644 --- a/etc/conf.org +++ b/etc/conf.org @@ -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))) (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) ;; (interactive) ;; (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) ("e" elfeed) ("t" ansi-term) - ("T" nd/open-urxvt)) + ("T" nd/open-urxvt) + ("f" nd/open-fm)) #+END_SRC *** control/meta #+BEGIN_SRC emacs-lisp