 
 (idx-to-pos "(+ 1 2)\n a" 13)
 
-(find-form-offsets "(+ 1 2)\n a")
+(find-form-offsets " (+ 1 2)\n a")
 
-(eval-from-text "(+ 1 2)\n a" 0 0)
+(eval-from-text " (+ 1 2)\n a" 0 0)





(defn eval-from-text [text line pos]

  (let [ffo (find-form-offsets text)
        idx (pos-to-idx text line pos)
        [s e :as fo]  (last (filter #(>= idx (first %)) ffo))
        f   (.substring text s e)
        ]
    (assoc (fo-to-info  fo text) :eval (str (eval (read-string f))))

  ))


(ns introclojure.eval
  (:require [net.cgrand.sjacket :as sj]
            [net.cgrand.sjacket.parser :as p]
            [clojure.string]
            [clojure.pprint]))


(defn pos-to-idx [text line pos]
