bth/minmo
Watch
1
Fork
You've already forked minmo
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

minmo : add space before un/tracked status

Browse source
This commit is contained in:
bth 2026-05-27 12:40:46 -07:00
commit 6a2f2f38f0
1 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
packages/minmo.el
View file

@ -89,7 +89,7 @@ Uses the fast `vc-state' cache rather than synchronous git calls."
(let* ((state (vc-state file)))
(setq minmo--vc-branch-cache (minmo--fetch-vc-branch file))
(setq minmo--vc-tracked-cache
(pcase state
(concat " " (pcase state
;; NOTE: vc-mode adds its own space prefix to vc-git-mode-line-string:
('up-to-date (minmo--status 'unmodified 'git))
('edited (minmo--status 'modified/staged 'git))
@ -97,7 +97,7 @@ Uses the fast `vc-state' cache rather than synchronous git calls."
('needs-merge (minmo--status 'modified/staged 'git))
('conflict (minmo--status 'modified/staged 'git))
(_ (minmo--status 'unmodified 'git))
))))
)))))
;; NOTE: :override replaces the function
(advice-add #'vc-git-mode-line-string :override #'minmo--vc-tracked-status-override)
@ -128,11 +128,11 @@ Uses the fast `vc-state' cache rather than synchronous git calls."
(let ((state (vc-git-state buffer-file-name)))
(setq minmo--vc-branch-cache (minmo--fetch-vc-branch buffer-file-name))
(setq minmo--vc-untracked-cache
(pcase state
(concat " " (pcase state
;; NOTE: we need the space prefix to match the output of vc-mode:
('unregistered (minmo--status 'nofile/untracked 'git))
('ignored (minmo--status 'readonly/ignored 'git))
(_ nil))))))
(_ nil)))))))
;; NOTE: update the state when the file state changes
;; this is the only remaining part of this approach which is somewhat hacky, in