(defwidget calendar-win []
  (box
    :class "calendar-win"
    (calendar)
  )
)

(defwindow calendar
  :wm-ignore true
  :monitor 0
  :geometry (geometry
    :x "0%"
    :y "0%"
    :anchor "top left"
    :width "0px"
    :height "0px"
  )
  (calendar-win)
)