From a8065fba8aa55ff847f19853972fede01272c387 Mon Sep 17 00:00:00 2001 From: Oleg Pykhalov Date: Mon, 13 May 2019 02:23:09 +0300 Subject: terminal-here.el: Implement ssh sudo. * terminal-here.el (terminal-here-launch): Implement ssh sudo. --- terminal-here.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/terminal-here.el b/terminal-here.el index e504a54..b8b7526 100644 --- a/terminal-here.el +++ b/terminal-here.el @@ -237,7 +237,19 @@ changed it by running `cd'." (list (if current-prefix-arg (read-directory-name "Directory: ") default-directory))) (when multiplexer (terminal-here-not-null-symbol terminal-here-multiplexer)) - (terminal-here-launch-in-directory directory multiplexer)) + (if (and (string-prefix-p "/ssh:" directory) + (s-contains? "|" directory)) + (let ((ssh+sudo (split-string directory "|"))) + (terminal-here-launch-in-directory + (mapconcat 'identity (list "/ssh:" + (cadr (split-string (car ssh+sudo) ":")) + ":/home/sup") + "") + multiplexer) + (start-process "xdotool" nil (expand-file-name "~/bin/sudo-to-user-web") + (car (split-string (nth 1 (split-string (cadr ssh+sudo) ":")) + "@")))) + (terminal-here-launch-in-directory directory multiplexer))) ;;;###autoload (defalias 'terminal-here 'terminal-here-launch) -- cgit v1.2.3