From c3257933c17ec368c0db4c401cdd89914c4a1eea Mon Sep 17 00:00:00 2001
From: Grégoire Duchêne <gduchene@awhk.org>
Date: Sun, 6 Apr 2025 20:22:58 +0100
Subject: emacs: Only insert prompt if no command is running

---
 emacs/init.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/emacs/init.el b/emacs/init.el
index 7ea5eaf..7fe90dd 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -218,10 +218,12 @@
   :config
   (defun my/eshell-clear ()
     (interactive)
-    (let ((input (eshell-get-old-input)))
-      (eshell/clear-scrollback)
-      (eshell-emit-prompt)
-      (insert input)))
+    (if eshell-foreground-command
+        (eshell/clear-scrollback)
+      (let ((input (eshell-get-old-input)))
+        (eshell/clear-scrollback)
+        (eshell-emit-prompt)
+        (insert input))))
   :bind (("C-c e" . eshell)
          :map eshell-mode-map
          ("s-l" . my/eshell-clear))
-- 
cgit v1.2.3-70-g09d2