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

      (text-area "summary")
      [:br]
      (submit-button "save"))))

(defn edit-article
  "Display HTML form to edit an article"
  [id]
  (let [article (articles/get-article id)]
    (layout "Edit Post"
      (form-to [:post (str "/api/article/" id)]
        [:input {:type "hidden" :name "id" :value (:id article)}]
        [:label "Location:"]

  (html
    [:head
      [:title app-name]
      (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)
