jessieh/mood-line
jessieh/mood-line
1
Fork 1
Code Issues 4 Pull Requests Releases Activity

Merge branch 'master' into 'patch-comments'

Browse Source 
# Conflicts:
#   mood-line.el
This commit is contained in:
Jessie Hildebrandt 2022-12-20 21:25:35 +00:00
commit 846db57dd9
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
mood-line.el
View File

@ -98,27 +98,27 @@
:group 'mood-line) :group 'mood-line)
(defface mood-line-status-neutral (defface mood-line-status-neutral
'((t (:inherit (shadow)))) '((t (:inherit (shadow) :weight normal)))
"Face used for neutral or inactive status indicators." "Face used for neutral or inactive status indicators."
:group 'mood-line) :group 'mood-line)
(defface mood-line-status-info (defface mood-line-status-info
'((t (:inherit (font-lock-keyword-face)))) '((t (:inherit (font-lock-keyword-face) :weight normal)))
"Face used for generic status indicators." "Face used for generic status indicators."
:group 'mood-line) :group 'mood-line)
(defface mood-line-status-success (defface mood-line-status-success
'((t (:inherit (success)))) '((t (:inherit (success) :weight normal)))
"Face used for success status indicators." "Face used for success status indicators."
:group 'mood-line) :group 'mood-line)
(defface mood-line-status-warning (defface mood-line-status-warning
'((t (:inherit (warning)))) '((t (:inherit (warning) :weight normal)))
"Face for warning status indicators." "Face for warning status indicators."
:group 'mood-line) :group 'mood-line)
(defface mood-line-status-error (defface mood-line-status-error
'((t (:inherit (error)))) '((t (:inherit (error) :weight normal)))
"Face for error status indicators." "Face for error status indicators."
:group 'mood-line) :group 'mood-line)
@ -128,7 +128,7 @@
:group 'mood-line) :group 'mood-line)
(defface mood-line-modified (defface mood-line-modified
'((t (:inherit (error)))) '((t (:inherit (error) :weight normal)))
"Face used for the 'modified' indicator symbol." "Face used for the 'modified' indicator symbol."
:group 'mood-line) :group 'mood-line)
@ -235,17 +235,16 @@ The modeline should fit the `window-width' with space between the lists."
"Display color-coded anzu status information." "Display color-coded anzu status information."
(when (and (boundp 'anzu--state) anzu--state) (when (and (boundp 'anzu--state) anzu--state)
(cond ((eq anzu--state 'replace-query) (cond ((eq anzu--state 'replace-query)
(format #("Replace: %d " 0 11 (face mood-line-status-warning)) anzu--cached-count)) (format #("Replace×%d " 7 10 (face mood-line-status-info)) anzu--cached-count))
(anzu--overflow-p (anzu--overflow-p
(format #("%d/%d+ " 0 3 (face mood-line-status-info) 3 6 (face mood-line-status-error)) anzu--current-position anzu--total-matched)) (format #("%d/%d+ " 0 2 (face mood-line-status-info) 3 6 (face mood-line-status-error)) anzu--current-position anzu--total-matched))
(t (t
(format #("%d/%d " 0 5 (face mood-line-status-info)) anzu--current-position anzu--total-matched))))) (format #("%d/%d " 0 2 (face mood-line-status-info)) anzu--current-position anzu--total-matched)))))
(defun mood-line-segment-multiple-cursors () (defun mood-line-segment-multiple-cursors ()
"Display the number of active multiple-cursors." "Display the number of active multiple-cursors."
(when (and (boundp 'multiple-cursors-mode) multiple-cursors-mode) (when (and (boundp 'multiple-cursors-mode) multiple-cursors-mode)
(concat "MC" (format #("MC×%d " 2 5 (face mood-line-status-info)) (mc/num-cursors))))
(format #("×%d " 0 3 (face mood-line-status-warning)) (mc/num-cursors)))))
(defun mood-line-segment-position () (defun mood-line-segment-position ()
"Display the current cursor position." "Display the current cursor position."