From d70bb23120549dd48f0bf7c8522c2c96173f38c5 Mon Sep 17 00:00:00 2001 From: bd Date: Mon, 2 Sep 2024 10:38:47 -0400 Subject: Override eshell/clear to display banner at every call --- .config/emacs/modules/bd--shells.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to '.config') diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el index 932943d..309d7ec 100644 --- a/.config/emacs/modules/bd--shells.el +++ b/.config/emacs/modules/bd--shells.el @@ -33,6 +33,19 @@ (propertize (format-time-string " %a, %R") 'face `(:foreground ,(ef-themes-get-color-value 'blue-faint))) (propertize "\n> " 'face `(:foreground ,(ef-themes-get-color-value 'red))))) +(defun eshell/clear (&optional scrollback) + "Override of default function. Scroll contents of eshell window +out of sight, leaving a blank window. If SCROLLBACK is non-nil, +clear the scrollback contents. Outputs banner message." + (interactive) + (if scrollback + (eshell/clear-scrollback) + (let ((eshell-input-filter-functions nil)) + (insert (make-string (window-size) ?\n)) + (eshell-send-input) + (unless eshell-non-interactive-p + (eval eshell-banner-message))))) + ;;;; shell (require 'shell) -- cgit v1.2.3