summaryrefslogtreecommitdiffhomepage
path: root/prog
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-01-09 01:14:52 +0000
committerjao <jao@gnu.org>2021-01-09 01:14:52 +0000
commite84e1215bf07e6305eaabb9b3e059b406021d5d0 (patch)
tree24472ad87e8912c1407c5ad6f06b89e7802060d4 /prog
parent1228164acf5bd3afcda3ab0cba761adccf34c88c (diff)
downloadelibs-e84e1215bf07e6305eaabb9b3e059b406021d5d0.tar.gz
elibs-e84e1215bf07e6305eaabb9b3e059b406021d5d0.tar.bz2
vterm repl - multiple repls
Diffstat (limited to 'prog')
-rw-r--r--prog/jao-vterm-repl.el11
1 files changed, 8 insertions, 3 deletions
diff --git a/prog/jao-vterm-repl.el b/prog/jao-vterm-repl.el
index 7954bd0..699ff39 100644
--- a/prog/jao-vterm-repl.el
+++ b/prog/jao-vterm-repl.el
@@ -42,13 +42,15 @@
(defvar-local jao-vterm-repl--last-buffer nil)
(defvar-local jao-vterm-repl--prompt-rx "^[0-9]+> ")
+(setq vterm-buffer-name-string nil)
+
(defun jao-vterm-repl--exec (cmd &optional name)
(vterm name)
(when name
(vterm-send-string "unset PROMPT_COMMAND\n\n"))
(vterm-send-string cmd)
(vterm-send-return)
- (when name (rename-buffer name)))
+ (when name (rename-buffer name t)))
;;;###autoload
(defun jao-vterm-repl-previous-prompt ()
@@ -91,8 +93,11 @@
(let ((default-directory dir)
(prompt (cdr (assoc root-name jao-vterm-repl-prompts)))
(cmd (or (cdr (assoc root-name jao-vterm-repl-repls))
- (read-string "REPL command: "))))
- (jao-vterm-repl--exec cmd (format "* vrepl - %s *" root-name))
+ (read-string "REPL command: ")))
+ (bname (format "* vrepl - %s/%s *"
+ (file-name-base (string-remove-suffix "/" dir))
+ root-name)))
+ (jao-vterm-repl--exec cmd bname)
(jao-vterm-repl-mode)
(setq-local jao-vterm-repl--name vname)
(when prompt (setq-local jao-vterm-repl--prompt-rx prompt))