diff options
Diffstat (limited to 'lisp/+modeline.el')
| -rw-r--r-- | lisp/+modeline.el | 8 |
1 files changed, 8 insertions, 0 deletions
| diff --git a/lisp/+modeline.el b/lisp/+modeline.el index 0dc34c7..7c74f76 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el | |||
| @@ -153,5 +153,13 @@ The order of elements matters: whichever one matches first is applied." | |||
| 153 | "Display `anzu--update-mode-line'." | 153 | "Display `anzu--update-mode-line'." |
| 154 | (concat " " (anzu--update-mode-line))) | 154 | (concat " " (anzu--update-mode-line))) |
| 155 | 155 | ||
| 156 | (defun +modeline-text-scale () | ||
| 157 | "Display text scaling level." | ||
| 158 | ;; adapted from https://github.com/seagle0128/doom-modeline | ||
| 159 | (when (and (boundp 'text-scale-mode-amount) | ||
| 160 | (/= text-scale-mode-amount 0)) | ||
| 161 | (format (if (> text-scale-mode-amount 0) " (%+d)" " (%-d)") | ||
| 162 | text-scale-mode-amount))) | ||
| 163 | |||
| 156 | (provide '+modeline) | 164 | (provide '+modeline) |
| 157 | ;;; +modeline.el ends here | 165 | ;;; +modeline.el ends here |