 	(when (= (.-key e) "Enter")
 		;;(pln :enter!!! e (.-target e) (.-value (.-target e)))
 		(let [raw (.-value (.-target e))
-				title (str/trim raw)]
+			  title (str/trim raw)]
 			(if (= title "")
 				(when (pos? (count raw))
-					(.alert js/window "A reminder to do nothing? No sure we are relaxing yet. So, no."))
+					(.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}))))

            [todo.util :refer [pln json-to-map map-to-json uuidv4 now]]
            [todo.io :refer [io-all-keys io-truncate io-find io-upsert
            				io-read io-clear-storage]]

            [todo.todo :refer
             	[gTodo gTodo-lookup TODO_LS_PREFIX make-todo
             	todo-to-map title completed todo-to-json todo-load todo-upsert
            	todo-dump todo-delete  load-all-todos gTodo-items]]))


		  li (fm-asc-tag lbl "li")
		  edt-doms (.getElementsByClassName (tag-dom li) "edit")
		  edom (.item edt-doms 0)]
		(.add (.-classList (tag-dom li)) "editing")
		(.focus edom)
		(.setSelectionRange edom 0 (.-length (.-value edom)))))

(defn todo-item-display-rule []
	(c? (let [f (fget (fn [x] (when (= (md-get x :class) "filters")
							true)) me
						:upp? true)]
			(let [sel (md-get f :selection)]
				(if (or (= sel "All")
						(let [td (md-get me :todo)]
