diff options
Diffstat (limited to 'browse-slack')
| -rw-r--r-- | browse-slack/environment.mu | 123 |
1 files changed, 123 insertions, 0 deletions
diff --git a/browse-slack/environment.mu b/browse-slack/environment.mu index d5e04175..1ffd787b 100644 --- a/browse-slack/environment.mu +++ b/browse-slack/environment.mu @@ -1221,6 +1221,26 @@ fn previous-item _env: (addr environment), users: (addr array user), _channels: increment *dest return } + compare *current-tab-type, 3/thread + { + break-if-!= + var items/eax: (addr item-list) <- copy _items + var items-data-ah/eax: (addr handle array item) <- get items, data + var _items-data/eax: (addr array item) <- lookup *items-data-ah + var items-data/esi: (addr array item) <- copy _items-data + var current-tab-root-index-addr/eax: (addr int) <- get current-tab, root-index + var current-tab-root-index/eax: int <- copy *current-tab-root-index-addr + var current-tab-root-offset/eax: (offset item) <- compute-offset items-data, current-tab-root-index + var post/eax: (addr item) <- index items-data, current-tab-root-offset + var post-comments-first-free-addr/ecx: (addr int) <- get post, comments-first-free + var final-item-index/ecx: int <- copy *post-comments-first-free-addr + final-item-index <- decrement + var dest/eax: (addr int) <- get current-tab, item-index + compare *dest, final-item-index + break-if->= + increment *dest + return + } } fn page-down _env: (addr environment), users: (addr array user), channels: (addr array channel), items: (addr item-list) { @@ -1251,6 +1271,12 @@ fn page-down _env: (addr environment), users: (addr array user), channels: (addr search-page-down current-tab, users, channels, items return } + compare *current-tab-type, 3/thread + { + break-if-!= + thread-page-down current-tab, users, channels, items + return + } } fn all-items-page-down _current-tab: (addr tab), users: (addr array user), channels: (addr array channel), _items: (addr item-list) { @@ -1385,6 +1411,54 @@ fn search-page-down _current-tab: (addr tab), users: (addr array user), channels copy-to *current-tab-item-index-addr, new-tab-item-index } +fn thread-page-down _current-tab: (addr tab), users: (addr array user), channels: (addr array channel), _items: (addr item-list) { + var current-tab/edi: (addr tab) <- copy _current-tab + var items/eax: (addr item-list) <- copy _items + var items-data-ah/eax: (addr handle array item) <- get items, data + var _items-data/eax: (addr array item) <- lookup *items-data-ah + var items-data/esi: (addr array item) <- copy _items-data + var current-tab-root-index-addr/eax: (addr int) <- get current-tab, root-index + var current-tab-root-index/eax: int <- copy *current-tab-root-index-addr + var current-tab-root-offset/eax: (offset item) <- compute-offset items-data, current-tab-root-index + var post/eax: (addr item) <- index items-data, current-tab-root-offset + var post-comments-ah/eax: (addr handle array int) <- get post, comments + var _post-comments/eax: (addr array int) <- lookup *post-comments-ah + var post-comments/ebx: (addr array int) <- copy _post-comments + var current-tab-item-index-addr/edi: (addr int) <- get current-tab, item-index + var new-tab-item-index/ecx: int <- copy *current-tab-item-index-addr + var y/edx: int <- copy 2 + { + compare new-tab-item-index, 0 + break-if-< + compare y, 0x28/screen-height-minus-menu + break-if->= + var current-item-index-addr/eax: (addr int) <- index post-comments, new-tab-item-index + var current-item-index/eax: int <- copy *current-item-index-addr + var offset/eax: (offset item) <- compute-offset items-data, current-item-index + var item/eax: (addr item) <- index items-data, offset + var item-text-ah/eax: (addr handle array byte) <- get item, text + var item-text/eax: (addr array byte) <- lookup *item-text-ah + var h/eax: int <- estimate-height item-text + y <- add h + new-tab-item-index <- decrement + loop + } + new-tab-item-index <- increment + { + # HACK: make sure we make forward progress even if a single post takes up + # the whole screen. + # We can't see the rest of that single post at the moment. But at least we + # can go past it. + compare new-tab-item-index, *current-tab-item-index-addr + break-if-!= + # Don't make "forward progress" past post 0. + compare new-tab-item-index, 0 + break-if-= + new-tab-item-index <- decrement + } + copy-to *current-tab-item-index-addr, new-tab-item-index +} + fn page-up _env: (addr environment), users: (addr array user), channels: (addr array channel), items: (addr item-list) { var env/edi: (addr environment) <- copy _env var tabs-ah/eax: (addr handle array tab) <- get env, tabs @@ -1413,6 +1487,12 @@ fn page-up _env: (addr environment), users: (addr array user), channels: (addr a search-page-up current-tab, users, channels, items return } + compare *current-tab-type, 3/thread + { + break-if-!= + thread-page-up current-tab, users, channels, items + return + } } fn all-items-page-up _current-tab: (addr tab), users: (addr array user), channels: (addr array channel), _items: (addr item-list) { @@ -1522,6 +1602,49 @@ fn search-page-up _current-tab: (addr tab), users: (addr array user), channels: copy-to *current-tab-item-index-addr, new-tab-item-index } +fn thread-page-up _current-tab: (addr tab), users: (addr array user), channels: (addr array channel), _items: (addr item-list) { + var current-tab/edi: (addr tab) <- copy _current-tab + var items/eax: (addr item-list) <- copy _items + var items-data-ah/eax: (addr handle array item) <- get items, data + var _items-data/eax: (addr array item) <- lookup *items-data-ah + var items-data/esi: (addr array item) <- copy _items-data + var current-tab-root-index-addr/eax: (addr int) <- get current-tab, root-index + var current-tab-root-index/eax: int <- copy *current-tab-root-index-addr + var current-tab-root-offset/eax: (offset item) <- compute-offset items-data, current-tab-root-index + var post/eax: (addr item) <- index items-data, current-tab-root-offset + var post-comments-first-free-addr/ecx: (addr int) <- get post, comments-first-free + var post-comments-ah/eax: (addr handle array int) <- get post, comments + var _post-comments/eax: (addr array int) <- lookup *post-comments-ah + var post-comments/ebx: (addr array int) <- copy _post-comments + var final-tab-comment-index: int + { + var tmp/eax: int <- copy *post-comments-first-free-addr + tmp <- decrement + copy-to final-tab-comment-index, tmp + } + var current-tab-item-index-addr/edi: (addr int) <- get current-tab, item-index + var new-tab-item-index/ecx: int <- copy *current-tab-item-index-addr + var y/edx: int <- copy 2 + { + compare new-tab-item-index, final-tab-comment-index + break-if-> + compare y, 0x28/screen-height-minus-menu + break-if->= + var current-item-index-addr/eax: (addr int) <- index post-comments, new-tab-item-index + var current-item-index/eax: int <- copy *current-item-index-addr + var offset/eax: (offset item) <- compute-offset items-data, current-item-index + var item/eax: (addr item) <- index items-data, offset + var item-text-ah/eax: (addr handle array byte) <- get item, text + var item-text/eax: (addr array byte) <- lookup *item-text-ah + var h/eax: int <- estimate-height item-text + y <- add h + new-tab-item-index <- increment + loop + } + new-tab-item-index <- decrement + copy-to *current-tab-item-index-addr, new-tab-item-index +} + # keep sync'd with render-item fn estimate-height _message-text: (addr array byte) -> _/eax: int { var message-text/esi: (addr array byte) <- copy _message-text |