Add status-display for waybar

main.janet

@@ -418,6 +418,18 @@
 (defn mark-dirty []
   (:manage-dirty (registry "river_window_manager_v1")))
 
+(defn status-display []
+  (def seat (first (wm :seats)))
+  (def output (seat :focused-output))
+  (string
+    ":" (output :tag-main)
+    (case (output :tag-offload)
+      :comma "<"
+      :period ">"
+      "")
+    " "
+    (string/join (map |(string ":" $) (output :tags-other)))))
+
 
 (defn action/target-in [obj list dir]
   (let [i (or (index-of obj list) -1)]