   			[bide.core :as r]
   			[tiltontec.util.core :refer [pln any-ref? xor]]
   			[tiltontec.cell.base :refer [unbound ia-type]]
-  			[tiltontec.cell.core :refer-macros [c? c?n]
-  								:refer [c-in]]
+  			[tiltontec.cell.core :refer-macros [c? c?n] :refer [c-in]]
   			[tiltontec.model.core
   			 :refer [*par* fget fasc make md-reset! md-get kid-values-kids]]
             [tag.html :refer [tag  to-html on-evt tag-dom fm-asc-tag


(defn todo-edit [e td-key]
	(let [edom (.-target e)
		  title (.-value edom)
		  td (gTodo-lookup td-key)
		  li-dom (dom-ancestor-by-tag edom "li")]
		(cond

	(when (= (.-key e) "Enter")
		;;(pln :enter!!! e (.-target e) (.-value (.-target e)))
		(let [raw (.-value (.-target e))
			  title (str/trim raw)]
			(if (= title "")
				(when (pos? (count raw))
					(.alert js/window "A reminder to do nothing? Are we relaxing yet? So, no."))
				(md-reset! @gTodo :items-raw
					(conj (md-get @gTodo :items-raw)
						(make-todo {:title title}))))
