Next: Use markup in status view.

2020-04-26 22:13:17 +02:00 · 2020-04-26 22:13:17 +02:00 · 10752ba224
parent dbc05b03e3
commit 10752ba224
1 changed files with 13 additions and 9 deletions
--- a/.config/next/init.lisp
+++ b/.config/next/init.lisp
@ -189,15 +189,19 @@ format."
                                               #'<
                                               :key #'id))
                               0))))
-    (format nil "[~{~a~^ ~}] (~a/~a) ~a — ~a"
-            (mapcar (lambda (m) (str:replace-all "-mode" ""
-                                                 (str:downcase
-                                                  (class-name (class-of m)))))
-                    (modes buffer))
-            buffer-count
-            (hash-table-count (buffers *browser*))
-            (url buffer)
-            (title buffer))))
+    (str:concat
+     (markup:markup
+      (:b (format nil "[~{~a~^ ~}]"
+                  (mapcar (lambda (m) (str:replace-all "-mode" ""
+                                                       (str:downcase
+                                                        (class-name (class-of m)))))
+                          (modes buffer)))))
+     (format nil " (~a/~a) ~a — ~a"
+             buffer-count
+             (hash-table-count (buffers *browser*))
+             (url buffer)
+             (title buffer)))))

 (define-configuration window
  ((status-formatter #'my-format-status)))
+