[nop] Remove unused Cljs macros

taoensso · Jul 31, 2023 · 533dd0b · 533dd0b
1 parent a64b81c
commit 533dd0b
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 21 deletions.
diff --git a/src/taoensso/tempura.cljc b/src/taoensso/tempura.cljc
@@ -11,12 +11,13 @@
 (def ^:dynamic *tr-opts*  nil)
 (def ^:dynamic *tr-scope* nil)
 
-(defmacro with-tr-opts  [opts  & body] `(binding [*tr-opts*  ~opts]  ~@body))
-(defmacro with-tr-scope
-  "`(with-tr-scope :foo.bar (tr _ _ [:baz]))` is equivalent to
-   `(tr _ _ [:foo.bar/baz])`"
-  [scope & body]
-  `(binding [*tr-scope* ~scope] ~@body))
+#?(:clj (defmacro with-tr-opts [opts & body] `(binding [*tr-opts* ~opts] ~@body)))
+#?(:clj
+   (defmacro with-tr-scope
+     "`(with-tr-scope :foo.bar (tr _ _ [:baz]))` is equivalent to
+     `(tr _ _ [:foo.bar/baz])`"
+     [scope & body]
+     `(binding [*tr-scope* ~scope] ~@body)))
 
 ;;;;
 
@@ -159,14 +160,15 @@
 
      [rname] (impl/load-resource rname)))
 
-(defmacro load-resource-at-compile-time
-  "Experimental, subject to change.
-  Reads and inlines an edn resource on classpath, at compile-time.
-  Supported by: both clj and cljs.
+#?(:clj
+   (defmacro load-resource-at-compile-time
+     "Experimental, subject to change.
+     Reads and inlines an edn resource on classpath, at compile-time.
+     Supported by: both clj and cljs.
 
-  See also `load-resource-at-runtime`."
+     See also `load-resource-at-runtime`."
 
-  [rname] (impl/load-resource rname))
+     [rname] (impl/load-resource rname)))
 
 (comment (load-resource-at-compile-time "foo.edn"))
 

diff --git a/src/taoensso/tempura/impl.cljc b/src/taoensso/tempura/impl.cljc
@@ -444,14 +444,14 @@
         acc resids))
     nil locale-splits))
 
-#_
-(defmacro vargs "Experimental. Compile-time `impl/vargs`."
-  [x]
-  (if (map? x)
-    (do
-      (assert (enc/revery? enc/pos-int? (keys x))
-        "All arg map keys must be +ive non-zero ints")
-      (impl/vargs x))
-    (have vector? x)))
+;; #?(:clj
+;;    (defmacro vargs "Experimental. Compile-time `impl/vargs`."
+;;      [x]
+;;      (if (map? x)
+;;        (do
+;;          (assert (enc/revery? enc/pos-int? (keys x))
+;;            "All arg map keys must be +ive non-zero ints")
+;;          (impl/vargs x))
+;;        (have vector? x))))
 
 #_(comment (macroexpand '(vargs {1 (do "1") 2 (do "2")})))