diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-10-11 22:15:29 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-10-11 22:15:29 -0700 |
| commit | aceeba8d48d11779de13bc55f0ed27a1bdcb311e (patch) | |
| tree | e29a3fcdb1a4dda9131d310926472599d83192c0 | |
| parent | 31a1ade9a2c86141b78ffd8415c4d64aaebecb5c (diff) | |
| download | mu-aceeba8d48d11779de13bc55f0ed27a1bdcb311e.tar.gz | |
7004
| -rw-r--r-- | apps/tile/environment.mu | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 2850f394..e2a9f454 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -220,7 +220,8 @@ $process:body: { toggle-cursor-word sandbox break $process:body } - compare key, 0x10 # 16 = ctrl-p + # word-based motions + compare key, 2 # ctrl-b $process:prev-word: { break-if-!= #? print-string 0, "AA\n" @@ -257,7 +258,7 @@ $process:body: { break $process:body } } - compare key, 0xe # 14 = ctrl-n + compare key, 6 # ctrl-f $process:next-word: { break-if-!= #? print-string 0, "AA\n" @@ -783,11 +784,11 @@ fn clear-canvas _env: (addr environment) { draw-vertical-line screen, 1, *nrows, repl-col # wordstar-style cheatsheet of shortcuts start-reverse-video screen - print-string screen, " ctrl-p " + print-string screen, " ctrl-b " reset-formatting screen print-string screen, " prev word " start-reverse-video screen - print-string screen, " ctrl-n " + print-string screen, " ctrl-f " reset-formatting screen print-string screen, " next word " # currently defined functions |