sometimes tables need respect

Author: philip-doctor

src/╯°□°╯.clj

@@ -5,6 +5,19 @@
   [throwable]
   (throw throwable))
 
+(defmacro v°□°v
+  [& body]
+  (loop [new-body `(try)
+         [current-form & forms] body]
+    (if current-form
+      (if (= (second current-form) '╯°_°╯)
+        (let [[old-first old-second old-third & others] current-form]
+          (recur (concat new-body (list `(catch ~old-third ~old-first ~@others)))
+                 forms))
+        (recur (concat new-body `(~current-form))
+               forms))
+      new-body)))
+
 (defn ╯°□°╯︵oɟuᴉ
   "A shorthand for ╯°□°╯ with ex-info."
   ([map]

test/╯°□°╯_test.clj

@@ -11,3 +11,7 @@
   (is (thrown-with-msg?
         Exception #"^╯°□°╯$"
         (╯°□°╯︵oɟuᴉ {}))))
+
+(deftest v°□°v-test
+  (is (= (v°□°v (/ 1 0) (┬─┬ ╯°_°╯ Exception "caught"))
+         "caught")))