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

.

This commit is contained in:
Kartik K. Agaram 2021-08-13 14:19:01 -07:00
parent f810852ed2
commit a67cf4b248
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
browse-slack/environment.mu
View File

@ -491,34 +491,34 @@ fn render-json-escaped-unicode-grapheme screen: (addr screen), stream: (addr str
### Edit ### Edit
fn update-environment env: (addr environment), key: byte, items: (addr item-list) { fn update-environment env: (addr environment), key: byte, users: (addr array user), channels: (addr array channel), items: (addr item-list) {
{ {
compare key, 0xe/ctrl-n compare key, 0xe/ctrl-n
break-if-!= break-if-!=
next-item env, items next-item env, users, channels, items
return return
} }
{ {
compare key, 0x10/ctrl-p compare key, 0x10/ctrl-p
break-if-!= break-if-!=
previous-item env, items previous-item env, users, channels, items
return return
} }
{ {
compare key, 6/ctrl-f compare key, 6/ctrl-f
break-if-!= break-if-!=
page-down env, items page-down env, users, channels, items
return return
} }
{ {
compare key, 2/ctrl-b compare key, 2/ctrl-b
break-if-!= break-if-!=
page-up env, items page-up env, users, channels, items
return return
} }
} }
fn next-item _env: (addr environment), _items: (addr item-list) { fn next-item _env: (addr environment), users: (addr array user), channels: (addr array channel), _items: (addr item-list) {
var env/edi: (addr environment) <- copy _env var env/edi: (addr environment) <- copy _env
var tabs-ah/eax: (addr handle array tab) <- get env, tabs var tabs-ah/eax: (addr handle array tab) <- get env, tabs
var _tabs/eax: (addr array tab) <- lookup *tabs-ah var _tabs/eax: (addr array tab) <- lookup *tabs-ah
@ -533,7 +533,7 @@ fn next-item _env: (addr environment), _items: (addr item-list) {
decrement *dest decrement *dest
} }
fn previous-item _env: (addr environment), _items: (addr item-list) { fn previous-item _env: (addr environment), users: (addr array user), channels: (addr array channel), _items: (addr item-list) {
var env/edi: (addr environment) <- copy _env var env/edi: (addr environment) <- copy _env
var items/esi: (addr item-list) <- copy _items var items/esi: (addr item-list) <- copy _items
var items-data-first-free-a/ecx: (addr int) <- get items, data-first-free var items-data-first-free-a/ecx: (addr int) <- get items, data-first-free
@ -552,7 +552,7 @@ fn previous-item _env: (addr environment), _items: (addr item-list) {
increment *dest increment *dest
} }
fn page-down _env: (addr environment), _items: (addr item-list) { fn page-down _env: (addr environment), users: (addr array user), channels: (addr array channel), _items: (addr item-list) {
var env/edi: (addr environment) <- copy _env var env/edi: (addr environment) <- copy _env
var items/esi: (addr item-list) <- copy _items var items/esi: (addr item-list) <- copy _items
var items-data-ah/eax: (addr handle array item) <- get items, data var items-data-ah/eax: (addr handle array item) <- get items, data
@ -600,7 +600,7 @@ fn page-down _env: (addr environment), _items: (addr item-list) {
copy-to *current-tab-item-index-addr, new-item-index copy-to *current-tab-item-index-addr, new-item-index
} }
fn page-up _env: (addr environment), _items: (addr item-list) { 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 env/edi: (addr environment) <- copy _env
var items/esi: (addr item-list) <- copy _items var items/esi: (addr item-list) <- copy _items
var items-data-ah/eax: (addr handle array item) <- get items, data var items-data-ah/eax: (addr handle array item) <- get items, data

2
browse-slack/main.mu
View File

@ -119,7 +119,7 @@ fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk)
var key/eax: byte <- read-key keyboard var key/eax: byte <- read-key keyboard
compare key, 0 compare key, 0
loop-if-= loop-if-=
update-environment env, key, items update-environment env, key, users, channels, items
} }
loop loop
} }