ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 16:09:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

Applied renaming of talk structure faces to report and telegrams marks.

Browse Source
This commit is contained in:
Fang 2017-04-25 21:32:13 +02:00
parent 5e02dc7db2
commit 04997b5c10
2 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mar/talk/report.hoon
View File

@ -64,14 +64,14 @@
++ parn
|= a/partner ^- cord
?- -.a
$& (stat p.a)
$& (circ p.a)
$| %- crip
?- -.p.a
$twitter "{(trip -.p.a)}/{(trip p.p.a)}"
==
==
::
++ stat
++ circ
|= a/circle ^- cord
(crip "{<hos.a>}/{(trip nom.a)}")
::
@ -125,7 +125,7 @@
|= cabal
%- jobe :~
loc+(conf loc)
ham+((jome stat conf) rem)
ham+((jome circ conf) rem)
==
::
++ sorc

34
mar/talk/telegrams.hoon
View File

@ -116,12 +116,12 @@
:- %a
%+ turn gam
|= telegram
(jobe ship+(jope p) thought+(thot q) ~)
(jobe ship+(jope aut) thought+(thot tot) ~)
::
++ jove
|= {a/envelope b/delivery}
%- jobe :~
envelope+(jobe visible+[%b p.a] sender+?~(q.a ~ s+(parn u.q.a)) ~)
envelope+(jobe visible+[%b vis.a] sender+?~(sen.a ~ s+(parn u.sen.a)) ~)
delivery+[%s b]
==
::
@ -131,7 +131,7 @@
::
++ thot
|= thought
(jobe serial+(jape <p>) audience+(audi q) statement+(stam r) ~)
(jobe serial+(jape <uid>) audience+(audi aud) statement+(stam sam) ~)
::
++ audi (map-to-json parn jove)
++ bouq
@ -141,36 +141,36 @@
++ parn
|= a/partner ^- cord
?- -.a
$& (stat p.a)
$& (circ p.a)
$| %- crip
?- -.p.a
$twitter "{(trip -.p.a)}/{(trip p.p.a)}"
==
==
::
++ stat
|= a/station ^- cord
(crip "{<p.a>}/{(trip q.a)}")
++ circ
|= a/circle ^- cord
(crip "{<hos.a>}/{(trip nom.a)}")
::
++ stam
|= statement
(jobe date+(jode p) bouquet+(bouq q) speech+(spec r) ~)
(jobe date+(jode wen) bouquet+(bouq boq) speech+(spec sep) ~)
::
++ spec
|= a/speech
%+ joba -.a
?+ -.a ~|(stub+-.a !!)
$lin (jobe txt+[%s q.a] say+[%b p.a] ~)
$url (joba txt+(jape (earf p.a)))
$exp (joba txt+[%s p.a])
$app (jobe txt+[%s q.a] src+[%s p.a] ~)
$fat (jobe tor+(tors p.a) taf+$(a q.a) ~)
$ext (jobe nom+[%s p.a] txe+(jape (sifo (jam +.a))) ~)
$non ~
$lin (jobe txt+[%s msg.a] say+[%b pat.a] ~)
$url (joba txt+(jape (earf url.a)))
$exp (joba txt+[%s exp.a])
$fat (jobe tor+(tors tac.a) taf+$(a sep.a) ~)
$mor :- %a
|- ^- (list json)
?~ p.a ~
[^$(a i.p.a) $(p.a t.p.a)]
?~ ses.a ~
[^$(a i.ses.a) $(ses.a t.ses.a)]
$ext (jobe nom+[%s nom.a] txe+(jape (sifo (jam +.a))) ~)
$app (jobe txt+[%s msg.a] src+[%s app.a] ~)
:: $inv (jobe ship+(jope p.a) party+[%s q.a] ~)
==
::
@ -180,7 +180,7 @@
?- -.a
$text [%s (role +.a)]
$tank (jobe txt+[%a (turn +.a joke)] dat+(jape (sifo (jam +.a))) ~)
$name (jobe nom+s+p.a mon+$(a q.a) ~)
$name (jobe nom+s+nom.a mon+$(a tac.a) ~)
==
::
--