(defwindow bar
  :monitor 0
  :exclusive true
  :class "bar"
  :windowtype "dock"
  :geometry (geometry :x "0%"
                      :y "0%"
                      :width "100%"
                      :height "20px"
                      :anchor "top center")
  (bar))

;
; variables
;

(defvar tags "[1,2,3,4,5]")
(defvar tagSymbols `["一","二","三","四","五"]`)


(defwidget bar []
 (centerbox
    :orientation "h"
    (left)
    "This is *the* bar"
  ":D"))

;
;
; LEFT
;
;
(defwidget left []
 (box
  :class "left-side"
  :orientation "h"
  :space-evenly false
  :halign "start"
  :spacing 3
  (tags)))

;
; Widget that just prints all tags :D
;
(defwidget tags []
 (box
  :spacing 4
  (for idx in tags 
    (tag :id idx
      :symbol `${tagSymbols[idx - 1]}`))))

(defwidget tag [id symbol]
 (box :class "single-tag"
    {symbol}))