branch: externals/dtache
commit 34f39efa364e751a144d4528e924cbac135af184
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@posteo.net>
Add string when attaching
Add [attached] when attaching to a session. This is to make it
possible to navigate to previous prompts in shell/eshell
---
dtache-eshell.el | 1 +
dtache-shell.el | 1 +
2 files changed, 2 insertions(+)
diff --git a/dtache-eshell.el b/dtache-eshell.el
index 1f29d48c08..7e7e493a94 100644
--- a/dtache-eshell.el
+++ b/dtache-eshell.el
@@ -93,6 +93,7 @@ If prefix-argument directly DETACH from the session."
(insert input)
(setq end (point))
(overlay-put (make-overlay begin end) 'invisible t)
+ (overlay-put (make-overlay end end) 'before-string "[attached]")
(insert " "))
(setq dtache--buffer-session session)
(call-interactively #'eshell-send-input))
diff --git a/dtache-shell.el b/dtache-shell.el
index 03065e7fcd..54cbcd33f9 100644
--- a/dtache-shell.el
+++ b/dtache-shell.el
@@ -82,6 +82,7 @@ cluttering the comint-history with dtach commands."
((symbol-function 'comint-add-to-input-history) (lambda (_)
t)))
(setq dtache--buffer-session session)
(comint-kill-input)
+ (insert "[attached]")
(comint-send-input))
(dtache-open-session session))))
