edtris/editor/repl.fnl

49 lines
1.5 KiB
Plaintext
Raw Normal View History

2021-03-29 05:03:43 +00:00
(local util (require :lib.util))
(local fennel (require :lib.fennel))
(local style (require :core.style))
(local lume (require :lib.lume))
(local {: textbutton : under : group-wrapper} (util.require :editor.imgui))
(local {: inspect} (util.require :inspector))
(local repl (util.hot-table ...))
2021-03-29 05:03:43 +00:00
(fn repl.inspector [{: w &as form} {: vals : states}]
(let [g (group-wrapper form)]
(each [i v (ipairs vals)]
(g #(inspect $...) (under (g) {: w}) (. states i) v))
(g)))
2021-03-29 05:03:43 +00:00
(fn repl.notify [listeners line]
(each [_ listener (ipairs listeners)]
(listener:append line)))
2021-04-04 02:35:50 +00:00
(fn repl.mk-result [vals]
{:draw repl.inspector : vals :states (icollect [_ (ipairs vals)] {})})
2021-04-04 02:35:50 +00:00
(fn repl.run [{: listeners}]
2021-03-29 05:03:43 +00:00
(fennel.repl {:readChunk coroutine.yield
2021-04-04 02:35:50 +00:00
:onValues #(repl.notify listeners (repl.mk-result $1))
:onError (fn [errType err luaSource] (repl.notify listeners (repl.mk-result [err])))
2021-03-29 05:03:43 +00:00
:pp #$1
:env (lume.clone _G)}))
(fn repl.listen [{: listeners} listener]
(table.insert listeners listener))
(fn repl.unlisten [{: listeners} listener]
(lume.remove listeners listener))
(fn repl.submit [{: coro} chunk]
(coroutine.resume coro (.. chunk "\n")))
(fn repl.new []
(local result
{:listeners []
:listen #(repl.listen $...)
:unlisten #(repl.unlisten $...)
:submit #(repl.submit $...)
2021-03-29 05:03:43 +00:00
:coro (coroutine.create repl.run)})
(coroutine.resume result.coro result)
result)
repl.hot