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

Implemented /mar/talk/rumor.

Browse Source
This commit is contained in:
Fang 2017-10-24 17:24:04 +02:00
parent 31cd0593aa
commit 6c7146f988
2 changed files with 145 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

117
lib/talk-json.hoon
View File

@ -135,6 +135,81 @@
nis+(mo nis.a (cury scot %p) cord)
==
::
++ rure ::> rumor-reader
|= a/rumor-reader
^- json
%+ frond -.a
?- -.a
$glyph (digy +.a)
$nick (dini +.a)
==
::
++ digy ::> diff-glyph
|= a/diff-glyph
^- json
%- pairs :~
bin+b+bin.a
gyf+s+gyf.a
aud+(audi aud.a)
==
::
++ dini ::> diff-nick
|= a/diff-nick
^- json
(pairs who+(ship who.a) nic+s+nic.a ~)
::
++ ruso ::> rumor-story
|= a/rumor-story
^- json
%+ frond -.a
?+ -.a !!
$new (conf cof.a)
:: $bear not needed
$config (pairs cir+(circ cir.a) dif+(dico dif.a) ~)
$status %- pairs :~
cir+(circ cir.a)
who+(ship who.a)
dif+(disa dif.a)
==
$remove b+&
$gram (enve nev.a)
==
::
++ dico ::> diff-config
|= a/diff-config
^- json
%+ frond -.a
?- -.a
$full (conf cof.a)
$source (pairs add+b+add.a src+(sorc src.a) ~)
$caption s+cap.a
$filter (filt fit.a)
$secure s+sec.a
$permit (pairs add+b+add.a sis+(sa sis.a ship) ~)
$remove b+&
==
::
++ disa ::> diff-status
|= a/diff-status
^- json
%+ frond -.a
?- -.a
$full (stat sat.a)
$presence s+pec.a
$human (dihu dif.a)
$remove b+&
==
::
++ dihu ::> diff-human
|= a/diff-human
^- json
%+ frond -.a
?- -.a
$full (huma man.a)
$handle (frond %han (mabe han.a cord))
$true (frond %tru (mabe tru.a trun))
==
::
++ pack ::> package
|= a/package
^- json
@ -308,6 +383,13 @@
nis+(op fed:ag so)
==
::
++ rure ::> rumor-reader
^- $-(json (unit rumor-reader))
%- of :~
glyph+digy
nick+dini
==
::
++ pack ::> package
^- $-(json (unit package))
%- ot :~
@ -316,7 +398,38 @@
pes+crow
==
::
++ dist
++ digy ::> diff-glyph
^- $-(json (unit diff-glyph))
(ot bin+bo gyf+so aud+audi ~)
::
++ dini ::> diff-nick
^- $-(json (unit diff-nick))
(ot who+(su fed:ag) nic+so ~)
::
++ ruso ::> rumor-story
^- $-(json (unit rumor-story))
%- of :~
new+conf
:: bear not needed
config+(ot cir+circ dif+dico ~)
status+(ot cir+circ who+(su fed:ag) dif+disa ~)
remove+ul
gram+enve
==
::
++ dico ::> diff-config
^- $-(json (unit diff-config))
%- of :~
full+conf
source+(ot add+bo src+sorc ~)
caption+so
filter+filt
secure+secu
permit+(ot add+bo sis+(as (su fed:ag)) ~)
remove+ul
==
::
++ disa ::> diff-status
^- $-(json (unit diff-status))
%- of :~
full+(ot pec+pres man+huma ~)
@ -325,7 +438,7 @@
remove+ul
==
::
++ dihu
++ dihu ::> diff-human
^- $-(json (unit diff-human))
%- of :~
full+huma

36
mar/talk/rumor.hoon
View File

@ -1,14 +1,38 @@
::
:::: /hoon/rumor/talk/mar
::
/? 310
/- talk
!:
[talk .]
|_ dif/rumor
/+ talk-json
::
++ grab :: convert from
|_ rum/rumor:talk
::
++ grab ::> convert from
|%
++ noun rumor :: clam from %noun
++ noun rumor:talk ::< from %noun
++ json ::> from %json
=> [. dejs:talk-json] ::TODO =,
=, dejs-soft:format
|= a/json
^- rumor:talk
=- (need ((of -) a))
:~ reader+rure
friend+(ot add+bo cir+circ ~)
:: burden not needed
circle+ruso
==
--
::
++ grow ::> convert to
|%
++ json ::> to %json
=> [. enjs:talk-json] ::TODO =,
=, enjs:format
%+ frond -.rum
?+ -.rum !!
$reader (rure rum.rum)
$friend (pairs add+b+add.rum cir+(circ cir.rum) ~)
:: burden not needed
$circle (ruso rum.rum)
==
--
--