exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: exot:584480bd53a0efb2eefe335b2adc7395778a3221
Branches Tags
exot:master
..
compare: exot:df92555538ae41735c65203d2a9e0e81f8cee986
Branches Tags
exot:master

1 Commits
584480bd53 ... df92555538

Author SHA1 Message Date
Daniel Borchmann
df92555538
Add state information to eshell git prompt 2022-08-29 18:46:07 +02:00
1 changed files with 5 additions and 8 deletions
Show Stats Expand all files Collapse all files

13
site-lisp/db-eshell.el
View File

@ -82,16 +82,13 @@ git repository."
(list (list
(when (file-exists-p (file-name-concat "." ".git" "MERGE_HEAD")) (when (file-exists-p (file-name-concat "." ".git" "MERGE_HEAD"))
"merge") "merge")
(when (= 1 (call-process "git" nil nil nil (unless (= 0 (call-process "git" nil nil nil
"diff" "--no-ext-diff" "--quiet" "--exit-code")) "diff" "--no-ext-diff" "--quiet"))
"dirty") "dirty")
(when (= 1 (call-process "git" nil nil nil (unless (= 0 (call-process "git" nil nil nil
"diff" "--no-ext-diff" "--quiet" "--exit-code" "--cached")) "diff" "--no-ext-diff" "--quiet" "--cached"))
"uncommitted") "uncommitted")
(when (with-temp-buffer (unless (string-empty-p (shell-command-to-string "git stash list --quiet"))
(and (= 0 (call-process "git" nil t nil
"stash" "list"))
(not (= 0 (buffer-size)))))
"stash"))))) "stash")))))
(if state-list (if state-list
(format "%s@%s[%s]" git-branch base-dir (apply #'concat (-interpose "|" state-list))) (format "%s@%s[%s]" git-branch base-dir (apply #'concat (-interpose "|" state-list)))