       (text-area "summary")
       [:br]
       (submit-button "save"))))
-            
+
 (defn edit-article
   "Display HTML form to edit an article"
   [id]

        whether they have been read or not"]
      [:p "To \"unstar\" a starred article, click on " (star-image true) "."]]))

(defn show-unread-articles
  "Show all unread articles"
  []
  (let [articles (articles/find-unread (users/current-user))]
    (layout :unread
      (if (empty? articles)
        (nothing-to-read)
        (map display-article articles)))))

(defn show-read-articles
  "Show the archive with all read articles"
  []
  (layout :archive
    (map display-article (articles/find-read (users/current-user)))))

(defn show-starred-articles
  "Show starred articles"
  []
  (let [articles (articles/find-starred (users/current-user))]
    (layout :starred
      (if (empty? articles)
        (nothing-starred)
        (map display-article articles)))))

(defn new-article
  "Create a new article"

        find a good article you want to read later"]
      [:p "You can also save articles directly from Google Reader."]]))

(defn nothing-in-archive []
  (html
    [:div.advice
      [:p "Nothing in the archive?"]
      [:p "When you have read an unread article, it will be moved to the archive.
          It will remain there until you delete it."]]))

(defn nothing-starred []
  (html
    [:div.advice
