Merge pull request #1 from philip-doctor/master

sometimes a table must be respected

Author: jstepien

README.md

@@ -16,6 +16,14 @@ When `throw` is not enough.
 
 ;; Throw an ex-info exception.
 (╯°□°╯︵oɟuᴉ {:some {:extra :data}})
+
+;; Sometimes tables must be respected, and so they may be caught as well
+(v°□°v
+  (/ 1 0)
+  (┬─┬ ╯°_°╯ ArithmeticException
+    (log/error ┬─┬)
+    0))
+
 ```
 
 There's no artifact on Clojars¹ but it doesn't matter because you can simply

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,10 @@
   (is (thrown-with-msg?
         Exception #"^╯°□°╯$"
         (╯°□°╯︵oɟuᴉ {}))))
+
+(deftest v°□°v-test
+  (is (= (v°□°v (/ 1 0) (┬─┬ ╯°_°╯ Exception "caught"))
+         "caught"))
+
+  (is (= (v°□°v (/ 1 0) (┬─┬ ╯°_°╯ Exception (type ┬─┬)))
+         java.lang.ArithmeticException)))