def_thread_api.clj 487 B

12345678910111213
  1. (ns hooks.def-thread-api
  2. (:require [clj-kondo.hooks-api :as api]))
  3. (defn def-thread-api
  4. [{:keys [node]}]
  5. (let [[_ kw & others] (:children node)
  6. new-node (api/list-node
  7. [(api/token-node 'do)
  8. (api/list-node [(api/token-node 'frontend.common.thread-api/defkeyword) kw])
  9. (api/list-node
  10. (cons (api/token-node 'fn) others))])
  11. new-node* (with-meta new-node (meta node))]
  12. {:node new-node*}))