diff options
| -rw-r--r-- | emacs-init.org | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/emacs-init.org b/emacs-init.org index d84bdc4..9abdd35 100644 --- a/emacs-init.org +++ b/emacs-init.org @@ -1862,11 +1862,16 @@ Make next command act on local host. #+begin_src emacs-lisp :noweb-ref fpi-bindings (defmacro fpi/as-local (func) (let ((default-directory temporary-file-directory)) - func + (eval func) ;; (shell-command "explorer") )) (fpi/as-local (pwd)) (fpi/as-local default-directory) +(defmacro fpi/explorer-as-local () + (let* ((file (or (dired-get-subdir) + (dired-get-filename))) + (cmd (backquote (shell-command ,(format "explorer %s" file))))) + (backquote (fpi/as-local ,cmd)))) #+end_src ** Base commands (simple.el) #+begin_src emacs-lisp |