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

Upgrade fennel to ~xerool/fennel for extra hooks

Browse Source
This commit is contained in:
XeroOl 2022-09-01 01:02:19 -05:00
parent 69fcd63fad
commit b9d084fada
No known key found for this signature in database
GPG Key ID: 9DD4B4B4DAED0322
3 changed files with 1104 additions and 1102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1205
fennel
View File

File diff suppressed because it is too large Load Diff

973
src/fennel.lua
View File

File diff suppressed because it is too large Load Diff

20
test/completion-test.fnl
View File

@ -28,17 +28,17 @@
(. _G a) (. _G a)
(. _G b) (. _G b)
(. _G c)) (. _G c))
"oops")))) "oops")))
;; (it "suggests locals in scope" (it "suggests locals in scope"
;; (local state (doto [] setup-server)) (local state (doto [] setup-server))
;; (open-file state filename "(local x 10)\n(print )") (open-file state filename "(local x 10)\n(print )")
;; (let [response (dispatch.handle* state (completion-at filename 1 7))] (let [response (dispatch.handle* state (completion-at filename 1 7))]
;; (var seen-suggestion false) (var seen-suggestion false)
;; (each [_ suggestion (ipairs (. response 1 :result))] (each [_ suggestion (ipairs (. response 1 :result))]
;; (if (= suggestion.label :x) (if (= suggestion.label :x)
;; (set seen-suggestion true))) (set seen-suggestion true)))
;; (assert seen-suggestion "x was not suggested")))) (assert seen-suggestion "x was not suggested"))))
;; (it "treats things in a call position differently") ;; (it "treats things in a call position differently")
;; (it "does not suggest locals out of scope") ;; (it "does not suggest locals out of scope")