[Emacs] Additional tweaks for Eshell prompt

This commit is contained in:
Lucien Cartier-Tilet 2020-10-21 23:56:30 +02:00
parent d51b59a963
commit 8178eefc14
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -1898,22 +1898,20 @@
(let* ((header-bg phundrak/nord0) (let* ((header-bg phundrak/nord0)
($path (eshell/abbr-pwd)) ($path (eshell/abbr-pwd))
($background nord1)) ($background nord1))
(concat (with-face $path (concat (with-face " " :background $background)
(with-face $path
:foreground phundrak/nord14 :foreground phundrak/nord14
:background $background) :background $background)
;; add git status if it exists ;; add git status if it exists
(with-face " " :background $background)
(if (magit-toplevel $path) (if (magit-toplevel $path)
(concat (phundrak/eshell-git-status $path $background))
(with-face " " :background $background) (with-face " " :background $background)
(phundrak/eshell-git-status $path $background)))
(with-face " " :background $background)
(if (zerop eshell-last-command-status)
(with-face "λ" (with-face "λ"
:foreground phundrak/nord10 :foreground (if (zerop eshell-last-command-status)
phundrak/nord10
phundrak/nord11)
:background $background) :background $background)
(with-face "λ"
:foreground phundrak/nord11
:background $background))
(with-face " " :background $background) (with-face " " :background $background)
(with-face "" :foreground $background) (with-face "" :foreground $background)
" "))) " ")))