luciano/mount
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

clj-kondo: Fix docstrings

Browse source
This commit is contained in:
Noah Bogart 2024-10-23 15:04:26 -04:00
parent 9c588f68c2
commit ccaf99910c
1 changed files with 13 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
resources/clj-kondo.exports/mount/mount/hooks/defstate.clj
View file

@ -1,12 +1,11 @@
(ns hooks.defstate (ns hooks.defstate
(:require [clj-kondo.hooks-api :as api])) (:require [clj-kondo.hooks-api :as api]))
(defn defstate [{:keys [:node]}] (defn defstate [{:keys [node]}]
(let [args (rest (:children node)) (let [[n & args] (next (:children node))
args (if (string? (api/sexpr (first args))) [docs args] (if (string? (api/sexpr (first args)))
(next args) [(first args) (next args)]
args) [nil args])
[n & args] args
m (when-let [m (first (:meta n))] m (when-let [m (first (:meta n))]
(api/sexpr m)) (api/sexpr m))
m (if (map? m) m {}) m (if (map? m) m {})
@ -32,12 +31,11 @@
:col (:col (meta n))}) :col (:col (meta n))})
:else :else
{:node (api/list-node {:node (api/list-node
(list (cond-> [(api/token-node 'def) n]
(api/token-node 'def) docs (conj docs)
n true (conj (api/list-node
(api/list-node
[(api/token-node 'atom) [(api/token-node 'atom)
(api/list-node (api/list-node
(list* (list*
(api/token-node 'do) (api/token-node 'do)
args))])))}))) args))]))))})))