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

shuffle the macro searcher code a little bit ???

Browse Source
This commit is contained in:
XeroOl 2023-07-09 20:35:04 -05:00
parent cd37e05e54
commit f367914244
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,8 +20,10 @@ I suspect this file may be gone after a bit of refactoring."
(-> (.. path sep suffix) (-> (.. path sep suffix)
;; delete duplicate ;; delete duplicate
;; windows ;; windows
(: :gsub "%.\\" "")
(: :gsub "\\+" "\\") (: :gsub "\\+" "\\")
;; modern society ;; modern society
(: :gsub "%./" "")
(: :gsub "/+" "/") (: :gsub "/+" "/")
(->> (pick-values 1)))) (->> (pick-values 1))))

6
test/goto-definition-test.fnl
View File

@ -52,10 +52,10 @@
(check :goto-definition.fnl 35 19 :goto-definition.fnl 34 20 34 35)) (check :goto-definition.fnl 35 19 :goto-definition.fnl 34 20 34 35))
(it "can go to a function in another file when accessed by multisym" (it "can go to a function in another file when accessed by multisym"
(check :goto-definition.fnl 7 7 :./foo.fnl 2 4 2 13)) (check :goto-definition.fnl 7 7 :foo.fnl 2 4 2 13))
(it "can go to a function in another file imported via destructuring assignment" ;; WORKS, just needs a test case (it "can go to a function in another file imported via destructuring assignment" ;; WORKS, just needs a test case
(check :goto-definition.fnl 2 11 :./baz.fnl 0 4 0 9)) (check :goto-definition.fnl 2 11 :baz.fnl 0 4 0 9))
(it "goes further if you go to definition on a binding" (it "goes further if you go to definition on a binding"
(check :goto-definition.fnl 31 12 :goto-definition.fnl 23 4 23 5)) (check :goto-definition.fnl 31 12 :goto-definition.fnl 23 4 23 5))
@ -69,7 +69,7 @@
(check :goto-definition.fnl 45 15 :goto-definition.fnl 40 7 40 13)) (check :goto-definition.fnl 45 15 :goto-definition.fnl 40 7 40 13))
(it "works directly on a require/include (require XXX))" (it "works directly on a require/include (require XXX))"
(check :goto-definition.fnl 1 5 :./bar.fnl 0 0 0 2)) (check :goto-definition.fnl 1 5 :bar.fnl 0 0 0 2))
(it "goes to the last form of `do` and `let`" (it "goes to the last form of `do` and `let`"
(check :goto-definition.fnl 47 13 :goto-definition.fnl 47 30 47 52)) (check :goto-definition.fnl 47 13 :goto-definition.fnl 47 30 47 52))