jjanzen/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

system changes

Browse source
This commit is contained in:
jjanzen 2025-03-26 13:38:45 -05:00
parent 5569808250
commit c2af68d075
1 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
common/.config/emacs/init.el.org
View file

@ -446,22 +446,25 @@ Define functions for my =eshell= prompt. =jj/shorten-path-str= takes only the fi
(match-string 1 (shell-command-to-string "git status")))) (match-string 1 (shell-command-to-string "git status"))))
(git-status (s-trim (shell-command-to-string "git status"))) (git-status (s-trim (shell-command-to-string "git status")))
(outofsync (if (string-match-p "use \"git push\" to publish your local commits" git-status) (outofsync (if (string-match-p "use \"git push\" to publish your local commits" git-status)
" " (concat " " (propertize "" 'font-lock-face '(:family "Symbols Nerd Font Mono" :foreground "dark green")))
"")) ""))
(staged (if (string-match-p "Changes to be committed:" git-status) (staged (if (string-match-p "Changes to be committed:" git-status)
" " (concat " " (propertize "" 'font-lock-face '(:family "Symbols Nerd Font Mono" :foreground "orange")))
"")) ""))
(unstaged (if (string-match-p "Changes not staged for commit:" git-status) (unstaged (if (string-match-p "Changes not staged for commit:" git-status)
" " (concat " " (propertize "" 'font-lock-face '(:family "Symbols Nerd Font Mono" :foreground "magenta")))
"")) ""))
(untracked (if (string-match-p "Untracked files:"git-status) (untracked (if (string-match-p "Untracked files:"git-status)
" " (concat " " (propertize "" 'font-lock-face '(:family "Symbols Nerd Font Mono" :foreground "dark red")))
""))) "")))
(concat (propertize (concat " " git-branch) 'font-lock-face '(:foreground "blue")) (concat " "
(propertize outofsync 'font-lock-face '(:font "Symbols Nerd Font Mono" :foreground "dark green")) (propertize "" 'font-lock-face '(:family "Symbols Nerd Font Mono" :foreground "blue"))
(propertize staged 'font-lock-face '(:font "Symbols Nerd Font Mono" :foreground "orange")) (propertize git-branch 'font-lock-face '(:foreground "blue"))
(propertize unstaged 'font-lock-face '(:font "Symbols Nerd Font Mono" :foreground "magenta")) outofsync
(propertize untracked 'font-lock-face '(:font "Symbols Nerd Font Mono" :foreground "dark red")))))) staged
unstaged
untracked))))
#+end_src #+end_src
Install and configure =eat= as a terminal emulator in Emacs with =eshell= as a shell. Install and configure =eat= as a terminal emulator in Emacs with =eshell= as a shell.
@ -483,7 +486,7 @@ Install and configure =eat= as a terminal emulator in Emacs with =eshell= as a s
(concat (jj/shorten-path-str (eshell/pwd)) (concat (jj/shorten-path-str (eshell/pwd))
(jj/curr-dir-git-branch (eshell/pwd)) (jj/curr-dir-git-branch (eshell/pwd))
(unless (eshell-exit-success-p) (unless (eshell-exit-success-p)
(format " [%d]" eshell-last-command-status)) (propertize (format " [%d]" eshell-last-command-status) 'font-lock-face '(:foreground "dark red")))
(if (= (file-user-uid) 0) " # " " $ ")))) (if (= (file-user-uid) 0) " # " " $ "))))
:config :config