:: :: :: :::: /hoon/talk/app :: :: :: :: :: /? 314 /- *talk, *sole /+ talk, sole /= seed /~ !>(.) /= talk-doc /; |=(a=wain (turn a |=(b=cord [%txt "? {(trip b)}"]))) /: /===/pub/doc/talk/help /txt/ :: :::: :: !: => |% :: data structures ++ house ,[%1 house-1] :: full state ++ house-any :: app history $% [%1 house-1] :: 1: talk == :: ++ house-1 :: $: stories=(map span story) :: conversations general=(set bone) :: meta-subscribe outbox=(pair ,@ud (map ,@ud thought)) :: urbit outbox folks=(map ship human) :: human identities shells=(map bone shell) :: interaction state == :: :: :: ++ story :: wire content $: count=@ud :: (lent grams) grams=(list telegram) :: all history locals=(map ship (pair ,@da status)) :: local presence remotes=(map partner atlas) :: remote presence mirrors=(map station config) :: remote config sequence=(map partner ,@ud) :: partners heard shape=config :: configuration known=(map serial ,@ud) :: messages heard guests=(map bone river) :: message followers viewers=(set bone) :: presence followers owners=(set bone) :: config followers == :: ++ shell :: console session $: her=ship :: client identity man=span :: mailbox count=@ud :: messages shown say=sole-share :: console state active=(unit (set partner)) :: active targets passive=(set partner) :: passive targets guests=register :: presence mirror harbor=(map span (pair posture cord)) :: stations mirror system=cabal :: config mirror == :: ++ river (pair point point) :: stream definition ++ point :: stream endpoint $% [%ud p=@ud] :: by number [%da p=@da] :: by date == :: ++ move (pair bone card) :: all actions ++ lime :: diff fruit $% [%talk-report report] :: [%sole-effect sole-effect] :: == :: ++ pear :: poke fruit $% [%talk-command command] :: == :: ++ card :: general card $% [%diff lime] :: [%info wire @p @tas nori] :: [%peer wire dock path] :: [%poke wire dock pear] :: [%pull wire dock ~] :: [%pass wire note] :: [%quit ~] :: == :: ++ weir :: parsed wire $% [%repeat p=@ud q=@p r=span] :: [%friend p=span q=station] :: == :: :: :: ++ work :: interface action $% [%number p=? q=@ud] :: activate by number [%help ~] :: print usage info [%join p=(set partner)] :: [%say p=speech] :: [%eval p=twig q=cord] :: [%invite p=span q=(list partner)] :: [%banish p=span q=(list partner)] :: [%target p=(set partner)] :: set active targets :: [%destroy p=span] :: [%create p=posture q=span r=cord] :: [%probe p=station] :: == :: :: :: ++ sigh :: assemble label |= [len=@ud pre=tape yiz=cord] ^- tape =+ nez=(trip yiz) =+ lez=(lent nez) ?> (gth len (lent pre)) =. len (sub len (lent pre)) ?. (gth lez len) =. nez (welp pre nez) ?. (lth lez len) nez (runt [(sub len lez) '-'] nez) :(welp pre (scag (dec len) nez) "+") -- |_ [hid=bowl house] ++ ra :: per transaction |_ [ost=bone moves=(list move)] ++ sh :: per console |_ $: coz=(list command) :: talk actions she=shell == ++ sh-expr wide:(vang & [&1:% &2:% (scot %da now.hid) |3:%]) :: ++ sh-scad :: command parser =< work |% ++ dare :: @dr %+ sear |= a=coin ?. ?=([%$ %dr @] a) ~ (some `@dr`+>.a) nuck:so :: ++ ship ;~(pfix sig fed:ag) :: ship ++ shiz :: ship set %+ cook |=(a=(list ^ship) (~(gas in *(set ^ship)) a)) (most ;~(plug com (star ace)) ship) :: ++ pasp :: passport ;~ pfix pat ;~ pose (stag %twitter ;~(pfix (jest 't') col urs:ab)) == == :: ++ stan :: station ;~ pose (cold [our.hid man.she] tis) ;~(pfix cen (cook |=(a=term [our.hid a]) sym)) ;~(pfix fas (cook |=(a=term [(sein our.hid) a]) sym)) :: %+ cook |= [a=@p b=(unit term)] [a ?^(b u.b (main a))] ;~ plug ship ;~(pose (stag ~ ;~(pfix fas urs:ab)) (easy ~)) == == :: ++ parn :: partner ;~ pose (stag %& stan) (stag %| pasp) == ++ parq :: non-empty partners %+ cook |=(a=(list partner) (~(gas in *(set partner)) a)) (most ;~(plug com (star ace)) parn) :: ++ parz :: partner set %+ cook |=(a=(list partner) (~(gas in *(set partner)) a)) (more ;~(plug com (star ace)) parn) :: ++ nump :: number reference ;~ pose (stag %& dem:ag) (stag %| ;~(pfix (just '0') dem:ag)) == :: ++ pore :: posture ;~ pose (cold %black (jest %channel)) (cold %white (jest %village)) (cold %green (jest %journal)) (cold %brown (jest %mailbox)) == :: ++ work %+ knee *^work |. ~+ ;~ pose ;~ (glue ace) (perk %create ~) pore ;~(pfix cen sym) qut == :: ;~((glue ace) (perk %join ~) parq) ;~(plug (perk %help ~) (easy ~)) (stag %number nump) (stag %target parz) == -- ++ sh-abet ^+ +> =+ zoc=(flop coz) |- ^+ +>+> ?~ zoc +>+>.$(shells (~(put by shells) ost she)) $(zoc t.zoc, +>.$ (sh-deal i.zoc)) :: ++ sh-deal :: apply from shell |= cod=command ^+ +> ?- -.cod %design ?~ q.cod =. +>+>.$ (ra-config p.cod *config) +>.$(stories (~(del by stories) p.cod)) +>(+> (ra-config p.cod u.q.cod)) :: %review +>(+> (ra-think | her.she +.cod)) %publish +>(+> (ra-think & her.she +.cod)) == :: ++ sh-fact :: send console effect |= fec=sole-effect ^+ +> +>(moves :_(moves [ost %diff %sole-effect fec])) :: ++ sh-peep :: peer to path |= pax=path ^+ +> +>(+> (~(ra-subscribe ra ost ~) her.she pax)) :: ++ sh-peer :: subscribe shell =< sh-prod %_ . +> %- ra-subscribe:(~(ra-subscribe ra ost ~) her.she ~) [her.she [%afx man.she ~]] == :: ++ sh-prod :: show prompt ^+ . %+ sh-fact %pro :+ & %talk-line ^- tape =+ ^= rew ^- (pair (pair ,@t ,@t) (set partner)) ?~ active.she [['(' ')'] passive.she] [['[' ']'] u.active.she] =+ por=~(te-prom te man.she q.rew) (weld `tape`[p.p.rew por] `tape`[q.p.rew ' ' ~]) :: ++ sh-pact :: update active aud |= lix=(set partner) ^+ +> =+ act=?~(lix ~ `(sh-pare lix)) ?: =(active.she act) +>.$ sh-prod(active.she act) :: ++ sh-pare :: adjust target list |= paz=(set partner) ?: (sh-pear paz) paz (~(put in paz) [%& our.hid man.she]) :: ++ sh-pear :: hearback |= paz=(set partner) ?~ paz | ?| $(paz l.paz) $(paz r.paz) (~(has in sources.shape:(~(got by stories) man.she)) `partner`n.paz) == :: ++ sh-pass :: passive from aud |= aud=audience %- sh-poss %- ~(gas in *(set partner)) (turn (~(tap by aud)) |=([a=partner *] a)) :: ++ sh-poss :: passive update |= lix=(set partner) =+ sap=(sh-pare lix) ?: =(sap passive.she) +>.$ sh-prod(passive.she sap) :: ++ sh-pest :: report listen |= tay=partner ^+ +> ?. ?=(%& -.tay) +> =+ sib=(~(get by ham.system.she) `station`p.tay) ?. |(?=(~ sib) !?=(%white p.cordon.u.sib)) +>.$ (sh-poss [tay ~ ~]) :: ++ sh-rend :: print on one line |= gam=telegram =+ lin=~(tr-line tr man.she gam) (sh-pass:(sh-fact %txt lin) q.q.gam) :: ++ sh-numb :: print msg number |= num=@ud ^+ +> =+ bun=(scow %ud num) :: =+ pad=(sub 36 (lent bun)) :: =+ now=`@da`(dis now.hid 0xffff.ffff.ffff.ffff.0000.0000.0000.0000) %+ sh-fact %txt (runt [(sub 15 (lent bun)) '-'] "[{bun}]") :: ++ sh-repo-house-diff |= [one=shelf two=shelf] =| $= ret $: old=(list (pair span (pair posture cord))) new=(list (pair span (pair posture cord))) cha=(list (pair span (pair posture cord))) == ^+ ret =. ret =+ eno=(~(tap by one)) |- ^+ ret ?~ eno ret =. ret $(eno t.eno) =+ unt=(~(get by two) p.i.eno) ?~ unt ret(old [i.eno old.ret]) ?: =(q.i.eno u.unt) ret ret(cha [[p.i.eno u.unt] cha.ret]) =. ret =+ owt=(~(tap by two)) |- ^+ ret ?~ owt ret =. ret $(owt t.owt) ?: (~(has by one) p.i.owt) ret ret(new [i.owt new.ret]) ret :: ++ sh-repo-atlas-diff |= [one=atlas two=atlas] =| $= ret $: old=(list (pair ship status)) new=(list (pair ship status)) cha=(list (pair ship status)) == ^+ ret =. ret =+ eno=(~(tap by one)) |- ^+ ret ?~ eno ret =. ret $(eno t.eno) =+ unt=(~(get by two) p.i.eno) ?~ unt ret(old [i.eno old.ret]) ?: =(q.i.eno u.unt) ret ret(cha [[p.i.eno u.unt] cha.ret]) =. ret =+ owt=(~(tap by two)) |- ^+ ret ?~ owt ret =. ret $(owt t.owt) ?: (~(has by one) p.i.owt) ret ret(new [i.owt new.ret]) ret :: ++ sh-repo-cabal-diff |= [one=(map station config) two=(map station config)] =| $= ret $: old=(list (pair station config)) new=(list (pair station config)) cha=(list (pair station config)) == ^+ ret =. ret =+ eno=(~(tap by one)) |- ^+ ret ?~ eno ret =. ret $(eno t.eno) =+ unt=(~(get by two) p.i.eno) ?~ unt ret(old [i.eno old.ret]) ?: =(q.i.eno u.unt) ret ret(cha [[p.i.eno u.unt] cha.ret]) =. ret =+ owt=(~(tap by two)) |- ^+ ret ?~ owt ret =. ret $(owt t.owt) ?: (~(has by one) p.i.owt) ret ret(new [i.owt new.ret]) ret :: ++ sh-repo-rogue-diff |= [one=(map partner atlas) two=(map partner atlas)] =| $= ret $: old=(list (pair partner atlas)) new=(list (pair partner atlas)) cha=(list (pair partner atlas)) == ^+ ret =. ret =+ eno=(~(tap by one)) |- ^+ ret ?~ eno ret =. ret $(eno t.eno) =+ unt=(~(get by two) p.i.eno) ?~ unt ret(old [i.eno old.ret]) ?: =(q.i.eno u.unt) ret ret(cha [[p.i.eno u.unt] cha.ret]) =. ret =+ owt=(~(tap by two)) |- ^+ ret ?~ owt ret =. ret $(owt t.owt) ?: (~(has by one) p.i.owt) ret ret(new [i.owt new.ret]) ret :: ++ sh-repo-whom-diff |= [one=(set partner) two=(set partner)] =| $= ret $: old=(list partner) new=(list partner) == ^+ ret =. ret =+ eno=(~(tap by one)) |- ^+ ret ?~ eno ret =. ret $(eno t.eno) ?: (~(has in two) i.eno) ret ret(old [i.eno old.ret]) =. ret =+ owt=(~(tap by two)) |- ^+ ret ?~ owt ret =. ret $(owt t.owt) ?: (~(has in one) i.owt) ret ret(new [i.owt new.ret]) ret :: ++ sh-repo-ship-diff |= [one=(set ship) two=(set ship)] =| $= ret $: old=(list ship) new=(list ship) == ^+ ret =. ret =+ eno=(~(tap by one)) |- ^+ ret ?~ eno ret =. ret $(eno t.eno) ?: (~(has in two) i.eno) ret ret(old [i.eno old.ret]) =. ret =+ owt=(~(tap by two)) |- ^+ ret ?~ owt ret =. ret $(owt t.owt) ?: (~(has in one) i.owt) ret ret(new [i.owt new.ret]) ret :: ++ sh-puss |= a=posture ^- tape ?- a %black "channel" %brown "mailbox" %white "village" %green "journal" == :: ++ sh-repo-config-exceptions |= [pre=tape por=posture old=(list ship) new=(list ship)] =+ out=?:(?=(?(%black %brown) por) "try " "cut ") =+ inn=?:(?=(?(%black %brown) por) "ban " "add ") =. +>.$ |- ^+ +>.^$ ?~ old +>.^$ =. +>.^$ $(old t.old) (sh-note :(weld pre out " " (scow %p i.old))) =. +>.$ |- ^+ +>.^$ ?~ new +>.^$ =. +>.^$ $(new t.new) (sh-note :(weld pre out " " (scow %p i.new))) +>.$ :: ++ sh-repo-config-sources |= [pre=tape old=(list partner) new=(list partner)] ^+ +> =. +>.$ |- ^+ +>.^$ ?~ old +>.^$ =. +>.^$ $(old t.old) (sh-note (weld pre "off {~(ta-full ta man.she i.old)}")) =. +>.$ |- ^+ +>.^$ ?~ new +>.^$ =. +>.^$ $(new t.new) (sh-note (weld pre "hey {~(ta-full ta man.she i.new)}")) +>.$ :: ++ sh-repo-config-show |= [pre=tape laz=config loc=config] ^+ +> =. +>.$ ?: =(caption.loc caption.laz) +>.$ (sh-note :(weld pre "cap " (trip caption.loc))) =. +>.$ %+ sh-repo-config-sources (weld (trip man.she) ": ") (sh-repo-whom-diff sources.laz sources.loc) ?: !=(p.cordon.loc p.cordon.laz) =. +>.$ (sh-note :(weld pre "but " (sh-puss p.cordon.loc))) %^ sh-repo-config-exceptions (weld (trip man.she) ": ") p.cordon.loc [~ (~(tap in q.cordon.loc))] %^ sh-repo-config-exceptions (weld (trip man.she) ": ") p.cordon.loc (sh-repo-ship-diff q.cordon.laz q.cordon.loc) :: ++ sh-repo-cabal-changes |= $: laz=(map station config) old=(list (pair station config)) new=(list (pair station config)) cha=(list (pair station config)) == =. +>.$ |- ^+ +>.^$ ?~ new +>.^$ =. +>.^$ $(new t.new) =. +>.^$ (sh-pest [%& p.i.new]) %+ sh-repo-config-show (weld ~(sn-phat sn man.she p.i.new) ": ") [*config q.i.new] =. +>.$ |- ^+ +>.^$ ?~ cha +>.^$ =. +>.^$ $(cha t.cha) %+ sh-repo-config-show (weld ~(sn-phat sn man.she p.i.cha) ": ") [(~(got by laz) `station`p.i.cha) q.i.cha] +>.$ :: ++ sh-repo-cabal |= bal=cabal ^+ +> =+ laz=system.she =. system.she bal =. +>.$ %+ sh-repo-cabal-changes ham.laz (sh-repo-cabal-diff ham.laz ham.bal) (sh-repo-config-show "" loc.laz loc.bal) :: ++ sh-repo-house |= awl=(map span (pair posture cord)) ^+ +> =+ dif=(sh-repo-house-diff harbor.she awl) =. harbor.she awl =. +>.$ |- ^+ +>.^$ ?~ old.dif +>.^$ =. +>.^$ $(old.dif t.old.dif) (sh-note "cut {(sh-puss p.q.i.old.dif)} %{(trip p.i.old.dif)}") =. +>.$ |- ^+ +>.^$ ?~ new.dif +>.^$ =. +>.^$ $(new.dif t.new.dif) =+ :* nam=(trip p.i.new.dif) por=(sh-puss p.q.i.new.dif) des=(trip q.q.i.new.dif) == (sh-note "new {por} %{nam}: {des}") =. +>.$ |- ^+ +>.^$ ?~ cha.dif +>.^$ =. +>.^$ $(cha.dif t.cha.dif) =+ :* nam=(trip p.i.cha.dif) por=(sh-puss p.q.i.cha.dif) des=(trip q.q.i.cha.dif) == (sh-note "mod %{nam}: {por}, {des}") +>.$ :: ++ sh-note :: shell message |= txt=tape ^+ +> (sh-fact %txt (runt [16 '-'] `tape`['|' ' ' (scag 62 txt)])) :: ++ sh-spaz :: print status |= saz=status ^- tape ['%' (trip p.saz)] :: ++ sh-repo-group-diff-here :: print atlas diff |= $: pre=tape $= cul $: old=(list (pair ship status)) new=(list (pair ship status)) cha=(list (pair ship status)) == == =. +>.$ |- ^+ +>.^$ ?~ old.cul +>.^$ =. +>.^$ $(old.cul t.old.cul) (sh-note (weld pre "bye {(scow %p p.i.old.cul)}")) =. +>.$ |- ^+ +>.^$ ?~ new.cul +>.^$ =. +>.^$ $(new.cul t.new.cul) %- sh-note (weld pre "met {(scow %p p.i.new.cul)} {(sh-spaz q.i.new.cul)}") =. +>.$ |- ^+ +>.^$ ?~ cha.cul +>.^$ %- sh-note (weld pre "set {(scow %p p.i.cha.cul)} {(sh-spaz q.i.cha.cul)}") +>.$ :: ++ sh-repo-group-here :: update local |= loc=atlas ^+ +> =+ cul=(sh-repo-atlas-diff p.guests.she loc) =. p.guests.she loc (sh-repo-group-diff-here "" cul) :: ++ sh-repo-group-there :: update foreign |= yid=(map partner atlas) =+ day=(sh-repo-rogue-diff q.guests.she yid) =+ dun=q.guests.she =. q.guests.she yid =. +>.$ |- ^+ +>.^$ ?~ old.day +>.^$ =. +>.^$ $(old.day t.old.day) (sh-note (weld "not " (~(ta-show ta man.she p.i.old.day) ~))) =. +>.$ |- ^+ +>.^$ ?~ new.day +>.^$ =. +>.^$ $(new.day t.new.day) =. +>.^$ (sh-note (weld "new " (~(ta-show ta man.she p.i.new.day) ~))) (sh-repo-group-diff-here "--" ~ (~(tap by q.i.new.day)) ~) =. +>.$ |- ^+ +>.^$ ?~ cha.day +>.^$ =. +>.^$ $(cha.day t.cha.day) =. +>.^$ (sh-note (weld "for " (~(ta-show ta man.she p.i.cha.day) ~))) =+ yez=(~(got by dun) p.i.cha.day) %+ sh-repo-group-diff-here "--" (sh-repo-atlas-diff yez q.i.cha.day) +>.$ :: ++ sh-repo-group |= ges=register ^+ +> =. +> (sh-repo-group-here p.ges) =. +> (sh-repo-group-there q.ges) +> :: ++ sh-repo-gram |= [num=@ud gam=telegram] ^+ +> ?: =(num count.she) =. +> ?:(=(0 (mod num 5)) (sh-numb num) +>) (sh-rend(count.she +(num)) gam) ?: (gth num count.she) =. +> (sh-numb num) (sh-rend(count.she +(num)) gam) +> :: ++ sh-repo-grams :: apply telegrams |= [num=@ud gaz=(list telegram)] ^+ +> ?~ gaz +> $(gaz t.gaz, num +(num), +> (sh-repo-gram num i.gaz)) :: ++ sh-repo :: apply report |= rad=report ^+ +> :: ~& [%sh-repo rad] ?- -.rad %cabal (sh-repo-cabal +.rad) %grams (sh-repo-grams +.rad) %group (sh-repo-group +.rad) %house (sh-repo-house +.rad) == :: ++ sh-sane-chat :: sanitize chatter |= buf=(list ,@c) ^- (list sole-edit) =+ :- inx=0 ^= fix |= [inx=@ud cha=@t lit=(list sole-edit)] ^+ lit [[%mor [%del inx] [%ins inx `@c`cha] ~] lit] |- ^- (list sole-edit) ?: =(62 inx) |- ^- (list sole-edit) ?~(buf ~ [[%del 62] $(buf t.buf)]) ?~ buf ~ =+ lit=$(inx +(inx), buf t.buf) ?: |((lth i.buf 32) (gth i.buf 126)) (fix inx '?' lit) ?: &((gte i.buf 'A') (lte i.buf 'Z')) (fix inx (add 32 i.buf) lit) :: ?: &(=('/' i.buf) ?=([47 *] t.buf)) :: (fix inx '\\' lit) lit :: ++ sh-sane-rule :: sanitize by rule |* sef=_rule |= [inv=sole-edit txt=tape] ^- (list sole-edit) =+ ryv=(rose txt sef) ?:(-.ryv ~ [inv ~]) :: ++ sh-sane :: sanitize input |= [inv=sole-edit buf=(list ,@c)] ^- (list sole-edit) ?~ buf ~ =+ txt=(tufa buf) ?: =(& -:(rose txt aurf:urlp)) ~ ?: =(';' -.txt) ((sh-sane-rule sh-scad) inv +.txt) ?: =('#' -.txt) ((sh-sane-rule sh-expr) inv +.txt) ?: =('@' -.txt) (sh-sane-chat +.buf) (sh-sane-chat buf) :: ++ sh-slug :: edit to sanity |= lit=(list sole-edit) ^+ +> ?~ lit +> =^ lic say.she (~(transmit cs say.she) `sole-edit`?~(t.lit i.lit [%mor lit])) (sh-fact [%mor [%det lic] ~]) :: ++ sh-stir :: apply edit |= cal=sole-change ^+ +> =^ inv say.she (~(transceive cs say.she) cal) =+ lit=(sh-sane inv buf.say.she) ?~ lit +>.$ (sh-slug lit) :: ++ sh-pork :: parse work ^- (unit work) ?~ buf.say.she ~ =+ txt=(tufa buf.say.she) =+ rou=(rust txt aurf:urlp) ?^ rou `[%say %url u.rou] ?: =(';' -.txt) (rust +.txt sh-scad) ?: =('#' -.txt) (bind (rust +.txt sh-expr) |=(a=twig [%eval a (crip +.txt)])) ?: =('@' -.txt) `[%say %lin | (crip +.txt)] `[%say %lin & (crip txt)] :: ++ sh-lame :: send error |= txt=tape (sh-fact [%txt txt]) :: ++ sh-whom :: current audience ^- audience %- ~(gas by *audience) %+ turn (~(tap in ?~(active.she passive.she u.active.she))) |=(a=partner [a *envelope %pending]) :: ++ sh-tell :: add command |= cod=command %_(+> coz [cod coz]) :: ++ sh-twig-head ^- vase :: eval data :(slop !>(`our=@p`our.hid) !>(`now=@da`now.hid) !>(`eny=@uvI`eny.hid)) :: ++ sh-work :: do work |= job=work ^+ +> =+ roy=(~(got by stories) man.she) =< work |% ++ work ?- -.job %number (number +.job) %join (join +.job) %eval (eval +.job) %invite (invite +.job) %banish (banish +.job) %create (create +.job) %target (target +.job) %probe (probe +.job) %help (help) %say (say +.job) == :: ++ activate :: from %number |= gam=telegram ^+ ..sh-work ~& [%activate gam] sh-prod(active.she `~(tr-pals tr man.she gam)) :: ++ help |=(~ (sh-fact %mor talk-doc)) :: %help ++ join :: %join |= lix=(set partner) ^+ ..sh-work =+ loc=loc.system.she %^ sh-tell %design man.she :- ~ =+ tal=(~(tap in lix)) %_ loc sources |- ^- (set partner) ?~ tal sources.loc ?: (~(has in sources.loc) i.tal) $(tal t.tal, sources.loc (~(del in sources.loc) i.tal)) $(tal t.tal, sources.loc (~(put in sources.loc) i.tal)) == :: ++ invite :: %invite |= [nom=span tal=(list partner)] ^+ ..sh-work !! :: ++ banish :: %banish |= [nom=span tal=(list partner)] ^+ ..sh-work !! :: ++ create :: %create |= [por=posture nom=span txt=cord] ^+ ..sh-work ?: (~(has in stories) nom) (sh-lame "{(trip nom)}: already exists") =. ..sh-work %^ sh-tell %design nom :- ~ :+ *(set partner) (end 3 62 txt) [por ~] (join [[%& our.hid nom] ~ ~]) :: ++ target :: %target |= lix=(set partner) (sh-pact lix) :: ++ number :: %number |= [rel=? num=@ud] ^+ ..sh-work =+ roy=(~(got by stories) man.she) =. num ?. rel num =+ dog=|-(?:(=(0 num) 1 (mul 10 $(num (div num 10))))) (add num (mul dog (div count.roy dog))) ?: (gte num count.roy) (sh-lame "{(scow %ud num)}: no such telegram") (activate (snag (sub count.roy +(num)) grams.roy)) :: ++ probe :: inquire |= cuz=station ^+ ..sh-work ~& [%probe cuz] ..sh-work :: ++ eval :: run |= [exe=twig txt=cord] %^ say %fat tank/[(sell (slap (slop sh-twig-head seed) exe))]~ [%exp txt] :: ++ say :: publish |= sep=speech ^+ ..sh-work =^ sir ..sh-work sh-uniq %= ..sh-work coz :_ coz [%publish [[sir sh-whom [now.hid ~ sep]] ~]] == -- :: ++ sh-done :: apply result =+ lit=(sh-sane [%nop ~] buf.say.she) ?^ lit (sh-slug lit) =+ jub=sh-pork ?~ jub (sh-fact %bel ~) =. +> (sh-work u.jub) =+ buf=buf.say.she =^ cal say.she (~(transmit cs say.she) [%set ~]) %- sh-fact :* %mor [%nex ~] [%det cal] ?. ?=([%';' *] buf) ~ :_ ~ [%txt (weld "----------------| " (tufa buf))] == :: ++ sh-sole :: apply edit |= act=sole-action ^+ +> ?- -.act %det (sh-stir +.act) %ret sh-done == :: ++ sh-uniq ^- [serial _.] [(shaf %serial eny.hid) .(eny.hid (shax eny.hid))] -- ++ ra-abed :: resolve core ^- [(list move) _+>] :_ +> =+ ^= yop |- ^- (pair (list move) (list sole-effect)) ?~ moves [~ ~] =+ mor=$(moves t.moves) ?: ?& =(ost p.i.moves) ?=([%diff %sole-effect *] q.i.moves) == [p.mor [+>.q.i.moves q.mor]] [[i.moves p.mor] q.mor] =+ :* moz=(flop p.yop) ^= foc ^- (unit sole-effect) ?~ q.yop ~ ?~(t.q.yop `i.q.yop `[%mor (flop `(list sole-effect)`q.yop)]) == ?~(foc moz [[ost %diff %sole-effect u.foc] moz]) :: ++ ra-abet :: complete core ra-abed:ra-axel :: ++ ra-axel :: rebound reports ^+ . =+ ^= rey |- ^- (pair (list move) (list (pair bone report))) ?~ moves [~ ~] =+ mor=$(moves t.moves) ?. ?& (~(has by shells) `bone`p.i.moves) ?=([%diff %talk-report *] q.i.moves) == [[i.moves p.mor] q.mor] [p.mor [[p.i.moves +>.q.i.moves] q.mor]] =. moves p.rey ?: =(q.rey ~) + =. q.rey (flop q.rey) |- ^+ +> ?~ q.rey ra-axel $(q.rey t.q.rey, +> (ra-back(ost p.i.q.rey) q.i.q.rey)) :: ++ ra-back |= rad=report ^+ +> sh-abet:(~(sh-repo sh ~ (~(got by shells) ost)) rad) :: ++ ra-sole |= act=sole-action ^+ +> =+ shu=(~(get by shells) ost) ?~ shu ~& [%ra-console-broken ost] +>.$ sh-abet:(~(sh-sole sh ~ (~(got by shells) ost)) act) :: ++ ra-emil :: ra-emit move list |= mol=(list move) %_(+> moves (welp (flop mol) moves)) :: ++ ra-emit :: emit a move |= mov=move %_(+> moves [mov moves]) :: ++ ra-evil :: emit error |= msg=cord ~| [%ra-evil msg] !! :: ++ ra-house :: emit partners |= ost=bone %+ ra-emit ost :+ %diff %talk-report :- %house %- ~(gas in *(map span (pair posture cord))) %+ turn (~(tap by stories)) |=([a=span b=story] [a p.cordon.shape.b caption.shape.b]) :: ++ ra-homes :: update partners =+ gel=general |- ^+ +> ?~ gel +> =. +> $(gel l.gel) =. +> $(gel r.gel) (ra-house n.gel) :: ++ ra-init :: initialize talk %+ ra-apply our.hid :+ %design (main our.hid) :- ~ :- ~ :- 'default home' [%brown ~] :: ++ ra-apply :: apply command |= [her=ship cod=command] ^+ +> ?- -.cod %design ?. =(her our.hid) (ra-evil %talk-no-owner) ?~ q.cod ?. (~(has by stories) p.cod) (ra-evil %talk-no-story) (ra-config(stories (~(del by stories) p.cod)) p.cod *config) (ra-config p.cod u.q.cod) :: %review (ra-think | her +.cod) %publish (ra-think & her +.cod) == :: ++ ra-config :: configure story |= [man=span con=config] ^+ +> =+ :- neu=(~(has by stories) man) pur=(fall (~(get by stories) man) *story) =. +>.$ pa-abet:(~(pa-reform pa man pur) con) ?:(neu +>.$ ra-homes) :: ++ ra-know :: story monad |= man=span |* fun=$+(_pa _+>+>) ^+ +>+> =+ pur=(~(get by stories) man) ?~ pur ~& [%ra-know-not man] :: XX should crash +>+>.$ (fun ~(. pa man u.pur)) :: ++ ra-diff-talk-report :: subscription update |= [man=span cuz=station rad=report] %- (ra-know man) |= par=_pa =< pa-abet (pa-diff-talk-report:par cuz rad) :: ++ ra-quit :: subscription quit |= [man=span cuz=station] %- (ra-know man) |= par=_pa =< pa-abet (pa-quit:par %& cuz) :: ++ ra-retry :: subscription resend |= [man=span cuz=station] %- (ra-know man) |= par=_pa =< pa-abet (pa-acquire:par [%& cuz]~) :: ++ ra-coup-repeat :: |= [[num=@ud her=@p man=span] saw=(unit tang)] (ra-repeat num [%& her man] saw) :: ++ ra-repeat :: remove from outbox |= [num=@ud pan=partner saw=(unit tang)] =+ oot=(~(get by q.outbox) num) ?~ oot ~|([%ra-repeat-none num] !!) =. q.outbox (~(del by q.outbox) num) =. q.u.oot =+ olg=(~(got by q.u.oot) pan) %+ ~(put by q.u.oot) pan :- -.olg ?~ saw %received ~> %slog.[0 u.saw] %rejected (ra-think | our.hid u.oot ~) :: ++ ra-cancel :: drop a bone |= [src=ship pax=path] ^+ +> ?. ?=([@ @ *] pax) +>(general (~(del in general) ost)) %- (ra-know i.t.pax) |= par=_pa =< pa-abet (pa-notify:pa-cancel:par src %gone *human) :: ++ ra-human :: look up person |= her=ship ^- [human _+>] =^ who folks =+ who=(~(get by folks) her) ?^ who [u.who folks] =+ who=`human`[~ `(scot %p her)] :: XX do right [who (~(put by folks) her who)] [who +>.$] :: ++ ra-console :: console subscribe |= [her=ship pax=path] ^+ +> =+ man=`span`?~(pax (main her) ?>(?=(~ t.pax) i.pax)) =+ ^= she ^- shell [her man 0 *sole-share ~ [[%& our.hid man] ~ ~] [~ ~] ~ *cabal] sh-abet:~(sh-peer sh ~ she) :: ++ ra-subscribe :: listen to |= [her=ship pax=path] ^+ +> :: ~& [%ra-subscribe ost her pax] ?: ?=(~ pax) (ra-house(general (~(put in general) ost)) ost) ?. ?=([@ @ *] pax) (ra-evil %talk-bad-path) =+ ^= vab ^- (set ,@tas) =| vab=(set ,@tas) |- ^+ vab ?: =(0 i.pax) vab $(i.pax (rsh 3 1 i.pax), vab (~(put in vab) (end 3 1 i.pax))) =+ pur=(~(get by stories) i.t.pax) ?~ pur ~& [%bad-subscribe-story-c i.t.pax] (ra-evil %talk-no-story) =+ soy=~(. pa i.t.pax u.pur) =^ who +>.$ (ra-human her) =. soy ?.((~(has in vab) %a) soy (pa-watch:soy her)) =. soy ?.((~(has in vab) %x) soy (pa-master:soy her)) =. soy (pa-notify:soy her %hear who) =. soy ?.((~(has in vab) %f) soy (pa-listen:soy her t.t.pax)) pa-abet:soy :: ++ ra-think :: publish/review |= [pub=? her=ship tiz=(list thought)] ^+ +> ?~ tiz +> $(tiz t.tiz, +> (ra-consume pub her i.tiz)) :: ++ ra-normal :: normalize |= tip=thought ^- thought ?. ?=([%lin *] r.r.tip) tip %_ tip q.r.r %- crip %+ scag 62 %- tufa %+ turn (tuba (trip q.r.r.tip)) |= a=@c ?: &((gte a 'A') (lte a 'Z')) (add a 32) ?: |((lth a 32) (gth a 126)) `@`'?' a == :: ++ ra-consume :: consume thought |= [pub=? her=ship tip=thought] =. tip (ra-normal tip) =+ aud=(~(tap by q.tip) ~) |- ^+ +>.^$ ?~ aud +>.^$ $(aud t.aud, +>.^$ (ra-conduct pub her p.i.aud tip)) :: ++ ra-conduct :: thought to partner |= [pub=? her=ship tay=partner tip=thought] ^+ +> :: ~& [%ra-conduct pub her tay] ?- -.tay %& ?: pub =. her our.hid :: XX security! ?: =(her p.p.tay) (ra-record q.p.tay p.p.tay tip) (ra-transmit p.tay tip) ?. =(our.hid p.p.tay) +> (ra-record q.p.tay her tip) %| !! == :: ++ ra-record :: add to story |= [man=span gam=telegram] %- (ra-know man) |= par=_pa =< pa-abet (pa-learn:par gam) :: ++ ra-transmit :: send to neighbor |= [cuz=station tip=thought] ^+ +> =. +> %+ ra-emit ost :* %poke /repeat/(scot %ud p.outbox)/(scot %p p.cuz)/[q.cuz] [p.cuz %talk] [%talk-command `command`[%review tip ~]] == +>(p.outbox +(p.outbox), q.outbox (~(put by q.outbox) p.outbox tip)) :: ++ pa :: story core |_ $: man=span story == ++ pa-abet ^+ +> +>(stories (~(put by stories) man `story`+<+)) :: ++ pa-admire :: accept from |= her=ship ^- ? ::?- -.cordon.shape :: %& (~(has in p.cordon.shape) her) :: %| !(~(has in p.cordon.shape) her) ::== & :: ++ pa-watch :: watch presence |= her=ship ?. (pa-admire her) (pa-sauce ost [%quit ~]~) =. viewers (~(put in viewers) ost) (pa-display ost ~ ~) :: ++ pa-master :: hear config |= her=ship ?. (pa-admire her) ~& [%pa-admire-not her] (pa-sauce ost [%quit ~]~) =. owners (~(put in owners) ost) :: ~& [%pa-master her man shape] (pa-sauce ost [[%diff %talk-report %cabal shape mirrors] ~]) :: ++ pa-display :: update presence |= vew=(set bone) =+ ^= reg :_ remotes |- ^- atlas ?~ locals ~ [[p.n.locals q.q.n.locals] $(locals l.locals) $(locals r.locals)] :: ~& [%pa-display man reg] |- ^+ +>.^$ ?~ vew +>.^$ =. +>.^$ $(vew l.vew) =. +>.^$ $(vew r.vew) (pa-sauce n.vew [[%diff %talk-report %group reg] ~]) :: ++ pa-monitor :: update config =+ owe=owners |- ^+ +> ?~ owe +> =. +> $(owe l.owe) =. +> $(owe r.owe) :: ~& [%pa-monitor man shape] (pa-sauce n.owe [[%diff %talk-report %cabal shape mirrors] ~]) :: ++ pa-cabal |= [cuz=station con=config ham=(map station config)] ^+ +> =+ old=mirrors =. mirrors (~(put by mirrors) cuz con) ?: =(mirrors old) +>.$ pa-monitor :: ++ pa-diff-talk-report :: subscribed update |= [cuz=station rad=report] ^+ +> ?. (~(has in sources.shape) [%& cuz]) ~& [%pa-diff-unexpected cuz rad] +> ?+ -.rad ~|([%talk-odd-friend rad] !!) %cabal (pa-cabal cuz +.rad) %group (pa-remind [%& cuz] +.rad) %grams (pa-lesson q.+.rad) == :: ++ pa-quit :: stop subscription |= tay=partner pa-monitor(sources.shape (~(del in sources.shape) tay)) :: ++ pa-sauce :: send backward |= [ost=bone cub=(list card)] %_ +>.$ moves (welp (flop (turn cub |=(a=card [ost a]))) moves) == :: ++ pa-abjure :: unsubscribe move |= tal=(list partner) %+ pa-sauce 0 %- zing %+ turn tal |= tay=partner ^- (list card) ?- -.tay %| ~& tweet-abjure/p.p.tay !! :: %& ~& [%pa-abjure [our.hid man] [p.p.tay q.p.tay]] :_ ~ :* %pull /friend/show/[man]/(scot %p p.p.tay)/[q.p.tay] [p.p.tay %talk] ~ == == :: ++ pa-acquire :: subscribe to |= tal=(list partner) %+ pa-sauce 0 %- zing %+ turn tal |= tay=partner ^- (list card) =+ num=(fall (~(get by sequence) tay) 0) ?- -.tay %| !! %& :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]] :_ ~ :* %peer /friend/show/[man]/(scot %p p.p.tay)/[q.p.tay] [p.p.tay %talk] /afx/[q.p.tay]/(scot %ud num) == == :: ++ pa-reform :: reconfigure, ugly |= cof=config =+ ^= dif ^- (pair (list partner) (list partner)) =+ old=`(list partner)`(~(tap in sources.shape) ~) =+ new=`(list partner)`(~(tap in sources.cof) ~) :- (skip new |=(a=partner (~(has in sources.shape) a))) (skip old |=(a=partner (~(has in sources.cof) a))) =. +>.$ (pa-acquire p.dif) =. +>.$ (pa-abjure q.dif) =. shape cof pa-monitor :: ++ pa-cancel :: unsubscribe from ~& [%pa-cancel ost] %_ . guests (~(del by guests) ost) viewers (~(del in viewers) ost) owners (~(del in owners) ost) == :: ++ pa-notify :: local presence |= [her=ship saz=status] ^+ +> =+ ^= nol ?: =(%gone p.saz) (~(del by locals) her) (~(put by locals) her now.hid saz) ?: =(nol locals) +>.$ (pa-display(locals nol) viewers) :: ++ pa-remind :: remote presence |= [tay=partner loc=atlas rem=(map partner atlas)] =+ ^= buk =+ mer=(turn (~(tap by rem) ~) |=([* a=atlas] a)) |- ^- atlas ?~ mer loc =. loc $(mer t.mer) =+ dur=`(list (pair ship status))`(~(tap by i.mer) ~) |- ^- atlas ?~ dur loc =. loc $(dur t.dur) =+ fuy=(~(get by loc) p.i.dur) ?~ fuy (~(put by loc) p.i.dur q.i.dur) ?: =(`presence`p.q.i.dur `presence`p.u.fuy) loc ?- p.u.fuy %gone (~(del by loc) p.i.dur q.i.dur) %talk loc %hear (~(put by loc) p.i.dur q.i.dur) == =+ gub=(~(get by remotes) tay) :: ~& [%pa-remind tay gub buk] ?. |(?=(~ gub) !=(buk u.gub)) +>.$ =. remotes (~(put by remotes) tay buk) (pa-display viewers) :: ++ pa-start :: start stream |= riv=river ^+ +> =- :: ~& [%pa-start riv lab] =. +>.$ (pa-sauce ost [[%diff %talk-report %grams q.lab r.lab] ~]) ?: p.lab (pa-sauce ost [[%quit ~] ~]) +>.$(guests (~(put by guests) ost riv)) ^= lab =+ [end=count gaz=grams dun=| zeg=*(list telegram)] |- ^- (trel ,? ,@ud (list telegram)) ?~ gaz [dun end zeg] ?: ?- -.q.riv :: after the end %ud (lte p.q.riv end) %da (lte p.q.riv p.r.q.i.gaz) == $(end (dec end), gaz t.gaz) ?: ?- -.p.riv :: before the start %ud (lth end p.p.riv) %da (lth p.r.q.i.gaz p.p.riv) == [dun end zeg] $(end (dec end), gaz t.gaz, zeg [i.gaz zeg]) :: ++ pa-listen :: subscribe |= [her=ship pax=path] ^+ +> ?. (pa-admire her) ~& [%pa-listen-admire ~] (pa-sauce ost [%quit ~]~) =+ ^= ruv ^- (unit river) ?: ?=(~ pax) `[[%ud ?:((lth count 64) 0 (sub count 64))] [%da (dec (bex 128))]] ?: ?=([@ ~] pax) =+ say=(slay i.pax) ?. ?=([~ %$ ?(%ud %da) @] say) ~ `[(point +>.say) [%da (dec (bex 128))]] ?. ?=([@ @ ~] pax) ~ =+ [say=(slay i.pax) den=(slay i.t.pax)] ?. ?=([~ %$ ?(%ud %da) @] say) ~ ?. ?=([~ %$ ?(%ud %da) @] den) ~ `[(point +>.say) (point +>.den)] :: ~& [%pa-listen her pax ruv] ?~ ruv ~& [%pa-listen-malformed pax] (pa-sauce ost [%quit ~]~) (pa-start u.ruv) :: ++ pa-refresh :: update to guests |= [num=@ud gam=telegram] ^+ +> =+ ^= moy |- ^- (pair (list bone) (list move)) ?~ guests [~ ~] :: ~& [%pa-refresh num n.guests] =+ lef=$(guests l.guests) =+ rit=$(guests r.guests) =+ old=[p=(welp p.lef p.rit) q=(welp q.lef q.rit)] ?: ?- -.q.q.n.guests :: after the end %ud (lte p.q.q.n.guests num) %da (lte p.q.q.n.guests p.r.q.gam) == [[p.n.guests p.old] [[p.n.guests %quit ~] q.old]] ?: ?- -.p.q.n.guests :: before the start %ud (gth p.p.q.n.guests num) %da (gth p.p.q.n.guests p.r.q.gam) == old :- p.old [[p.n.guests %diff %talk-report %grams num gam ~] q.old] =. moves (welp q.moy moves) |- ^+ +>.^$ ?~ p.moy +>.^$ $(p.moy t.p.moy, guests (~(del by guests) i.p.moy)) :: ++ pa-lesson :: learn multiple |= gaz=(list telegram) ^+ +> ?~ gaz +> $(gaz t.gaz, +> (pa-learn i.gaz)) :: ++ pa-learn :: learn message |= gam=telegram ^+ +> ?. (pa-admire p.gam) ~& %pa-admire-rejected +>.$ =. q.q.gam =+ ole=(~(get by q.q.gam) [%& our.hid man]) ?~ ole q.q.gam (~(put by q.q.gam) [%& our.hid man] -.u.ole %received) =+ old=(~(get by known) p.q.gam) ?~ old (pa-append gam) (pa-revise u.old gam) :: ++ pa-append :: append new |= gam=telegram ^+ +> %+ %= pa-refresh grams [gam grams] count +(count) known (~(put by known) p.q.gam count) == count gam :: ++ pa-revise :: revise existing |= [num=@ud gam=telegram] =+ way=(sub count num) =. grams (welp (scag (dec way) grams) [gam (slag way grams)]) (pa-refresh num gam) -- -- :: ++ sn :: station render core |_ [man=span one=station] ++ sn-best :: best to show |= two=station ^- ? ?: =(our.hid p.one) ?: =(our.hid p.two) ?< =(q.one q.two) ?: =((main p.one) q.one) %& ?: =((main p.two) q.two) %| (lth q.one q.two) %& ?: =(our.hid p.two) %| ?: =(p.one p.two) (lth q.one q.two) (lth p.one q.one) :: ++ sn-curt :: render name in 14 |= mup=? ^- tape =+ rac=(clan p.one) =+ raw=(scow %p p.one) =. raw ?.(mup raw ['*' (slag 2 raw)]) ?- rac %czar (weld " " raw) %king (weld " " raw) %duke raw %earl :(welp (scag 7 raw) "^" (scag 6 (slag 22 raw))) %pawn :(welp (scag 7 raw) "_" (scag 6 (slag 51 raw))) == :: ++ sn-phat :: render accurately ^- tape ?: =(p.one our.hid) ?: =(q.one man) "=" ['%' (trip q.one)] ?: =(p.one (sein our.hid)) ['/' (trip q.one)] =+ wun=(scow %p p.one) ?: =(q.one (main p.one)) wun :(welp wun "/" (trip q.one)) -- :: ++ ta :: partner core |_ [man=span one=partner] ++ ta-beat :: more relevant |= two=partner ^- ? ?- -.one %& ?- -.two %| %& %& (~(sn-best sn man p.one) p.two) == :: %| ?- -.two %& %| %| ?: =(-.p.two -.p.one) (lth (mug +.p.one) (mug +.p.two)) (lth -.p.two -.p.one) == == ++ ta-best :: most relevant |=(two=partner ?:((ta-beat two) two one)) :: ++ ta-full (ta-show ~) :: render full width ++ ta-show :: render partner |= moy=(unit ,?) ^- tape ?- -.one %& ?~ moy ~(sn-phat sn man p.one) (~(sn-curt sn man p.one) u.moy) :: %| =+ ^= pre ^- tape ?- -.p.one %twitter "@t:" == ?~ moy (weld pre (trip p.p.one)) =. pre ?.(=(& u.moy) pre ['*' pre]) (sigh 14 pre p.p.one) == -- :: ++ te :: audience renderer |_ [man=span lix=(set partner)] ++ te-best ^- (unit partner) ?~ lix ~ :- ~ |- ^- partner =+ lef=`(unit partner)`te-best(lix l.lix) =+ rit=`(unit partner)`te-best(lix r.lix) =. n.lix ?~(lef n.lix (~(ta-best ta man n.lix) u.lef)) =. n.lix ?~(rit n.lix (~(ta-best ta man n.lix) u.rit)) n.lix :: ++ te-deaf ^+ . :: except for self .(lix (~(del in lix) `partner`[%& our.hid man])) :: ++ te-maud ^- ? :: multiple audience =. . te-deaf ?~ lix %| |(!=(~ l.lix) !=(~ r.lix)) :: ++ te-prom ^- tape :: render targets =. . te-deaf =+ ^= all %+ sort `(list partner)`(~(tap in lix)) |= [a=partner b=partner] (~(ta-beat ta man a) b) =+ fir=& |- ^- tape ?~ all ~ ;: welp ?:(fir "" " ") (~(ta-show ta man i.all) ~) $(all t.all, fir |) == :: ++ te-whom :: render sender (~(ta-show ta man (need te-best)) ~ te-maud) -- :: ++ tr :: telegram renderer |_ $: man=span who=ship sen=serial aud=audience wen=@da bou=(set flavor) sep=speech == ++ tr-line ^- tape :: one-line print =+ oug==(who our.hid) =+ txt=(tr-text oug) ?: =(~ txt) "" =+ eck=?:((~(has by aud) [%& our.hid man]) '*' '-') =+ heb=?:(oug '>' '<') =+ ^= baw :: ?: oug :: ~(te-whom te man tr-pals) (~(sn-curt sn man [who (main who)]) |) [heb eck (weld baw txt)] :: ++ tr-pals ^- (set partner) %- ~(gas in *(set partner)) (turn (~(tap by aud)) |=([a=partner *] a)) :: ++ trim |= [len=@u txt=tape] ?: (gth len (lent txt)) txt (weld (scag (dec len) txt) "…") :: ++ tr-text |= oug=? ^- tape ?+ -.sep ~&(tr-lost/sep "") %fat =+ rem=$(sep q.sep) =- "{rem} {(trim (sub 60 (lent rem)) -)}" ?+ -.p.sep "..." %tank ~(ram re %rose [" " `~] +.p.sep) == :: %url ['/' ' ' (earf p.sep)] %exp ['#' ' ' (trip p.sep)] %lin =+ txt=(trip q.sep) ?: p.sep (weld ": " txt) ?: oug (weld "@ " txt) (weld " " txt) :: %app "[{(trip p.sep)}]: {(trip q.sep)}" == -- :: ++ peer :: accept subscription |= [pax=path] ^- [(list move) _+>] ~? !=(src.hid our.hid) [%peer-talk-stranger src.hid] :: ~& [%talk-peer src ost pax] ?: ?=([%sole *] pax) ?> =(our.hid src.hid) ?< (~(has by shells) ost.hid) ra-abet:(~(ra-console ra ost.hid ~) src.hid t.pax) :: ~& [%talk-peer-data ost.hid src.hid pax] ra-abet:(~(ra-subscribe ra ost.hid ~) src.hid pax) :: ++ poke-talk-command :: accept command |= [cod=command] ^- [(list move) _+>] :: ~& [%talk-poke-command src.hid cod] ra-abet:(~(ra-apply ra ost.hid ~) src.hid cod) :: ++ poke-sole-action :: accept console |= [act=sole-action] ra-abet:(~(ra-sole ra ost.hid ~) act) :: ++ diff-talk-report :: |= [way=wire rad=report] %+ etch-friend way |= [man=span cuz=station] ra-abet:(~(ra-diff-talk-report ra ost.hid ~) man cuz rad) :: ++ coup-repeat :: |= [way=wire saw=(unit tang)] %+ etch-repeat [%repeat way] |= [num=@ud src=@p man=span] ra-abet:(~(ra-coup-repeat ra ost.hid ~) [num src man] saw) :: ++ etch :: parse wire |= way=wire ^- weir ?+ -.way !! %friend ?> ?=([%show @ @ @ ~] t.way) [%friend i.t.t.way (slav %p i.t.t.t.way) i.t.t.t.t.way] :: %repeat ?> ?=([@ @ @ ~] t.way) [%repeat (slav %ud i.t.way) (slav %p i.t.t.way) i.t.t.t.way] == :: ++ etch-friend :: |= [way=wire fun=$+([man=span cuz=station] [(list move) _+>])] =+ wer=(etch way) ?>(?=(%friend -.wer) (fun p.wer q.wer)) :: ++ etch-repeat :: |= [way=wire fun=$+([num=@ud src=@p man=span] [(list move) _+>])] =+ wer=(etch way) ?>(?=(%repeat -.wer) (fun p.wer q.wer r.wer)) :: ++ reap-friend :: |= [way=wire saw=(unit tang)] ^- (quip move +>) ?~ saw [~ +>] %+ etch-friend [%friend way] |= [man=span cuz=station] ~& [%reap-friend-fail man cuz u.saw] ra-abet:(~(ra-quit ra ost.hid ~) man cuz) :: ++ quit-friend :: |= way=wire %+ etch-friend [%friend way] |= [man=span cuz=station] ra-abet:(~(ra-retry ra ost.hid ~) man cuz) :: ++ pull :: |= [pax=path] ^- [(list move) _+>] ~& [%talk-pull src.hid ost.hid pax] =^ moz +>.$ ra-abet:(~(ra-cancel ra ost.hid ~) src.hid pax) [moz +>.$(shells (~(del by shells) ost.hid))] :: ::++ poke-bit :: |= [~] :: ^- (quip move +>) :: :_ +>.$ :: =+ paf=/(scot %p our.hid)/try/(scot %da now.hid)/talk/backlog/jam :: [ost.hid %info /jamfile our.hid (foal paf (jam +<+.+>.$))]~ :: ++ prep |= [old=(unit house)] ^- (quip move +>) ?~ old ra-abet:~(ra-init ra 0 ~) [~ +>(+<+ u.old)] --