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

minmo : status notes

Browse source
This commit is contained in:
bth 2026-05-28 15:01:47 -07:00
commit c2daac922c
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
packages/minmo.el
View file

@ -40,6 +40,10 @@
;; top ◰◳ : new/ignored : clean ;; top ◰◳ : new/ignored : clean
;; bottom ◱◲ : staged/untracked : dirty ;; bottom ◱◲ : staged/untracked : dirty
;; NOTE: "clean" is not quite right, since a newly added file, staged, is still
;; a dirty repo. but vc-state doesn't tell us whether a modified file is staged
;; or unstaged.
(defconst minmo-status-alist (defconst minmo-status-alist
'( '(
(unmodified . (((unicode . "◻") (ascii . ".")) . ((disk . nil) (git . nil)))) (unmodified . (((unicode . "◻") (ascii . ".")) . ((disk . nil) (git . nil))))
@ -103,6 +107,8 @@ Uses the fast `vc-state' cache rather than synchronous git calls."
(concat " " (pcase state (concat " " (pcase state
;; NOTE: vc-mode adds its own space prefix to vc-git-mode-line-string: ;; NOTE: vc-mode adds its own space prefix to vc-git-mode-line-string:
('up-to-date (minmo--status 'unmodified 'git)) ('up-to-date (minmo--status 'unmodified 'git))
;; NOTE: vc-state does not distinguish between staged
;; and unstaged:
('edited (minmo--status 'modified/staged 'git)) ('edited (minmo--status 'modified/staged 'git))
('added (minmo--status 'new 'git)) ('added (minmo--status 'new 'git))
('needs-merge (minmo--status 'modified/staged 'git)) ('needs-merge (minmo--status 'modified/staged 'git))