 ;;*********************************************************
 
 (defn match-pattern [x]
-  (if (= (namespace (:type x)) "match")
-    (condp = (:type x)
-      :match/bind (dom [:span {:className "param"} (:var x)])
-      (pr-str x))
-    (item-ui x)))
+    (item-ui x))
 
 (defn branch-result [branch path]
   (if (-> branch :node :type (= :ref))


(defdom editing-view []
  [:div
   (steps-workspace (current :page))
   (step-canvas (current :step) (:step @aurora-state))])

(defdom new-step-helper []

           [:span {:className "native"} "Native method"])])))


(defdom page-steps [page path]
   [:ul {:className "steps"}
     (each [step (from-index (:steps page))]
           (step-list-item step (update-path path {:step index
                                                   :step-var (:id step)}))
           )])

(defdom steps-list [page]
  [:div {:className (str "workspace" (when (:steps @aurora-state)
                                       " active"))}

   [:div {:className "steps-container"}
    (page-steps page [{:notebook (:notebook @aurora-state)
                        :page (:page @aurora-state)}])]
     ])

