(defwindow calendar
  :monitor 0
  :geometry (geometry
    :x "0%"
    :y "0%"
  	:anchor "bottom right"
    :width "0px"
    :height "0px")
  (window (calendar)))