        (map 
         (fn [prj]
           (accordion-panel
-           :header (project-header (get prj "id") prj)
+           :header (project-header prj)
            :body (actions-table (get prj "id") (get prj "actions"))
            :body-id (str "__" (get prj "name"))))
         (:projects data))))))

  (dom/p nil
         (get action "type")))


(defn actions-table [id actions]
  (let [rendered 

    (apply dom/div #js {:className "row"}
           (concat rendered
                   [(dom/div #js {:className "col-md-4"} 
                             (add-new-action id))]))))                   

(defn project-header [project]
  (dom/div #js {:className "project-header"}
   (dom/p nil (get project "name"))
   (dom/span #js {:className "glyphicon glyphicon-pencil project-header-button"})))
