diff options
| author | fpi | 2022-05-13 09:58:02 +0200 |
|---|---|---|
| committer | fpi | 2023-02-19 18:37:22 +0100 |
| commit | 3a8444a8c22a00ccacc4ab2dafe702bd26f3ce77 (patch) | |
| tree | 80c4f24a0ccbb456a97f7234ea4df872e739777f | |
| parent | [Testing] Theme changes (diff) | |
squash! [WIP] Make next command act on local host
| -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 |