mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-19 07:04:48 +00:00
Code Issues 1 Releases Wiki Activity

Fix web versinon repl colors.

Browse Source
This commit is contained in:
Calvin Rose 2019-04-16 16:06:52 -04:00
parent 208eb7520a
commit ddaa5e34e6
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/webclient/webinit.janet
View File

@ -1,12 +1,12 @@
# Copyright 2017-2019 (C) Calvin Rose # Copyright 2017-2019 (C) Calvin Rose
(print (string "Janet " janet/version "-" janet/build " Copyright (C) 2017-2019 Calvin Rose")) (print (string "Janet " janet/version "-" janet/build " Copyright (C) 2017-2019 Calvin Rose"))
(setdyn :pretty-format "%.20P")
(fiber/new (fn webrepl [] (fiber/new (fn webrepl []
(repl (fn get-line [buf p] (setdyn :pretty-format "%.20P")
(def offset (parser/where p)) (repl (fn get-line [buf p]
(def prompt (string "janet:" offset ":" (parser/state p) "> ")) (def offset (parser/where p))
(repl-yield prompt buf) (def prompt (string "janet:" offset ":" (parser/state p) "> "))
(yield) (repl-yield prompt buf)
buf)))) (yield)
buf))))