diff --git a/src/fennel-ls/analyzer.fnl b/src/fennel-ls/analyzer.fnl index 08e8062..32e8230 100644 --- a/src/fennel-ls/analyzer.fnl +++ b/src/fennel-ls/analyzer.fnl @@ -237,7 +237,7 @@ initialization-opts: {:stack ?list[ast] (case (docs.get-builtin server base-name) metadata (search-document server metadata stack opts) _ (case (find-local-definition file base-name scope) - def (search-definition server file def [] opts) + def (search-definition server file def stack opts) _ (case (docs.get-global server base-name) metadata (search-document server metadata stack opts)))))) diff --git a/src/fennel-ls/formatter.fnl b/src/fennel-ls/formatter.fnl index f7991f9..399c10f 100644 --- a/src/fennel-ls/formatter.fnl +++ b/src/fennel-ls/formatter.fnl @@ -7,10 +7,9 @@ user code. Fennel-ls doesn't support user-code formatting as of now." : view : table? : varg? - : list? &as fennel} (require :fennel)) + : list?} (require :fennel)) (local navigate (require :fennel-ls.navigate)) -(local utils (require :fennel-ls.utils)) (λ code-block [str] (.. "```fnl\n" str "\n```")) @@ -65,23 +64,6 @@ user code. Fennel-ls doesn't support user-code formatting as of now." ")") (render-arglist args args-offset)))) -(fn metadata-format [{: binding : metadata}] - "formats a special using its builtin metadata magic" - (.. - (code-block - (if (not metadata.fnl/arglist) - (tostring binding) - (= 0 (length metadata.fnl/arglist)) - (.. "(" (tostring binding) ")") - (.. "(" (tostring binding) " " - (table.concat - (icollect [_ v (ipairs metadata.fnl/arglist)] - (render-arg v)) - " ") - ")"))) - "\n---\n" - (or metadata.fnl/docstring ""))) - (λ fn? [symbol] (if (sym? symbol) (let [name (tostring symbol)]