ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-12 15:01:38 +03:00
Code Issues Packages Projects Releases Wiki Activity

chat private messaging prompt now persistent

Browse Source
This commit is contained in:
pcmonk 2014-07-10 10:42:05 -07:00
parent a608e99ce0
commit 8b8e1218fd
1 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
main/bin/chat.hoon
View File

@ -18,6 +18,7 @@
++ chat :: user action ++ chat :: user action
$% [%all p=mess] :: say $% [%all p=mess] :: say
[%back p=?(%da %dr %ud) q=@] :: backlog [%back p=?(%da %dr %ud) q=@] :: backlog
[%def p=mess] :: use current prompt
[%how ~] :: help [%how ~] :: help
[%priv p=@p q=mess] :: private [%priv p=@p q=mess] :: private
[%who ~] :: who [%who ~] :: who
@ -28,6 +29,10 @@
[%exp p=@t q=tank] :: code [%exp p=@t q=tank] :: code
[%say p=@t] :: say [%say p=@t] :: say
== :: == ::
++ prom :: prompt type
$% [%pub ~] :: public message
[%pri p=ship] :: private message
== ::
++ user :: amigos ++ user :: amigos
$% [%in p=idad] :: coming on the air $% [%in p=idad] :: coming on the air
[%out p=idad] :: signing off [%out p=idad] :: signing off
@ -50,7 +55,8 @@
(cold [%who ~] tis) (cold [%who ~] tis)
(stag %back dat) (stag %back dat)
(stag %priv ;~(plug ;~(pfix sig fed:ag) ;~(pfix ace mess))) (stag %priv ;~(plug ;~(pfix sig fed:ag) ;~(pfix ace mess)))
(stag %all mess) (stag %all ;~(pfix pam mess))
(stag %def mess)
== ==
:: ::
++ dat ++ dat
@ -114,9 +120,10 @@
:- :* ami=*(map ,@p ,@t) :: :- :* ami=*(map ,@p ,@t) ::
bud=(sein `@p`-<) :: chat server bud=(sein `@p`-<) :: chat server
dun=| :: done dun=| :: done
giz=*(list gift) :: stuff to send
mon=*? :: leet mode mon=*? :: leet mode
nub=*? :: monitor mode nub=*? :: monitor mode
giz=*(list gift) :: stuff to send pro=`prom`[%pub ~] :: prompt state
sta=*station :: station sta=*station :: station
sub=*(list path) :: subscriptions sub=*(list path) :: subscriptions
tod=*(map ,@p ,@ud) :: outstanding, friend tod=*(map ,@p ,@ud) :: outstanding, friend
@ -143,9 +150,14 @@
|% |%
++ abet `bowl`[(flop giz) ?:(dun ~ [~ hope vent(giz ~)])] ++ abet `bowl`[(flop giz) ?:(dun ~ [~ hope vent(giz ~)])]
++ hope ++ hope
:^ [/up %up %text ["& " ""]] :^ [/wa %wa wak]
[/wa %wa wak] [/ya %lq %ya]
[/ya %lq %ya] :^ /up %up %text
:_ ""
?- -.pro
%pub "& "
%pri (weld (scow %p p.pro) " ")
==
%+ welp %+ welp
(turn sub |=(pax=path [[%gr pax] [%gr ~]])) (turn sub |=(pax=path [[%gr pax] [%gr ~]]))
%+ turn (~(tap by tod)) %+ turn (~(tap by tod))
@ -163,6 +175,7 @@
^+ +> ^+ +>
%= +>.$ %= +>.$
giz :_(giz [%sq her %ya [%ra (scot %p her) ~] msg]) giz :_(giz [%sq her %ya [%ra (scot %p her) ~] msg])
pro [%pri her]
tod (~(put by tod) her +((fall (~(get by tod) her) 0))) tod (~(put by tod) her +((fall (~(get by tod) her) 0)))
== ==
:: ::
@ -241,9 +254,11 @@
=+ rey=(rush txt chat) =+ rey=(rush txt chat)
?~ rey ?~ rey
(show %leaf "invalid input") (show %leaf "invalid input")
|-
?- -.u.rey ?- -.u.rey
%all (joke %mess sta p.u.rey) %all (joke(pro [%pub ~]) %mess sta p.u.rey)
%back (joke %backlog sta p.u.rey q.u.rey) %back (joke %backlog sta p.u.rey q.u.rey)
%def $(u.rey ?-(-.pro %pub [%all p.u.rey], %pri [%priv p.pro p.u.rey]))
%how (shew (turn (lore ^:@/===doc%/help/txt) |=(a=@t [%leaf (trip a)]))) %how (shew (turn (lore ^:@/===doc%/help/txt) |=(a=@t [%leaf (trip a)])))
%priv (jake p.u.rey q.u.rey) %priv (jake p.u.rey q.u.rey)
%who %who