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

wire up arrow up/down keys

Browse source
This commit is contained in:
Bobby Towers 2023-04-16 15:15:10 -07:00
parent 72838e060b
commit 6e61c58fe3
2 changed files with 44 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -105,13 +105,20 @@
(.of js/cv.keymap
(clj->js [{:key (str "Alt-Enter")
:run #(eval-cell %)}
{:key "Mod-Enter"
{:key "Mod-Enter"
:run #(eval-top-level %)}
{:key "Shift-Enter"
:run #(eval-at-cursor %)}
{:key "Escape" :run clear-eval}
{:key "ArrowLeft" :run clear-eval}
{:key "ArrowRight" :run clear-eval}])))
{:key "Escape"
:run clear-eval}
{:key "ArrowLeft"
:run clear-eval}
{:key "ArrowRight"
:run clear-eval}
{:key "ArrowUp"
:run clear-eval}
{:key "ArrowDown"
:run clear-eval}])))
(def cm
(let [doc "(def n 7)