(defwidget calendar-win [] (box :class "calendar-win text" (calendar))) (defwindow calendar :monitor 0 :geometry (geometry :x "0%" :y "0%" :anchor "top right" :width "0px" :height "0px") (calendar-win))