 (declare aurora-state)
 (declare aurora-state)
 
-(defmulti step-list-item #(-> % :node :type))
-(defmulti step-description #(-> % :node :type))
+(defmulti step-list-item :type)
+(defmulti step-description :type)
 
 (defmethod step-list-item :default [step]
   (dom

      (update-index! notebook [:pages] conj (:id page))
      page)))

(defn add-step! [notebook-id page-id info])

;;*********************************************************
;; Aurora state (storage!)

   (sub-step step path)
   ))

(defmethod step-description :call [step path]
  (dom
      [:p {:className "desc"}
       (ref->name (:ref step))
       (each [input (:args step)]
             [:span {:className "prev"} input])]))

;;*********************************************************
