#!/bin/rc

fn chatg{
	grep -bi '[^a-z0-9]'$user'([^a-z0-9]|$)' /n/chat/chat | grep -v '^'$user' →'
}

fn chati{
	echo JOIN $user to chat >>/n/chat/chat
	while(){
		echo -n '→ ' >> /dev/text
		read | sed '1s/^/'$user' → /' >>/n/chat/chat
	}
}

fn chatv{
	cat /n/chat/chat
}

fn chatstart{
	9fs tcp!chat.only9fans.com!9990 /n/chat
	
	dims=`{read -c60 /dev/window}
	height=`{echo $dims(5) - $dims(3) | hoc}
	width=`{echo $dims(4) - $dims(2) - 100 | hoc}
	hchat=`{echo $height - 200 | hoc}
	
	window -m -r 0     0    $width     200 -scroll rc -c chatg
	window -m -r 0   100    $width  $hchat -scroll rc -c chatv
	window -m -r 0  $hchat  $width $height -scroll rc -c chati
}

rfork ne
rio -i 'rc -c chatstart'