     (render-state [this state]
       (dom/div
         #js {:className "ui segment"}
-        (dom/h2 nil "Bro.")
         (dom/div
           #js {}
-          (dom/h3 nil "A graph of your ODE solver!")
+          (dom/h3 nil title)
           (dom/svg #js {:className "ode-graph"}))))
 
     om/IWillUpdate

      (range (+ start-time timestep) end timestep))))


(defn dy-dt-1 [_ _]
  1)


  y)


;; Circle
(defn circle-dy1-dt [y1 y2 t]
  y2)

(defn circle-dy2-dt [y1 y2 t]
  (- y1))

;; FitzHugh-Nagumo Model

(defn fhn-dv [alpha epsilon Iapp]
  (fn [v w t]
    (/
      (+
        (-
          (*
            (- v)
            (- v alpha)
            (- v 1))
          w)
        Iapp)
      epsilon)))

(defn fhn-dw [gamma]
  (fn [v w t]
    (- v (* gamma w))))

;; a beautiful plotter component
(defn plotter [[labels dataset title] owner]
  (reify
    om/IInitState
    (init-state [_]
