akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

slack: menu options for browsing intra-item

This commit is contained in:
Kartik K. Agaram 2021-08-14 16:29:25 -07:00
parent 29b268c359
commit 48afc51faf
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
browse-slack/environment.mu
View File

@ -352,19 +352,38 @@ fn render-menu screen: (addr screen), _env: (addr environment) {
}
fn render-main-menu screen: (addr screen), _env: (addr environment) {
var env/edi: (addr environment) <- copy _env
var width/eax: int <- copy 0
var y/ecx: int <- copy 0
width, y <- screen-size screen
y <- decrement
set-cursor-position screen, 2/x, y
{
var env/edi: (addr environment) <- copy _env
var num-tabs/edi: (addr int) <- get env, current-tab-index
compare *num-tabs, 0
break-if-<=
draw-text-rightward-from-cursor screen, " Esc ", width, 0/fg 0xf/bg
draw-text-rightward-from-cursor screen, " go back ", width, 0xf/fg, 0/bg
}
$render-main-menu:enter: {
draw-text-rightward-from-cursor screen, " Enter ", width, 0/fg 0xf/bg
{
{
var current-tab-index-a/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-a
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 current-tab-intra-item-cursor-position/ecx: (addr int) <- get current-tab, intra-item-cursor-position
compare *current-tab-intra-item-cursor-position, 0/user
}
break-if-!=
draw-text-rightward-from-cursor screen, " go to user ", width, 0xf/fg, 0/bg
break $render-main-menu:enter
}
draw-text-rightward-from-cursor screen, " go to thread ", width, 0xf/fg, 0/bg
}
draw-text-rightward-from-cursor screen, " / ", width, 0/fg 0xf/bg
draw-text-rightward-from-cursor screen, " search ", width, 0xf/fg, 0/bg
draw-text-rightward-from-cursor screen, " Tab ", width, 0/fg 0xf/bg