Add status-display for waybar
This commit is contained in:
12
main.janet
12
main.janet
@@ -418,6 +418,18 @@
|
|||||||
(defn mark-dirty []
|
(defn mark-dirty []
|
||||||
(:manage-dirty (registry "river_window_manager_v1")))
|
(: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]
|
(defn action/target-in [obj list dir]
|
||||||
(let [i (or (index-of obj list) -1)]
|
(let [i (or (index-of obj list) -1)]
|
||||||
|
|||||||
Reference in New Issue
Block a user