From b11adad984e8160e366d7e154d12c378a9545b9a Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 13 Dec 2021 10:29:50 -0600
Subject: Lots of changes, most interestingly browse-url stuff

---
 lisp/+modeline.el | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lisp/+modeline.el')

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."
   "Display `anzu--update-mode-line'."
   (concat " " (anzu--update-mode-line)))
 
+(defun +modeline-text-scale ()
+  "Display text scaling level."
+  ;; adapted from https://github.com/seagle0128/doom-modeline
+  (when (and (boundp 'text-scale-mode-amount)
+             (/= text-scale-mode-amount 0))
+    (format (if (> text-scale-mode-amount 0) " (%+d)" " (%-d)")
+            text-scale-mode-amount)))
+
 (provide '+modeline)
 ;;; +modeline.el ends here
-- 
cgit 1.4.1-21-gabe81