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

Add option to display point value

Browse Source
This commit is contained in:
Jessie Hildebrandt 2019-06-06 06:44:27 -04:00
parent 670f2c0c39
commit 07355d6cf8
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mood-line.el
View File

@ -67,6 +67,11 @@
"A minimal mode-line configuration inspired by doom-modeline." "A minimal mode-line configuration inspired by doom-modeline."
:group 'mode-line) :group 'mode-line)
(defcustom mood-line-show-point nil
"If t, the value of `point' will be displayed next to the cursor position in the mode-line."
:group 'mood-line
:type 'boolean)
(defface mood-line-status-grayed-out (defface mood-line-status-grayed-out
'((t (:inherit (font-lock-doc-face)))) '((t (:inherit (font-lock-doc-face))))
"Face used for neutral or inactive status indicators in the mode-line." "Face used for neutral or inactive status indicators in the mode-line."
@ -221,6 +226,12 @@
(defun mood-line-segment-position () (defun mood-line-segment-position ()
"Displays the current cursor position in the mode-line." "Displays the current cursor position in the mode-line."
(concat "%l:%c" (concat "%l:%c"
(when mood-line-show-point
(concat ":"
(propertize (format "%d" (point)) 'face (if (mood-line-is-active)
'mood-line-unimportant
'mode-line-inactive))))
" "
(propertize "%p%%" 'face (if (mood-line-is-active) (propertize "%p%%" 'face (if (mood-line-is-active)
'mood-line-unimportant 'mood-line-unimportant
'mode-line-inactive)) 'mode-line-inactive))