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

Implemented %create action.

Browse Source
This commit is contained in:
Fang 2017-04-11 13:24:07 +02:00
parent 4b5010a7ba
commit d769b2f325
3 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/talk-agent.hoon
View File

@ -1221,12 +1221,7 @@
?: (~(has in tales) nom)
(sh-lame "{(trip nom)}: already exists")
=. ..sh-work
::x create new config for channel.
%^ sh-tell %design nom
:- ~
:+ [[%& our.hid nom] ~ ~]
(end 3 64 txt)
[por ~]
(sh-action %create nom txt por)
(join [[%& our.hid nom] ~ ~])
::
++ reverse-folks

6
app/talk-guardian.hoon
View File

@ -211,7 +211,9 @@
:: station configuration
::
$create :: create station
~&(%talk-action-create !!)
?. (~(has in stories) p.act)
(ra-config p.act [[%& our.hid p.act] ~ ~] q.act [r.act ~])
(ra-react red %fail (crip "{(trip p.act)}: already exists") `act)
::
$permit :: invite/banish
%- (ra-affect p.act red `act) |= par/_pa =< pa-abet
@ -390,7 +392,7 @@
=+ pur=(~(get by stories) man)
?~ pur
%+ ra-react red
[%fail (crip (weld "no story " (trip man))) act]
[%fail (crip "no story {(trip man)}") act]
(fun ~(. pa man ~ u.pur))
::
++ ra-diff-talk-report :: subscription update

2
sur/talk.hoon
View File

@ -12,7 +12,7 @@
== ::
++ action :: user action
$% :: station configuration ::
{$create (pair knot (pair cord posture))} :: create station
{$create (trel knot cord posture)} :: create station
{$permit (trel knot ? (set ship))} :: invite/banish
:: personal metadata ::
::TODO change to target partners, not only our stations.