noahbogart.com
catch exceptions hook, line, and sinker
Update clj-kondo hook
+1
-4
.clj-kondo/imports/io.github.noahtheduke/sinker/hooks/sinker/try_plus.clj
+1
-4
.clj-kondo/imports/io.github.noahtheduke/sinker/hooks/sinker/try_plus.clj
···
5
5
(defn parse-exprs
6
6
[clause]
7
7
(if (and (api/list-node? clause) (= 'catch (api/sexpr (first (:children clause)))))
8
-
(let [[catch-token pred & body] (:children clause)
9
-
[id body] (if (symbol? (api/sexpr (first body)))
10
-
[(first body) (next body)]
11
-
[(api/token-node (gensym "_")) body])]
8
+
(let [[catch-token pred id & body] (:children clause)]
12
9
(with-meta
13
10
#_{:clj-kondo/ignore [:discouraged-var]}
14
11
(cond
+1
-4
resources/clj-kondo.exports/io.github.noahtheduke/sinker/hooks/sinker/try_plus.clj
+1
-4
resources/clj-kondo.exports/io.github.noahtheduke/sinker/hooks/sinker/try_plus.clj
···
5
5
(defn parse-exprs
6
6
[clause]
7
7
(if (and (api/list-node? clause) (= 'catch (api/sexpr (first (:children clause)))))
8
-
(let [[catch-token pred & body] (:children clause)
9
-
[id body] (if (symbol? (api/sexpr (first body)))
10
-
[(first body) (next body)]
11
-
[(api/token-node (gensym "_")) body])]
8
+
(let [[catch-token pred id & body] (:children clause)]
12
9
(with-meta
13
10
#_{:clj-kondo/ignore [:discouraged-var]}
14
11
(cond