oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

(Emacs/app)+randomise banner-message's cowsay

Browse Source
This commit is contained in:
Aryadev Chavali
2024-04-23 01:47:17 +05:30
parent 6782fce889
commit 253f2f5ef9
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Emacs/.config/emacs/app.org
View File

@@ -506,9 +506,17 @@ changes that haven't been committed).
"\n" "\n"
'("𝜆> " :foreground "DeepSkyBlue"))))) '("𝜆> " :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 (setq eshell-cmpl-ignore-case t
eshell-cd-on-directory 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-highlight-prompt nil
eshell-prompt-function #'+eshell/prompt-function eshell-prompt-function #'+eshell/prompt-function
eshell-prompt-regexp "^𝜆> ")) eshell-prompt-regexp "^𝜆> "))