              	todo-to-map title completed todo-to-json todo-load todo-upsert
             	todo-dump todo-delete  load-all-todos gTodo-items]]))
 
-
 (declare todoDelete mk-todo-item mk-main mk-info
 	mk-dashboard mk-todo-entry)
   	

	(pln :loadedtodos-raw (count (md-get @gTodo :items-raw)))
	(pln :loadedtodos (count (md-get @gTodo :items)))

	;; todo functionalize
	(let [bits [(section (:class "todoapp")
            		(mk-todo-entry)
            		(mk-main)
					(mk-dashboard))
          		(mk-info)]
		b$ (to-html bits)]
		(pln (count bits) :b$ b$)
    	b$))

;;; --- new todo entry, validation, and storage ------------------------------------


	;; (todo-dump "landing entry")

	(comment
		(pln :truncating!!! TODO_LS_PREFIX)
		(io-truncate TODO_LS_PREFIX)

		(make-todo {:title "move North"})
