From 3c39e59cd50b58797d14b0f2630abf9f98d4302d Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Thu, 8 May 2025 23:58:32 +0100 Subject: Switch to thread-last for +eshell-prompt/--git-status --- Emacs/.config/emacs/elisp/eshell-prompt.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Emacs/.config/emacs/elisp/eshell-prompt.el') diff --git a/Emacs/.config/emacs/elisp/eshell-prompt.el b/Emacs/.config/emacs/elisp/eshell-prompt.el index ecd03c3..d0a4e91 100644 --- a/Emacs/.config/emacs/elisp/eshell-prompt.el +++ b/Emacs/.config/emacs/elisp/eshell-prompt.el @@ -82,9 +82,11 @@ number of files affected are returned in red." (defun +eshell-prompt/--git-status () "Returns a completely formatted string of form (BRANCH-NAME[REMOTE-STATUS])." - (let ((git-branch (shell-command-to-string "git branch"))) - (if (or (string= git-branch "") - (not (string= "*" (substring git-branch 0 1)))) + (let ((git-branch (thread-last + (split-string (shell-command-to-string "git branch") "\n") + (cl-remove-if (lambda (s) (= (length s) 0))) + (cl-find-if (lambda (s) (string= "*" (substring s 0 1))))))) + (if (null git-branch) "" (format "(%s<%s>[%s])" -- cgit v1.2.3-13-gbd6f