 
 (defn ^:nrepl sayid-trace-ns-in-file
   [{:keys [transport file] :as msg}]
-  (println "sayid-trace-ns-in-file")
-  (println file)
   (->> file
        find-ns-sym
-       (#(do (println %) %))
        sd/ws-add-trace-ns!*)
   (send-status-done msg))
 


(defn ^:nrepl sayid-trace-ns-by-pattern
  [{:keys [transport ns-pattern ref-ns] :as msg}]
  (println ns-pattern)
  (mapv #(-> %
             str
             symbol


(defn find-ns-sym
  [file]
  (some->> file
           slurp
           (re-find #"\(ns\s+(.+)\b")
