        (finally
          (send-status-done msg))))
 
-(defn sayid-query-form-at-point
+(defn ^:nrepl sayid-query-form-at-point
   [{:keys [file line] :as msg}]
   (reply:clj->nrepl msg
                     (-> (sd/ws-query-by-file-pos file line)

                                   (repeat {:doc "docs?"
                                            :returns {}
                                            :requires {}}))})

#_ (
    "
TODO
x eval-last-exp -- with trace ns in dir
- eval-last-exp -- with trace all proj ns
x query for form at point
- query for form at point -- with modifiers
x force replay for inner form query
- indicate funcs that were re-ran
x include meta in string responses
x jump to func/form from sayid buffer
- def captured value from sayid buffer



"




     )

  (t/send transport (response-for msg :value "Def'd as $s/*"))
  (send-status-done msg))

(defn ^:nrepl sayid-buf-pprint-at-point
  [{:keys [transport trace-id path] :as msg}]
  (let [path' (str-vec->arg-path path)
        value (-> [:id (keyword trace-id)] ;;TODO use intern
