(local templates (require :templates))
(local html (require :vendor.html))

(fn pick-gallery-photo [list]
  (let [chosen (. list (math.random (# list)))]
    [:div {}
     [:a {:href (.. "static/" chosen.name ".webp") :target "_blank"}
      [:img {:src (.. "static/" chosen.name "-p.webp") :alt chosen.alt}]]]))

(fn content []
  [[:article {:class "article"}
    [:img {:class "logo" :src "/static/logo.svg"
           :alt "Белая жаба в мультяшном стиле с чайником на голове"}]
    [:h1 {} [:NO-ESCAPE "Чайная «Белая жаба»"]]
    [:nav {}
     [:a {:href "https://t.me/whitetoadtea"} "телеграм"]
     [:span {} "~"]
     [:a {:href "https://vk.com/whitetoadtea"} "вконтакте"]]
    [:p {}
      [:NO-ESCAPE
       (..
        "Уютная чайная комната в Омске: Омск, ул. Пушкина, д. 133/9, этаж 2. "
        "Вход с крыльца Магнита, дверь слева, домофон 4. "
        "Посещение по предварительной договоренности, стоимость 500 рублей с человека.")]]
    [:p {}
     [:a {:href "https://t.me/whitetoadvlad" :class "button"}
       "Записаться"]]]
   [:div {:class "gallery"}
    (pick-gallery-photo [{:name "people" :alt "Люди в чайной"}
                         {:name "gaiwan2" :alt "Близко сфотографированный чайный столик с пиалами и гайванью"}
                         {:name "teapot2" :alt "Пиала и чайник на фоне гирлянды"}])
    (pick-gallery-photo [{:name "table" :alt "Сфотографированные сверху пиалы на японском столике"}])
    [:div {}
     [:video {:autoplay true :loop true :muted true}
      [:source {:src "static/boiling-p.webm" :type "video/webm"}]]]
    (pick-gallery-photo [{:name "gaiwan" :alt "Гайвань и ширма с гирляндами на фоне"}
                         {:name "wall" :alt "Белая стена с веером и тенью окна"}
                         {:name "teapot" :alt "Чайник в темноте на светлом фоне гирлянд"}
                         {:name "teapot3" :alt "Чайник в руке на фоне растений"}])
    (pick-gallery-photo [{:name "rack" :alt "Стеллаж с чайной посудой"}
                         {:name "flowers" :alt "Ваза с цветами рядом с чайным столиком"}])
    [:div {}
     [:video {:autoplay true :loop true :muted true}
      [:source {:src "static/gaiwan-p.webm" :type "video/webm"}]]]]])

(fn render [request]
 (values 200 {} (html.render (templates.base-template (content)) true)))

{: render}