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

[Emacs] Enhance powerline theme of Eshell
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2020-10-21 23:40:37 +02:00
parent 5211c24410
commit d51b59a963
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
org/config/emacs.org
View File

@ -1405,7 +1405,7 @@
build a git prompt that will be inserted in my Eshell prompt. And just for
shit and giggles, I’ve made it so it is a powerline prompt.
#+BEGIN_SRC emacs-lisp
(defun phundrak/eshell-git-status ($path)
(defun phundrak/eshell-git-status ($path &optional background-color)
"Returns a string indicating the status of the current
repository if it exists. It should also append the name of the
current branch if it is not `master' or `main'. The theme is
@ -1459,9 +1459,8 @@
(dirty nord11)
(staged nord13)
(t nord14)))
(background nord0))
(concat " "
(with-face ""
(background (if background-color background-color nord0)))
(concat (with-face ""
:background accent
:foreground background)
(with-face prompt
@ -1896,18 +1895,27 @@
Now, let’s declare our prompt, with some Nord colors
#+BEGIN_SRC emacs-lisp
(defun eshell/my-prompt ()
(let* ((header-bg phundrak/nord0)
(path (eshell/abbr-pwd)))
(concat (with-face (eshell/abbr-pwd)
:foreground phundrak/nord14)
(let* ((header-bg phundrak/nord0)
($path (eshell/abbr-pwd))
($background nord1))
(concat (with-face $path
:foreground phundrak/nord14
:background $background)
;; add git status if it exists
(let (($path (eshell/pwd)))
(if (magit-toplevel $path)
(phundrak/eshell-git-status $path)))
" "
(if (magit-toplevel $path)
(concat
(with-face " " :background $background)
(phundrak/eshell-git-status $path $background)))
(with-face " " :background $background)
(if (zerop eshell-last-command-status)
(with-face "λ" :foreground phundrak/nord10)
(with-face "λ" :foreground phundrak/nord11))
(with-face "λ"
:foreground phundrak/nord10
:background $background)
(with-face "λ"
:foreground phundrak/nord11
:background $background))
(with-face " " :background $background)
(with-face "" :foreground $background)
" ")))
#+END_SRC