                                    (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 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

       sd/ws-add-trace-ns!*)
  (send-status-done msg))

(defn ^:nrepl sayid-remove-all-traces
  [{:keys [transport] :as msg}]
  (sd/ws-remove-all-traces!)
  (send-status-done msg))

(defn ^:nrepl sayid-disable-all-traces
  [{:keys [transport] :as msg}]
  (sd/ws-disable-all-traces!)
  (send-status-done msg))

(defn ^:nrepl sayid-set-printer
  [{:keys [transport printer] :as msg}]
  (println printer)
  (if (.startsWith printer ".")
