bleh

1 files changed, 14 insertions, 1 deletions

@@ -32,6 +32,19 @@
   "Hide the `tracking-mode' information when clocked in."
   :type 'boolean)
 
+(defun format-mode-line-unescaping (construct)
+  "Return a mode-line construct as a string, but unescape `%'s."
+  (format-mode-line
+   (cond ((listp construct)
+          (cl-loop for item in construct
+                   collect (cond ((stringp item)
+                                  (string-replace "%" "%%" item))
+                                 ((and (listp item) (eq :propertize (car item)))
+                                  (format-mode-line-unescaping item))
+                                 (t item))))
+         ((stringp construct) (string-replace "%" "%%" construct))
+         (t construct))))
+
 (defun +tab-bar-tracking-mode ()
   "Display `tracking-mode-line-buffers' in the tab-bar."
   ;; TODO: write something to convert a mode-line construct to a tab-bar
@@ -45,7 +58,7 @@
                          as item = (nth i tracking-mode-line-buffers)
                          collect (append (list (intern (format "tracking-mode-line-%s" i))
                                                'menu-item
-                                                (string-trim (format-mode-line item)))
+                                                (string-trim (format-mode-line-unescaping item)))
                                          (if-let ((keymap (plist-get item 'keymap)))
                                              (list (alist-get 'down-mouse-1 (cdadr keymap)))
                                            (list #'ignore))