dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[EShell] More playing around with the prompt

This commit is contained in:
Daniel - 2018-07-19 14:30:01 +02:00
parent 191e4f84ca
commit 631fbcfd13
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
site-lisp/db-eshell.el
View File

@ -41,22 +41,22 @@
(defun eshell/default-prompt-function ()
"A prompt for eshell of the form
┌[$USER@$HOST] [$PWD]
└──
┌─[$USER@$HOST] [$PWD]
└─
"
(let ((head-face '(:foreground "#859900")))
(format (concat (propertize "┌" 'face head-face)
(format (concat (propertize "┌─" 'face head-face)
"[%s@%s] [%s]\n"
(propertize "└──" 'face head-face)
" ")
(propertize "└─" 'face head-face)
(propertize " " 'face '(:weight bold)))
(user-login-name)
(system-name)
(propertize (abbreviate-file-name (eshell/pwd))
'face '(:foreground "#dc322f")))))
(setq eshell-prompt-function #'eshell/default-prompt-function
eshell-prompt-regexp "└── "
eshell-prompt-regexp "└─ "
eshell-highlight-prompt nil)
(add-hook 'eshell-mode-hook