phundrak/dotfiles
1
0
Fork 0
Code Issues Pull Requests Activity

[Emacs] Additional tweaks for Eshell prompt

Browse Source
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
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
org/config/emacs.org
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)
" "))) " ")))