mirror of
https://github.com/logseq/logseq.git
synced 2026-05-23 20:24:15 +00:00
14 lines
487 B
Clojure
14 lines
487 B
Clojure
(ns hooks.def-thread-api
|
|
(:require [clj-kondo.hooks-api :as api]))
|
|
|
|
(defn def-thread-api
|
|
[{:keys [node]}]
|
|
(let [[_ kw & others] (:children node)
|
|
new-node (api/list-node
|
|
[(api/token-node 'do)
|
|
(api/list-node [(api/token-node 'frontend.common.thread-api/defkeyword) kw])
|
|
(api/list-node
|
|
(cons (api/token-node 'fn) others))])
|
|
new-node* (with-meta new-node (meta node))]
|
|
{:node new-node*}))
|