From bd1dd4e45548fb8bf1478cac0ace26eb62b8db5c Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 21 Jan 2023 14:12:59 +0200 Subject: eshell: Add custom eshell prompt --- .emacs.d/snippets/apollo-eshell.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 .emacs.d/snippets/apollo-eshell.el (limited to '.emacs.d/snippets/apollo-eshell.el') diff --git a/.emacs.d/snippets/apollo-eshell.el b/.emacs.d/snippets/apollo-eshell.el new file mode 100644 index 0000000..aba141d --- /dev/null +++ b/.emacs.d/snippets/apollo-eshell.el @@ -0,0 +1,23 @@ + +(defun with-face (str &rest face-plist) + (propertize str 'face face-plist)) + +(defun apollo-eshell-prompt () + (let ((winter-blue "#3F3B6C") + (white-summer "#E5E5CB") + (green-night "#03C988") + (orange-summer "#FFB100") + (green-summer "#A3BB98") + (summer-sea "#2192FF") + (black "#000000")) + (concat + (with-face (concat "[" user-login-name) :foreground orange-summer :background black) + (with-face "@" :foreground orange-summer :background black) + (with-face (concat system-name "]\n") :foreground orange-summer :background black) + (with-face (concat "|" (eshell/pwd) ) :foreground "#F0E9D2" :background winter-blue) + (with-face (format-time-string " | %H:%M" (current-time)) :background winter-blue :foreground "#888") + (with-face "\n -> ")))) + +(setq eshell-prompt-function 'apollo-eshell-prompt) +(setq eshell-highlight-prompt t) + -- cgit v1.2.3