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

minmo : redraw mode-line when status cache changes

Browse source
This commit is contained in:
bth 2026-06-02 12:55:13 -07:00
commit 7acccf6263
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
packages/minmo.el
View file

@ -108,8 +108,10 @@ filesystem FSTYPE, 'git or 'disk."
;; NOTE: this is cached via vc-file-prop-obarray ;; NOTE: this is cached via vc-file-prop-obarray
(setq minmo--vc-branch-cache (minmo--fetch-vc-branch buffer-file-name)) (setq minmo--vc-branch-cache (minmo--fetch-vc-branch buffer-file-name))
;; NOTE: this is not cached and will run git: ;; NOTE: this is not cached and will run git:
(let ((status (vc-git-state buffer-file-name))) (let ((status (vc-git-state buffer-file-name))
(old minmo--vc-status-cache))
(setq minmo--vc-status-cache (setq minmo--vc-status-cache
(concat " " (pcase status (concat " " (pcase status
('up-to-date (minmo--status 'unmodified 'git)) ('up-to-date (minmo--status 'unmodified 'git))
@ -119,7 +121,10 @@ filesystem FSTYPE, 'git or 'disk."
('conflict (minmo--status 'modified/staged 'git)) ('conflict (minmo--status 'modified/staged 'git))
('unregistered (minmo--status 'nofile/untracked 'git)) ('unregistered (minmo--status 'nofile/untracked 'git))
('ignored (minmo--status 'readonly/ignored 'git)) ('ignored (minmo--status 'readonly/ignored 'git))
(_ (minmo--status 'unmodified 'git)))))))) (_ (minmo--status 'unmodified 'git)))))
;; redraw only when it changed:
(when (not (string= old minmo--vc-status-cache))
(force-mode-line-update)))))
;; NOTE: update the cache with file changes ;; NOTE: update the cache with file changes
(add-hook 'find-file-hook #'minmo--update-vc-cache) (add-hook 'find-file-hook #'minmo--update-vc-cache)