   (fn [event reactid]
     (render-grid (f column-key))))
 
-(defn create-email-column-renderer [column-key]
-  (fn [key]
-    (d/a {:className "byline" :href key} key)))
+(defn link-renderer [val]
+  (d/a {:className "byline" :href val} val))
 
 (def my-data {:data [{:name "John Doe"
                       :email "user@email.com"

                                      :onClick (:onClick h)} (:title h)))
                       header))))

(q/defcomponent Grid
  [model]
  (let [header-meta (get-in model [:meta :header])]
    (d/div {:className "panel panel-default"}
           (d/div {:className "panel-heading"}
                  "SuperAmazing ClojureScript w/React grid")
           (d/table {:className "table"}
                    (render-header header-meta)
                    (apply d/tbody {}
                           (map (fn [d]
                                  (User d header-meta)) (:data model)))))))

(defn render-grid [grid-data]
  (q/render (Grid grid-data)


(enable-console-print!)

(q/defcomponent Row
  [data header-meta]
  (apply d/tr {}
         (map (fn [header] (d/td {} ((get header :renderer identity)
                                     ((:key header) data))))
              header-meta)))

(defn render-header [header]
  (d/thead {}
