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

defcustom all the faces

Browse source
This commit is contained in:
bth 2026-06-09 14:57:55 -07:00
commit 33a3e603eb
1 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

20
minmo.el
View file

@ -25,9 +25,13 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; buffer-name ;;; buffer-name
(defcustom minmo-buffer-name-face 'success "face for `buffer-name'."
:type '(symbol)
:group 'minmo)
(defun minmo-buffer-name () (defun minmo-buffer-name ()
(if (mode-line-window-selected-p) (if (mode-line-window-selected-p)
(propertize (buffer-name) 'face 'success) (propertize (buffer-name) 'face minmo-buffer-name-face)
(buffer-name))) (buffer-name)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -397,9 +401,15 @@ Optional FORCE means ignore the minmo--git-directory-table."
:type '(string) :type '(string)
:group 'minmo) :group 'minmo)
(defcustom minmo-input-method-face 'warning "face for input method."
:type '(symbol)
:group 'minmo)
(defun minmo-input-method () (defun minmo-input-method ()
(when current-input-method-title (when current-input-method-title
(concat (propertize current-input-method-title 'face 'warning) minmo-input-method-suffix) (concat
(propertize current-input-method-title 'face minmo-input-method-face)
minmo-input-method-suffix)
)) ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -417,6 +427,10 @@ Optional FORCE means ignore the minmo--git-directory-table."
(defvar-local minmo--total-lines-cache nil (defvar-local minmo--total-lines-cache nil
"Cached total line count for the current buffer.") "Cached total line count for the current buffer.")
(defcustom minmo-narrow-face 'warning "face for narrow notifier."
:type '(symbol)
:group 'minmo)
(defun minmo--cache-total-lines () (defun minmo--cache-total-lines ()
"Refresh the total line count cache." "Refresh the total line count cache."
;; 'line-number-at-pos' is C-level: ;; 'line-number-at-pos' is C-level:
@ -430,7 +444,7 @@ Optional FORCE means ignore the minmo--git-directory-table."
(defun minmo-narrow-or-linecol-total () (defun minmo-narrow-or-linecol-total ()
(when buffer-file-name (when buffer-file-name
(if (buffer-narrowed-p) (if (buffer-narrowed-p)
(propertize "%n" 'face 'warning) (propertize "%n" 'face minmo-narrow-face)
;; consult preview won't have filled out minmo--total-lines-cache: ;; consult preview won't have filled out minmo--total-lines-cache:
(when minmo--total-lines-cache (when minmo--total-lines-cache
(concat minmo-line-column-format (concat minmo-line-column-format