fey.naomi/fennel-ls
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changing some comments and doc comments

Browse Source
This commit is contained in:
XeroOl 2024-02-12 21:41:32 -06:00
parent b8565bd146
commit ddbed43a7d
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/fennel-ls/compiler.fnl
View File

@ -283,6 +283,7 @@ identifiers are declared / referenced in which places."
: symbol-to-expression : symbol-to-expression
: call : call
: destructure : destructure
;; : macroexpand
;; :fn fn-hook ;; :fn fn-hook
;; :do there's a do hook ;; :do there's a do hook
;; :chunk I don't know what this one is ;; :chunk I don't know what this one is

2
src/fennel-ls/formatter.fnl
View File

@ -95,7 +95,7 @@ fntype is one of fn or λ or lambda"
:Constant 21 :Struct 22 :Event 23 :Operator 24 :TypeParameter 25}) :Constant 21 :Struct 22 :Event 23 :Operator 24 :TypeParameter 25})
(λ completion-item-format [label def] (λ completion-item-format [label def]
"make a completion item" "Makes a completion item"
(doto (doto
(case (analyze-fn def.definition) (case (analyze-fn def.definition)
{:fntype _} {: label {:fntype _} {: label

8
src/fennel-ls/language.fnl
View File

@ -31,10 +31,10 @@ In the code example above, a search on the final symbol `z` would normally
find the definition `10`, but if `opts.stop-early?` is set, it would find find the definition `10`, but if `opts.stop-early?` is set, it would find
{:binding z :definition y}, referring to the `(local z y)` binding. {:binding z :definition y}, referring to the `(local z y)` binding.
# A document: `{? ?*}` # A document: `{:metadata {:fnl/docstring _ :fnl/arglist ?_ :fnl-ls/fields ?_}}`
A document is a definition that doesn't come from user code. For example, A document is a definition that doesn't come from user code. For example,
searching `table.insert` will find a document, because we have info about it, searching `table.insert` will find a document, but that info does not come from
but that info does a user-written file.
" "
(local {: sym? : list? : sequence? : varg? : sym} (require :fennel)) (local {: sym? : list? : sequence? : varg? : sym} (require :fennel))
@ -59,6 +59,7 @@ but that info does
stack) stack)
(λ stack-add-multisym! [stack symbol] (λ stack-add-multisym! [stack symbol]
"add the multisy values to the end of the stack in reverse order"
(stack-add-split! stack (utils.multi-sym-split symbol))) (stack-add-split! stack (utils.multi-sym-split symbol)))
(λ search-val [self file ast stack opts] (λ search-val [self file ast stack opts]
@ -208,6 +209,7 @@ but that info does
(+ 1 (get-ast-info ?ast :byteend)))))) (+ 1 (get-ast-info ?ast :byteend))))))
(λ find-symbol [ast byte] (λ find-symbol [ast byte]
"tries to find a sym, and a list of all of its parents/grandparents"
(local parents [ast]) (local parents [ast])
(λ recurse [ast] (λ recurse [ast]
(if (if