(defpoll rat_image :interval "60s"
  'random-image -d ~/Pictures/Phone/Albums/Rattos/ -s 300 -r')
(defwidget rat []
  (box :class "ratcontainer"
    :width 300
    :height 300
  (box
    :class "rat"
    :orientation "h"
    :style "background-image: url('${rat_image}');")))