From 7f8b99ccb5ea0f1f6dfb78639394497fc94afbb9 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 4 Jan 2021 00:26:59 +0000 Subject: vterm-repl: shorter buffer names --- prog/jao-vterm-repl.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'prog') diff --git a/prog/jao-vterm-repl.el b/prog/jao-vterm-repl.el index 306042c..7954bd0 100644 --- a/prog/jao-vterm-repl.el +++ b/prog/jao-vterm-repl.el @@ -1,6 +1,6 @@ ;;; jao-vterm-repl.el --- vterm-based repls -*- lexical-binding: t; -*- -;; Copyright (C) 2020 jao +;; Copyright (C) 2020, 2021 jao ;; Author: jao ;; Keywords: terminals @@ -44,7 +44,8 @@ (defun jao-vterm-repl--exec (cmd &optional name) (vterm name) - (when name (vterm-send-string "unset PROMPT_COMMAND\n")) + (when name + (vterm-send-string "unset PROMPT_COMMAND\n\n")) (vterm-send-string cmd) (vterm-send-return) (when name (rename-buffer name))) @@ -91,11 +92,10 @@ (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 vname) + (jao-vterm-repl--exec cmd (format "* vrepl - %s *" root-name)) (jao-vterm-repl-mode) (setq-local jao-vterm-repl--name vname) (when prompt (setq-local jao-vterm-repl--prompt-rx prompt)) - (rename-buffer vname) (current-buffer))))) ;;;###autoload -- cgit v1.2.3