      (some (fn [[name script]]
              (when-let [script-loc (script el-loc)]
                [(name script-loc) script-loc]))
-           channel-deconstructors))
-   true))
+           channel-deconstructors))))
 
 (comment
 

   el-loc
   (fn [el-loc]
     (when-let [script-loc (cdzx/xml1-> el-loc :properties :code)]
       [(cdzx/xml1-> el-loc :name cdzx/text) script-loc]))
   false))

(defn name-script-sequence
  "Take a script loc to find and build the script name."

   el-loc
   (fn [el-loc]
     (when-let [name-loc (cdzx/xml1-> el-loc :entry :string)]
       [(cdzx/text name-loc) (cz/right name-loc)]))))

(defmethod mi/deconstruct-node :code-templates [_ file-path el-loc]
  (deconstruct-node
