       [:div.created_at " created at " created_at]]))
 
 
-(defn nothing-to-read []
+(defn unread-help []
   (html
     [:div.help
       [:p "Nothing to read?"]

      [:p "You can also save articles directly from Google Reader (see the "
          (link-to "/public/google-reader.html" "instructions") ")."]]))

(defn nothing-in-archive []
  (html
    [:div.help
      [: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.help
      [:p "Nothing starred?"]

  "Show all unread articles"
  []
  (layout :unread
    (unread-help)
    (map display-article (articles/find-unread (users/current-user)))))

(defn show-starred-articles
  "Show starred articles"
  []
  (layout :starred
    (starred-help)
    (map display-article (articles/find-starred (users/current-user)))))

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

(defn new-article
