|
1 | 1 | (ns taoensso.encore
|
| 2 | + "I don't personally use clj-kondo, so these hooks are |
| 3 | + kindly authored and maintained by contributors. |
| 4 | + PRs very welcome! - Peter Taoussanis" |
| 5 | + (:refer-clojure :exclude [defonce]) |
2 | 6 | (:require
|
3 | 7 | [clj-kondo.hooks-api :as hooks]))
|
4 | 8 |
|
5 |
| -(defn defalias [{:keys [node]}] |
| 9 | +(defn defalias |
| 10 | + [{:keys [node]}] |
6 | 11 | (let [[sym-raw src-raw] (rest (:children node))
|
7 |
| - src (if src-raw src-raw sym-raw) |
8 |
| - sym (if src-raw |
9 |
| - sym-raw |
10 |
| - (symbol (name (hooks/sexpr src))))] |
11 |
| - {:node (with-meta |
12 |
| - (hooks/list-node |
13 |
| - [(hooks/token-node 'def) |
14 |
| - (hooks/token-node (hooks/sexpr sym)) |
15 |
| - (hooks/token-node (hooks/sexpr src))]) |
16 |
| - (meta src))})) |
| 12 | + src (or src-raw sym-raw) |
| 13 | + sym (if src-raw sym-raw (symbol (name (hooks/sexpr src))))] |
| 14 | + {:node |
| 15 | + (with-meta |
| 16 | + (hooks/list-node |
| 17 | + [(hooks/token-node 'def) |
| 18 | + (hooks/token-node (hooks/sexpr sym)) |
| 19 | + (hooks/token-node (hooks/sexpr src))]) |
| 20 | + (meta src))})) |
| 21 | + |
| 22 | +(defn defn-cached |
| 23 | + [{:keys [node]}] |
| 24 | + (let [[sym _opts binding-vec & body] (rest (:children node))] |
| 25 | + {:node |
| 26 | + (hooks/list-node |
| 27 | + (list |
| 28 | + (hooks/token-node 'def) |
| 29 | + sym |
| 30 | + (hooks/list-node |
| 31 | + (list* |
| 32 | + (hooks/token-node 'fn) |
| 33 | + binding-vec |
| 34 | + body))))})) |
| 35 | + |
| 36 | +(defn defonce |
| 37 | + [{:keys [node]}] |
| 38 | + ;; args = [sym doc-string? attr-map? init-expr] |
| 39 | + (let [[sym & args] (rest (:children node)) |
| 40 | + [doc-string args] (if (and (hooks/string-node? (first args)) (next args)) [(hooks/sexpr (first args)) (next args)] [nil args]) |
| 41 | + [attr-map init-expr] (if (and (hooks/map-node? (first args)) (next args)) [(hooks/sexpr (first args)) (fnext args)] [nil (first args)]) |
| 42 | + |
| 43 | + attr-map (if doc-string (assoc attr-map :doc doc-string) attr-map) |
| 44 | + sym+meta (if attr-map (with-meta sym attr-map) sym) |
| 45 | + rewritten |
| 46 | + (hooks/list-node |
| 47 | + [(hooks/token-node 'clojure.core/defonce) |
| 48 | + sym+meta |
| 49 | + init-expr])] |
| 50 | + |
| 51 | + {:node rewritten})) |
0 commit comments