diff options
| -rw-r--r-- | browse-slack/environment.mu | 96 | ||||
| -rw-r--r-- | browse-slack/main.mu | 4 |
2 files changed, 95 insertions, 5 deletions
diff --git a/browse-slack/environment.mu b/browse-slack/environment.mu index e4e24ff6..7fa6f889 100644 --- a/browse-slack/environment.mu +++ b/browse-slack/environment.mu @@ -895,7 +895,7 @@ fn update-main-panel env: (addr environment), key: byte, users: (addr array user { compare key, 0xa/newline break-if-!= - new-thread-tab env, users, channels, items + new-thread-tab-from-cursor env, users, channels, items return } { @@ -1040,16 +1040,19 @@ fn new-all-items-tab _env: (addr environment), users: (addr array user), channel copy-to *dest, final-item } -fn new-thread-tab _env: (addr environment), users: (addr array user), channels: (addr array channel), _items: (addr item-list) { +fn new-thread-tab-from-cursor _env: (addr environment), users: (addr array user), channels: (addr array channel), _items: (addr item-list) { var env/edi: (addr environment) <- copy _env var current-tab-index-addr/ecx: (addr int) <- get env, current-tab-index var tabs-ah/eax: (addr handle array tab) <- get env, tabs var tabs/eax: (addr array tab) <- lookup *tabs-ah var current-tab-index/ecx: int <- copy *current-tab-index-addr - var current-tab-offset/ecx: (offset tab) <- compute-offset tabs, current-tab-index - var current-tab/ecx: (addr tab) <- index tabs, current-tab-offset var item-index/esi: int <- item-index env, _items, channels var post-index/ecx: int <- post-index _items, item-index + new-thread-tab env, users, channels, _items, post-index, item-index +} + +fn new-thread-tab _env: (addr environment), users: (addr array user), channels: (addr array channel), _items: (addr item-list), _post-index: int, _item-index: int { + var env/edi: (addr environment) <- copy _env var current-tab-index-addr/eax: (addr int) <- get env, current-tab-index increment *current-tab-index-addr var current-tab-index/edx: int <- copy *current-tab-index-addr @@ -1068,6 +1071,7 @@ fn new-thread-tab _env: (addr environment), users: (addr array user), channels: var current-tab-type/eax: (addr int) <- get current-tab, type copy-to *current-tab, 3/thread var current-tab-root-index/eax: (addr int) <- get current-tab, root-index + var post-index/ecx: int <- copy _post-index copy-to *current-tab-root-index, post-index var items/eax: (addr item-list) <- copy _items var items-data-ah/eax: (addr handle array item) <- get items, data @@ -1091,15 +1095,18 @@ fn new-thread-tab _env: (addr environment), users: (addr array user), channels: # if we didn't find the current item in a post's comments, it must be # the parent post itself which isn't in the comment list but hackily # rendered at the bottom. Just render the whole comment list. + var item-index/eax: int <- copy _item-index var tab-item-index-addr/edi: (addr int) <- get current-tab, item-index copy-to *tab-item-index-addr, curr-post-comment-index return } var curr-comment-index/ecx: (addr int) <- index post-comments, curr-post-comment-index + var item-index/eax: int <- copy _item-index compare *curr-comment-index, item-index { break-if-!= # item-index found + var item-index/eax: int <- copy _item-index var tab-item-index-addr/edi: (addr int) <- get current-tab, item-index copy-to *tab-item-index-addr, curr-post-comment-index return @@ -1110,6 +1117,87 @@ fn new-thread-tab _env: (addr environment), users: (addr array user), channels: abort "new-thread-tab: should never leave previous loop without returning" } +fn new-thread-tab-from-url _env: (addr environment), _url: (addr array byte), users: (addr array user), channels: (addr array channel), _items: (addr item-list) { + var id-storage: (array byte 0x11) + var id/ecx: (addr array byte) <- address id-storage + var url/edx: (addr array byte) <- copy _url + var len/ebx: int <- length url + var idx/eax: int <- copy len + idx <- subtract 0x11/id-length + { + var x/eax: (addr byte) <- index url, idx + var x2/ecx: byte <- copy-byte *x + compare x2, 0x70/p + break-if-= + abort "not p" + } + idx <- increment # skip 'p' + var dest-idx/edi: int <- copy 0 + # insert first 10 digits of id + { + compare dest-idx, 0xa/ten + break-if->= + { + var c/eax: (addr byte) <- index url, idx + var c2/eax: byte <- copy-byte *c + var dest/ecx: (addr byte) <- index id, dest-idx + copy-byte-to *dest, c2 + } + idx <- increment + dest-idx <- increment + loop + } + # insert a decimal point + { + var dest/ecx: (addr byte) <- index id, dest-idx + var decimal-point/eax: byte <- copy 0x2e + copy-byte-to *dest, decimal-point + dest-idx <- increment + } + # insert remaining digits of id + { + compare dest-idx, 0x11/id-length + break-if->= + { + var c/eax: (addr byte) <- index url, idx + var c2/eax: byte <- copy-byte *c + var dest/ecx: (addr byte) <- index id, dest-idx + copy-byte-to *dest, c2 + } + idx <- increment + dest-idx <- increment + loop + } + var post-index/eax: int <- find-item-by-id _items, id + new-thread-tab _env, users, channels, _items, post-index, post-index +} + +fn find-item-by-id _items: (addr item-list), id: (addr array byte) -> _/eax: int { + 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 i/ecx: int <- copy 0 + var len/edx: int <- length items-data + { + compare i, len + break-if->= + var offset/edx: (offset item) <- compute-offset items-data, i + var curr-item/eax: (addr item) <- index items-data, offset + var curr-item-id-ah/eax: (addr handle array byte) <- get curr-item, id + var curr-item-id/eax: (addr array byte) <- lookup *curr-item-id-ah + { + var found?/eax: boolean <- string-equal? curr-item-id, id + compare found?, 0/false + break-if-= + return i + } + i <- increment + loop + } + abort "find-item-by-id: not found" + return -1 +} + # hide a thread in a (channel or all-items) tab fn hide-thread _env: (addr environment), users: (addr array user), channels: (addr array channel), items: (addr item-list) { var env/edi: (addr environment) <- copy _env diff --git a/browse-slack/main.mu b/browse-slack/main.mu index 591e0707..0b1094b8 100644 --- a/browse-slack/main.mu +++ b/browse-slack/main.mu @@ -79,10 +79,12 @@ fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) var items-data-ah/eax: (addr handle array item) <- get items, data populate items-data-ah, 0x10000/num-items parse s, users, channels, items - # render + # event loop var env-storage: environment var env/ebx: (addr environment) <- address env-storage initialize-environment env, items +#? # uncomment this for a hacky feature: browse thread for a specific url +#? new-thread-tab-from-url env, "https://futureofcoding.slack.com/archives/C5T9GPWFL/p1599719973216100", users, channels, items { render-environment screen, env, users, channels, items { |