                     :type "submit"}
            [:i.fa.fa-search]]])))))
 
+(defrender article-list [data]
+  (html
+   (doc-utils/render-haml-template "article_list" data)))
+
+(defrender docs-categories [data]
+  (html
+   (doc-utils/render-haml-template "categories" data)))
+
 (defrender front-page [app owner]
   (let [query-results (get-in app state/docs-articles-results-path)
         query (get-in app state/docs-articles-results-query-path)

       [:div
        (doc-utils/render-haml-template "docs_title" {:article doc})
        (if (:category doc)
          (doc-utils/render-haml-template "article_list" (assoc doc :article doc))
          (doc-utils/render-haml-template (:slug doc) (assoc doc :article doc)))]))))

(defrender documentation [app owner opts]

      [:div.container.content
       [:div.row
        [:aside.span3
         (om/build docs-categories {:categories categories})]
        [:div.offset1.span8
         (when subpage
           (om/build docs-search app))
