From 422e24cc41af940ad9fc74a123899c0e4601596e Mon Sep 17 00:00:00 2001
From: bd <bdunahu@gmail.com>
Date: Fri, 5 Jan 2024 00:58:12 -0700
Subject: Added time string to eshell prompt

---
 .config/emacs/bd-shells.el | 48 +++++++++++++++++++++++++++-------------------
 1 file changed, 28 insertions(+), 20 deletions(-)

(limited to '.config/emacs/bd-shells.el')

diff --git a/.config/emacs/bd-shells.el b/.config/emacs/bd-shells.el
index 4e3a7b4..e6789c5 100644
--- a/.config/emacs/bd-shells.el
+++ b/.config/emacs/bd-shells.el
@@ -1,29 +1,32 @@
 ;; -*- lexical-binding: t; -*-
 
 
-(use-package term
-  :config
-  (defalias 'term 'ansi-term))
+(defun bd/get-prompt-path ()
+  (abbreviate-file-name (eshell/pwd)))
+
+(defun bd/eshell-prompt ()
+  "Assemble a shell prompt including host, git
+status, and path."
+  (let ((current-branch (magit-get-current-branch)))
+    (concat
+     "\n"
+     (propertize (system-name) 'face `(:foreground "#edb54b"))
+     (when current-branch
+       (concat
+        (format " %s " (all-the-icons-octicon "git-branch"))
+        (propertize current-branch 'face `(:foreground "#98d1ce"))))
+     (format " %s " (all-the-icons-fileicon "gn"))
+     (propertize (bd/get-prompt-path) 'face `(:foreground "#33859d"))
+     (format " %s " (all-the-icons-material "watch_later"))
+     (propertize (format-time-string "%a, %R") 'face `(:foreground "#888ba5"))
+     (propertize "\n> " 'face `(:foreground "#c33027")))))
+
+(current-time-string)
+(format-time-string "%a, %R")
 
 (use-package eshell
-  :demand
-  :after (magit all-the-icons)
   :init
-  (defun bd/get-prompt-path ()
-    (abbreviate-file-name (eshell/pwd)))
-
-  (defun bd/eshell-prompt ()
-    (let ((current-branch (magit-get-current-branch)))
-      (concat
-       "\n"
-       (propertize (system-name) 'face `(:foreground "#edb54b"))
-       (when current-branch
-         (concat
-          (format " %s " (all-the-icons-octicon "git-branch"))
-          (propertize current-branch 'face `(:foreground "#98d1ce"))))
-       (format " %s " (all-the-icons-fileicon "gn"))
-       (propertize (bd/get-prompt-path) 'face `(:foreground "#33859d"))
-       (propertize "\n> " 'face `(:foreground "#c33027")))))
+  (require 'magit)
   :bind (:map eshell-mode-map
               ("<tab>" . completion-at-point))
   :custom
@@ -31,3 +34,8 @@
   (eshell-prompt-regexp "^> ")
   (eshell-scroll-to-bottom-on-input 'this)
   (eshell-banner-message (concat "\n" (propertize " " 'display (create-image (expand-file-name "~/.config/emacs/images/raven.png") 'png nil :scale 0.2 :align-to "center")) "\n")))
+
+
+(use-package term
+  :config
+  (defalias 'term 'ansi-term))
-- 
cgit v1.2.3