diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-02-27 01:37:05 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-02-27 01:37:05 -0800 |
| commit | c2719c3d2b943e0ff6a16e1eec0fb0a23f496c4a (patch) | |
| tree | 2db6d3b92580e3b51967f0ee02121e9529117f38 | |
| parent | 8328a3261d2f9090edabfd1f40b74a61588f76e0 (diff) | |
| download | mu-c2719c3d2b943e0ff6a16e1eec0fb0a23f496c4a.tar.gz | |
849
| -rw-r--r-- | trace.mu | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/trace.mu b/trace.mu index 603bbc00..c59cf8a2 100644 --- a/trace.mu +++ b/trace.mu @@ -480,7 +480,7 @@ } ; page up/page down { begin - (page-up?:boolean <- equal c:character ((page-up literal))) + (page-up?:boolean <- equal c:character ((pgup literal))) (K?:boolean <- equal c:character ((#\K literal))) (page-up?:boolean <- or page-up?:boolean K?:boolean) (break-unless page-up?:boolean) @@ -495,7 +495,7 @@ (print-traces-collapsed-from 0:space-address/browser-state screen:terminal-address first-index-on-page:integer/space:1) } { begin - (page-down?:boolean <- equal c:character ((page-up literal))) + (page-down?:boolean <- equal c:character ((pgdn literal))) (J?:boolean <- equal c:character ((#\J literal))) (page-down?:boolean <- or page-down?:boolean J?:boolean) (break-unless page-down?:boolean) @@ -509,6 +509,8 @@ ; start drawing from next page (first-index-on-page:integer/space:1 <- copy next-page-start:integer) (print-traces-collapsed-from 0:space-address/browser-state screen:terminal-address first-index-on-page:integer/space:1) + ; move cursor back to top of screen + (to-top 0:space-address/browser-state screen:terminal-address) } ; enter: expand/collapse current row { begin |