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

Add processing step to escape mode line constructs

Browse Source
This commit is contained in:
Jessie Hildebrandt 2023-11-20 17:40:40 -05:00
parent 8414402234
commit 78925bdb72
1 changed files with 23 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
mood-line.el
View File

@ -397,6 +397,20 @@ See `mood-line-defformat' for a helpful formatting macro."
;; ;;
;; -------------------------------------------------------------------------- ;; ;; -------------------------------------------------------------------------- ;;
(defvar mood-line--escape-buffer (get-buffer-create " *mood-line*" t)
"Buffer used by `mood-line--escape'.")
(defun mood-line--escape (&rest strings)
"Escape all mode line constructs in STRINGS."
(with-current-buffer mood-line--escape-buffer
(erase-buffer)
(apply #'insert strings)
(while (search-backward "%" nil t)
(goto-char (match-beginning 0))
(insert-char ?% 1 t)
(goto-char (- (point) 1)))
(buffer-string)))
(defun mood-line--get-glyph (glyph) (defun mood-line--get-glyph (glyph)
"Return character from `mood-line-glyph-alist' for GLYPH. "Return character from `mood-line-glyph-alist' for GLYPH.
If a character could not be found for the requested glyph, a fallback will be If a character could not be found for the requested glyph, a fallback will be
@ -418,14 +432,14 @@ for `mood-line-format', which see."
Returned string is padded in the center to fit the width of the window. Returned string is padded in the center to fit the width of the window.
Left and right segment lists of FORMAT will be processed according to the rules Left and right segment lists of FORMAT will be processed according to the rules
described in the documentation for `mood-line-format', which see." described in the documentation for `mood-line-format', which see."
(let ((left-str (mood-line--process-segments (car format))) (let ((right-str (mood-line--process-segments (cadr format))))
(right-str (mood-line--process-segments (cadr format)))) (mood-line--escape
(concat left-str (mood-line--process-segments (car format))
" " " "
(propertize " " (propertize " "
'display `((space :align-to (- right (- 0 right-margin) 'display `((space :align-to (- right (- 0 right-margin)
,(length right-str))))) ,(length right-str)))))
right-str))) right-str)))
;; -------------------------------------------------------------------------- ;; ;; -------------------------------------------------------------------------- ;;
;; ;;
@ -609,7 +623,7 @@ Modal modes checked, in order: `evil-mode', `meow-mode', `god-mode'."
(defun mood-line-segment-scroll () (defun mood-line-segment-scroll ()
"Return the relative position of the viewport in the current buffer." "Return the relative position of the viewport in the current buffer."
(format-mode-line "%o%%" 'mood-line-unimportant)) (format-mode-line "%o" 'mood-line-unimportant))
;; ---------------------------------- ;; ;; ---------------------------------- ;;
;; EOL segment ;; EOL segment