(ns lezer.view.book
  (:require phel.html :refer [html doctype]))

(defn book-html [book]
  (html
   (doctype :html5)
   [:html
    [:head
     [:title (str "Book: " (:title book) " - Lezer")]]
    [:body
     [:h1 (:title book)]
     [:h2 "Authors"]
     [:ul
      (for [author :in (:authors book)]
        [:li (:name author)])]
     [:h2 "Sessions"]
     [:ul
      (for [session :in (:sessions book)]
        [:li
         (:status session)
         ": "
         (:started_at session)])]]]))