        (rule "add draw clause"
              (when "add clause" {:rule-id 'rule :madlib-id 'madlib :type "draw"})
              (when "time" {:time 'timestamp})
-             (func 'rootClause "aurora.util.core.new_id()")
-             (func 'elemClause "aurora.util.core.new_id()")
+             (func 'rootClause "'draw root' + rule + madlib + timestamp")
+             (func 'elemClause "'elem clause' + rule + madlib + timestamp")
              (func 'elemClause2 "elemClause")
              (remember "ui/editor-root" {:rule-id 'rule :clause-id rootClause :root elemClause :timestamp 'timestamp})
              (remember "ui/editor-elem" {:rule-id 'rule :root-clause-id rootClause :clause-id 'elemClause})

       (rule "add change clause"
             (when "add clause" {:rule-id 'rule :madlib-id 'madlib :type "change"})
             (when "time" {:time 'timestamp})
             (func 'rootClause "aurora.util.core.new_id()")
             (func 'toClause "aurora.util.core.new_id()")
             (func 'fromClause "aurora.util.core.new_id()")
             (remember "change clauses" {:rule-id 'rule :clause-id 'rootClause :from|to "from" :table 'madlib :sub-clause-id 'fromClause :timestamp 'timestamp})
             (remember "change clauses" {:rule-id 'rule :clause-id 'rootClause :from|to "to" :table 'madlib :sub-clause-id 'toClause :timestamp 'timestamp})
             (pretend "add clause placeholders" {:rule-id 'rule :madlib-id 'madlib :clause-id rootClause})

             (when "rule editor active" {:rule-id rule})
             (when "cursor" {:clause-id 'rid})
             (when "draw editor active elem" {:elem-id 'elem})
             (func 'clause "'event' + rule + rid + elem + event")
             (remember "ui/editor-event-listener" {:rule-id 'rule :clause-id 'clause :root-clause-id 'rid})
             (remember "editor clause fields" {:rule-id rule :clause-id clause :constant|variable|expression "constant" :val "" :key "entity"})
             (remember "editor clause fields" {:rule-id rule :clause-id clause :constant|variable|expression "constant" :val "" :key "event-key"})
