17 lines
579 B
Clojure
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))]
|
|
)
|