diff options
| -rw-r--r-- | apps/tile/environment.mu | 34 | ||||
| -rw-r--r-- | apps/tile/main.mu | 6 |
2 files changed, 39 insertions, 1 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 51adfdd8..643cd13f 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -202,6 +202,11 @@ $process:body: { compare curr-word-is-expanded?, 0 # false break-if-= push-to-call-path-element cursor-call-path, 0 + # position cursor at left + var functions/eax: (addr handle function) <- get self, functions + get-cursor-word sandbox, functions, cursor-word-ah + var cursor-word/eax: (addr word) <- lookup *cursor-word-ah + cursor-to-start cursor-word #? print-string 0, "d\n" break $process:body } @@ -252,6 +257,35 @@ $process:body: { break $process:body } } + compare key, 0xe # 14 = ctrl-n + $process:next-word: { + break-if-!= + print-string 0, "AA\n" + # jump to previous word at same level + var next-word-ah/edx: (addr handle word) <- get cursor-word, next + var next-word/eax: (addr word) <- lookup *next-word-ah + { + compare next-word, 0 + break-if-= + print-string 0, "BB\n" + copy-object next-word-ah, cursor-word-ah + cursor-to-end next-word + var cursor-call-path/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path + increment-final-element cursor-call-path + break $process:body + } + # if next word doesn't exist, try to bump up one level + print-string 0, "CC\n" + var cursor-call-path-ah/edi: (addr handle call-path-element) <- get sandbox, cursor-call-path + var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah + var caller-cursor-element-ah/ecx: (addr handle call-path-element) <- get cursor-call-path, next + var caller-cursor-element/eax: (addr call-path-element) <- lookup *caller-cursor-element-ah + compare caller-cursor-element, 0 + break-if-= + print-string 0, "DD\n" + copy-object caller-cursor-element-ah, cursor-call-path-ah + break $process:body + } # if cursor is within a call, disable editing hotkeys below var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah diff --git a/apps/tile/main.mu b/apps/tile/main.mu index 0a2d6339..157adc48 100644 --- a/apps/tile/main.mu +++ b/apps/tile/main.mu @@ -95,7 +95,11 @@ fn test { process env, g g <- copy 0x10 # <ctrl-p> process env, g - g <- copy 0x10 # <ctrl-p> + g <- copy 0xe # <ctrl-n> + process env, g + g <- copy 0xe # <ctrl-n> + process env, g + g <- copy 0xe # <ctrl-n> process env, g } |