   (html
     [:head
       [:title app-name]
-      (include-js "public/j/jquery.js"
-                  "public/j/instapapure.js")
-      (include-css "public/s/instapapure.css")
+      (include-js "/public/j/jquery.js"
+                  "/public/j/instapapure.js")
+      (include-css "/public/s/instapapure.css")
       "<meta name=viewport content='initial-scale=1.0'>"]
     [:body
         (header title)

)

(defn star-image [displayed]
  [:img.star {:src "public/i/star.png"
              :title "Unstar it"
              :style (str "display: " (if displayed "inline" "none"))}])
(defn star-empty-image [displayed]
  [:img.star-empty {:src "public/i/star-empty.png"
              :title "Sar it"
              :style (str "display: " (if displayed "inline" "none"))}])
(def delete-image
  [:img.delete {:src "public/i/cross.png" :title "Delete it"}])

(defn header
  "HTML header common to all pages"

(defn create-article
  "Display HTML form to create a new article"
  []
  (layout :new-article
    (form-to [:get "/api/article/new"]
      [:label "Location:"]
      [:input {:type "text" :name "location"}]
