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

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

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