From d2b118afc0b349a1a0c1c79dd946d8e0df1f98e5 Mon Sep 17 00:00:00 2001
From: Grégoire Duchêne <gduchene@awhk.org>
Date: Sun, 6 Apr 2025 09:13:18 +0100
Subject: emacs: Improve Eshell buffer clearing

---
 emacs/init.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'emacs/init.el')

diff --git a/emacs/init.el b/emacs/init.el
index c2d4437..7ea5eaf 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -214,8 +214,17 @@
 
 ;; Eshell
 
-(use-package eshell
-  :bind (("C-c e" . eshell))
+(use-package esh-mode
+  :config
+  (defun my/eshell-clear ()
+    (interactive)
+    (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))
   :custom ((eshell-cmpl-ignore-case t)
            (eshell-aliases-file (expand-file-name "alias" user-emacs-directory))
            (eshell-directory-name (my/cache-file-name "eshell"))
-- 
cgit v1.2.3-70-g09d2