From 253f2f5ef9eb0d95639d259a48875d76d3ecab75 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Tue, 23 Apr 2024 01:47:17 +0530
Subject: (Emacs/app)+randomise banner-message's cowsay

---
 Emacs/.config/emacs/app.org | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'Emacs/.config')

diff --git a/Emacs/.config/emacs/app.org b/Emacs/.config/emacs/app.org
index 30f845a..bfea843 100644
--- a/Emacs/.config/emacs/app.org
+++ b/Emacs/.config/emacs/app.org
@@ -506,9 +506,17 @@ changes that haven't been committed).
         "\n"
         '("𝜆> " :foreground "DeepSkyBlue")))))
 
+  (defun +eshell/banner-message ()
+    (concat (shell-command-to-string
+             (let ((possible-cows '("default" "cower" "moofasa" "moose"
+                                    "mutilated" "satanic" "sheep"
+                                    "small" "tux" "vader")))
+               (format "fortune | cowsay -f %s" (nth (random (length possible-cows)) possible-cows))))
+            "\n"))
+
   (setq eshell-cmpl-ignore-case t
         eshell-cd-on-directory t
-        eshell-banner-message (concat (shell-command-to-string "fortune | cowsay") "\n")
+        eshell-banner-message '(+eshell/banner-message)
         eshell-highlight-prompt nil
         eshell-prompt-function #'+eshell/prompt-function
         eshell-prompt-regexp "^𝜆> "))
-- 
cgit v1.2.3-13-gbd6f