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

Move +eshell/banner-message to EShell basics

Browse Source
This commit is contained in:
Aryadev Chavali
2024-10-16 16:49:34 +01:00
parent f82a489b15
commit 3ea88a55a2
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Emacs/.config/emacs/config.org
View File

@@ -1925,10 +1925,15 @@ them.
(display-buffer-same-window) (display-buffer-same-window)
(reusable-frames . t)) (reusable-frames . t))
:init :init
(defun +eshell/banner-message ()
(concat (shell-command-to-string "fortune") "\n"))
(setq eshell-cmpl-ignore-case t (setq eshell-cmpl-ignore-case t
eshell-cd-on-directory t eshell-cd-on-directory t
eshell-cd-shows-directory nil eshell-cd-shows-directory nil
eshell-highlight-prompt nil) eshell-highlight-prompt nil
eshell-banner-message '(+eshell/banner-message))
(defun +eshell/good-clear () (defun +eshell/good-clear ()
(interactive) (interactive)
(eshell/clear-scrollback) (eshell/clear-scrollback)
@@ -1973,10 +1978,7 @@ internals without autoloading.
(use-package eshell-prompt (use-package eshell-prompt
:load-path "elisp/" :load-path "elisp/"
:config :config
(defun +eshell/banner-message () (setq eshell-prompt-function #'+eshell-prompt/make-prompt))
(concat (shell-command-to-string "fortune") "\n"))
(setq eshell-prompt-function #'+eshell-prompt/make-prompt
eshell-banner-message '(+eshell/banner-message)))
#+end_src #+end_src
*** EShell additions *** EShell additions
Using my external library Using my external library