summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfpi2022-05-13 09:58:02 +0200
committerfpi2023-02-19 18:37:22 +0100
commit3a8444a8c22a00ccacc4ab2dafe702bd26f3ce77 (patch)
tree80c4f24a0ccbb456a97f7234ea4df872e739777f
parent[Testing] Theme changes (diff)
squash! [WIP] Make next command act on local host
-rw-r--r--emacs-init.org7
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