diff options
Diffstat (limited to 'src/view')
| -rw-r--r-- | src/view/book.phel | 11 | ||||
| -rw-r--r-- | src/view/main.phel | 4 |
2 files changed, 14 insertions, 1 deletions
diff --git a/src/view/book.phel b/src/view/book.phel new file mode 100644 index 0000000..79341ad --- /dev/null +++ b/src/view/book.phel @@ -0,0 +1,11 @@ +(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)]]])) diff --git a/src/view/main.phel b/src/view/main.phel index e25a079..9301bbc 100644 --- a/src/view/main.phel +++ b/src/view/main.phel @@ -31,7 +31,9 @@ [:main [:ul (for [b :in books] - [:li (:title (:book b)) + [:li + [:a {:href (r/generate router :book {:id (:id (:book b))})} + (:title (:book b))] " by " (authors-list (:authors b) router) " " |