simon/mw-scittle
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

clean up

Browse source
This commit is contained in:
Bobby Towers 2023-04-15 15:11:14 -07:00
parent ceac29690f
commit ac983edbfa
1 changed files with 0 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

35
resources/public/cljs/codemirror.cljs
View file

@ -88,38 +88,3 @@
:parent (js/document.querySelector "#app")})))
(set! (.-cm_instance js/globalThis) cm)
(let [code "(map inc (range 8)"
cursor-pos 18
s '(\space \c \n \i \space \p \a \m \()
open-parens 1
closed-parens 1]
[(rest s)
(inc open-parens) closed-parens]
(drop (count s) code)
)
;; god dammit this doesn't work and I have no idea why!
;; I stepped through it (above) and it works -
;; output is `(\( \r \a \n \g \e \space \8 \))`
;; but in the loop (below), it gives the empty list.
;; figure this out tomorrow
(let [code "(map inc (range 8)"
cursor-pos 18]
(loop [s (reverse (take cursor-pos code))
open-parens 0
closed-parens 0]
(cond
(= open-parens closed-parens)
(drop (count s) code)
(= \) (first s)) (recur (rest s) open-parens (inc closed-parens))
(= \( (first s)) (recur (rest s) (inc open-parens) closed-parens)
:else (recur (rest s) open-parens closed-parens))
))