clojurecup2014-luduverse/src/luduverse/pages.clj

17 lines
579 B
Clojure

(ns luduverse.pages
(:require [net.cgrand.enlive-html :as html]))
(html/deftemplate landingpage-template "templates/landingpage.html" [])
(html/defsnippet item-model "templates/results.html" [:div#results :> :div]
[id image-path username title]
[:img] (html/set-attr :src image-path)
[:p] (html/content username)
[:span] (html/content title))
(html/deftemplate results-template "templates/results.html"
[search-term hits results]
[:form#search :> :input#term] (html/set-attr :value search-term)
;[:div#results (html/content (map #(item-model %) results))]
)