Change formatting for status display: <t
This commit is contained in:
@@ -442,11 +442,10 @@
|
|||||||
(defn status-display [output]
|
(defn status-display [output]
|
||||||
(def output (find |(= (get-in $ [:wl-output :name]) output) (wm :outputs)))
|
(def output (find |(= (get-in $ [:wl-output :name]) output) (wm :outputs)))
|
||||||
(string
|
(string
|
||||||
":" (output :tag-main)
|
":"
|
||||||
(case (output :tag-offload)
|
(if (= (output :tag-offload) :comma) "<" "")
|
||||||
:comma "<"
|
(output :tag-main)
|
||||||
:period ">"
|
(if (= (output :tag-offload) :period) ">" "")
|
||||||
"")
|
|
||||||
" "
|
" "
|
||||||
(string/join (map |(string ":" $) (filter keyword? (output :tags-other))))))
|
(string/join (map |(string ":" $) (filter keyword? (output :tags-other))))))
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user