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

minmo-disk-status : allow modified status to override readonly status for file-visiting buffers

Browse source
This commit is contained in:
bth 2026-07-07 10:13:49 -07:00
commit 485d78fc5a
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
minmo.el
View file

@ -279,10 +279,10 @@ Optional FORCE means ignore the minmo--git-directory-table."
(defun minmo-disk-status () (defun minmo-disk-status ()
(cond (cond
;; readonly: ;; no file, readonly, eg *Help*:
(buffer-read-only ((and (not buffer-file-name) buffer-read-only)
(minmo--status 'ignored/readonly 'disk)) (minmo--status 'ignored/readonly 'disk))
;; no file but modified: ;; no file, modified, eg *scratch*:
((and (not buffer-file-name) (buffer-modified-p)) ((and (not buffer-file-name) (buffer-modified-p))
(minmo--status 'untracked/buffer 'disk)) (minmo--status 'untracked/buffer 'disk))
;; has a path but was never visited or no longer exists. ;; has a path but was never visited or no longer exists.
@ -293,7 +293,11 @@ Optional FORCE means ignore the minmo--git-directory-table."
;; normally modified: ;; normally modified:
((and buffer-file-name (buffer-modified-p)) ((and buffer-file-name (buffer-modified-p))
(minmo--status 'modified 'disk)) (minmo--status 'modified 'disk))
;; unmodified (fallback): ;; readonly fallback, eg file-visiting buffers in read-only-mode:
;; NOTE: we allow modified status to obscure this.
(buffer-read-only
(minmo--status 'ignored/readonly 'disk))
;; unmodified fallback:
(t (minmo--status 'unmodified 'disk)) (t (minmo--status 'unmodified 'disk))
)) ))