(defpoll time :interval "10s"
"date '+%H:%M %b %d, %Y'")

(defwidget system-tray []
  (systray
    :halign "center"
  ))

(defwidget left []
  (box
    :class "panel"
    :orientation "h"
    :halign "end"
    :space-evenly false
    (system-tray)
    (label :text time)
  ))

(defwidget center []
  (box
    :class "panel"
    :halign "center"
    :space-evenly false
    (label :text "Hareworks")
  )
)

(defwidget right []
  (box
    :class "panel"
    :orientation "h"
    :halign "start"
    :space-evenly false
    (workspaces)
  )
)

(defwidget workspaces []
  (literal :content get_workspaces))

(deflisten get_workspaces `sh ~/.config/eww/bar/workspace.sh 1`)

(defwidget bar []
  (box :class "bar"
    :orientation "h"
    :hexpand true
    :space-evenly true
    (right)
    (center)
    (left)
  ))

(defwindow bar
  :monitor 1
  :geometry (geometry
    :x "0px"
    :y "8px"
    :width "2544px"
    :height "30px"
  :anchor "top center")
  :stacking "fg"
  :exclusive true
  :focusable false
  (bar))