awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix "home/~" PWD in eshell prompt

Browse Source
This commit is contained in:
Henrik Lissner
2018-06-28 19:29:26 +02:00
parent 40c8d7bd0e
commit 55104b9f89
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
modules/emacs/eshell/autoload/prompts.el
View File

@ -23,8 +23,11 @@
(defun +eshell-default-prompt () (defun +eshell-default-prompt ()
"Generate the prompt string for eshell. Use for `eshell-prompt-function'." "Generate the prompt string for eshell. Use for `eshell-prompt-function'."
(concat (if (bobp) "" "\n") (concat (if (bobp) "" "\n")
(propertize (abbreviate-file-name (shrink-path-file (eshell/pwd))) (let ((pwd (eshell/pwd)))
'face '+eshell-prompt-pwd) (propertize (if (equal pwd "~")
pwd
(abbreviate-file-name (shrink-path-file pwd)))
'face '+eshell-prompt-pwd))
(propertize (+eshell--current-git-branch) (propertize (+eshell--current-git-branch)
'face '+eshell-prompt-git-branch) 'face '+eshell-prompt-git-branch)
(propertize " λ" 'face (if (zerop eshell-last-command-status) 'success 'error)) (propertize " λ" 'face (if (zerop eshell-last-command-status) 'success 'error))