 
 (defn value-tag [{:keys [tag-value]}]  
   (let [value (map keyword (.split tag-value "\\."))]
-    (fn [params] (get-in params value))))
+    (fn [args] (get-in args value))))
 
 #_((value-tag {:tag-value "foo.bar.baz"}) {:foo {:bar {:baz "ok"}}})
+;ok
 #_((value-tag {:tag-value "foo"}) {:foo "ok"})
 ;ok
 


(declare parse expr-tag)

(defn render [template params]  
  (->> (for [element template] 
         (if (string? element) element (element params)))
       (apply str)))

(defn read-char [rdr]

                (do
                  (.append sb ch)
                  (recur state (.read rdr)))))))
        (conj! template (.toString sb))
        (persistent! template))))

#_(render (parse "home.html") {:name "Bob"})
