Add more functions to cljs.storm.api

src/main/clojure/cljs/storm/api.clj

@@ -2,29 +2,56 @@
   (:require [cljs.storm.emitter :as emitter]
             [cljs.storm.utils :as storm-utils]))
 
-(defn add-instr-prefix
+(defn add-instr-only-prefix
 
   "Add instrumentation `prefix`.
   When `touch-path` is provided, touches all the cljs and cljc files recusively.
   Useful for making watchers like the shadow-cljs one recompile and reload files."
 
-  ([prefix] (add-instr-prefix prefix nil))
+  ([prefix] (add-instr-only-prefix prefix nil))
   ([prefix touch-path]
    (emitter/add-instrumentation-only-prefix prefix)
    (when touch-path
      (storm-utils/touch-cljs-files touch-path))))
 
-(defn rm-instr-prefix
+(defn rm-instr-only-prefix
 
   "Remove instrumentation `prefix`.
   When `touch-path` is provided, touches all the cljs and cljc files recusively.
   Useful for making watchers like the shadow-cljs one recompile and reload files."
 
-  ([prefix] (rm-instr-prefix prefix nil))
+  ([prefix] (rm-instr-only-prefix prefix nil))
   ([prefix touch-path]
    (emitter/remove-instrumentation-only-prefix prefix)
    (when touch-path
      (storm-utils/touch-cljs-files touch-path))))
 
+(defn add-instr-skip-prefix
+
+  "Add instrumentation `prefix`.
+  When `touch-path` is provided, touches all the cljs and cljc files recusively.
+  Useful for making watchers like the shadow-cljs one recompile and reload files."
+
+  ([prefix] (add-instr-skip-prefix prefix nil))
+  ([prefix touch-path]
+   (emitter/add-instrumentation-skip-prefix prefix)
+   (when touch-path
+     (storm-utils/touch-cljs-files touch-path))))
+
+(defn rm-instr-skip-prefix
+
+  "Remove instrumentation `prefix`.
+  When `touch-path` is provided, touches all the cljs and cljc files recusively.
+  Useful for making watchers like the shadow-cljs one recompile and reload files."
+
+  ([prefix] (rm-instr-skip-prefix prefix nil))
+  ([prefix touch-path]
+   (emitter/remove-instrumentation-skip-prefix prefix)
+   (when touch-path
+     (storm-utils/touch-cljs-files touch-path))))
+
 (defn get-instr-prefixes []
   emitter/instrument-only-prefixes)
+
+(defn set-instrumentation [on?]
+  (emitter/set-instrumentation on?))