(defpoll calendar_day :interval "20h" "date '+%d'")
(defpoll calendar_year :interval "20h" "date '+%Y'")
(defpoll HOUR :interval "5s" `date +\"%I\"`)
(defpoll MIN :interval "5s" `date +\"%M\"`)
(defpoll MER :interval "5s" `date +\"%p\"`)
(defpoll DAY :interval "5s" `date +\"%A\"`)



(defwindow example
           :monitor 0
           :geometry (geometry :width "100%"
                               :anchor "top left")
  (cal)
)

(defwidget cal []
	(box :class "cal" :orientation "v"
	(box :class "cal-in"
	(calendar :class "cal" 
			  :day calendar_day 
			  :year calendar_year))))

(defwindow quote
  :wm-ignore true
  :monitor 0
  :windowtype "dock"
  :geometry (geometry :x "200px"
                      :y "65px"
                      :width "170px"
                      :height "200px"
                      :anchor "top left")
(clock))


;(defwindow searchapps
;  :wm-ignore: true
;  :monitor 0
;  :windowtype "normal"
;  :geometry (geometry :x "40%"
;                      :y "30%"
;                      :width "20%"
;                      :height "50%"
;                      :anchor "top left")
;(searchapps))

(defpoll quote_text :interval "3600s" `curl ifconfig.me`)

(defwidget clock [] 
	(box :class "genwin" :orientation "h" :spacing 50 :space-evenly false :vexpand "false" :hexpand "false" 
		(box :orientation "h" :spacing 0
			(label :class "time_hour" :valign "start" :wrap "true" :limit-width 25 :text HOUR)
			(label :class "time_min" :valign "end" :wrap "true" :limit-width 25 :text MIN))
		(box :orientation "v" :spacing 0 
			(label :class "time_mer" :valign "start" :halign "end" :wrap "true" :limit-width 25 :text MER)
			(label :class "time_day" :valign "end" :halign "end" :wrap "true" :limit-width 25 :text DAY))))

(defwidget quote[]
  (box :class "quote" :orientation "v" :space-evenly false :halign "center" :valign "center"
    (label :class "quote-text" :text "${quote_text}" :wrap true)))