emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use shrink-path on eshell PWD in default prompt

Browse source 
Makes longer paths easier to deal with.
This commit is contained in:
Henrik Lissner 2018-06-16 16:51:43 +02:00
parent 2addfebf8e
commit a4ccc2fc81
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
modules/emacs/eshell/autoload/eshell.el
View file

@ -63,7 +63,9 @@
;;;###autoload ;;;###autoload
(defun +eshell-prompt () (defun +eshell-prompt ()
"Generate the prompt string for eshell. Use for `eshell-prompt-function'." "Generate the prompt string for eshell. Use for `eshell-prompt-function'."
(concat (propertize (abbreviate-file-name (eshell/pwd)) 'face '+eshell-prompt-pwd) (concat (if (bobp) "" "\n")
(propertize (abbreviate-file-name (shrink-path-file (eshell/pwd)))
'face '+eshell-prompt-pwd)
(propertize (+eshell--current-git-branch) 'face '+eshell-prompt-git-branch) (propertize (+eshell--current-git-branch) 'face '+eshell-prompt-git-branch)
(propertize " λ " 'face '+eshell-prompt-char))) (propertize " λ " 'face '+eshell-prompt-char)))

4
modules/emacs/eshell/config.el
View file

@ -91,3 +91,7 @@ redefines its keys every time `eshell-mode' is enabled."
(def-package! eshell-up (def-package! eshell-up
:commands (eshell-up eshell-up-peek)) :commands (eshell-up eshell-up-peek))
(def-package! shrink-path
:commands shrink-path-file)

1
modules/emacs/eshell/packages.el
View file

@ -2,3 +2,4 @@
;;; emacs/eshell/packages.el ;;; emacs/eshell/packages.el
(package! eshell-up) (package! eshell-up)
(package! shrink-path)