more cleanup

This commit is contained in:
Bobby Towers 2023-04-15 15:12:19 -07:00
parent ac983edbfa
commit 84f2d78429

View file

@ -31,8 +31,6 @@
reverse reverse
(apply str)))) (apply str))))
(form-at-cursor (reverse (take 18 "(map inc (range 8)")))
(defn eval-at-cursor [viewer] (defn eval-at-cursor [viewer]
(let [cursor-pos (some-> cm .-state .-selection .-main .-head) (let [cursor-pos (some-> cm .-state .-selection .-main .-head)
code (first (str/split (str (some-> cm .-state .-doc str)) #" => "))] code (first (str/split (str (some-> cm .-state .-doc str)) #" => "))]