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

Fully deprecated %design and %publish commands in favor of the new actions.

Browse Source
This commit is contained in:
Fang 2017-04-14 00:46:15 +02:00
parent 8b82260408
commit 85a13cea21
4 changed files with 34 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
app/talk-guardian.hoon
View File

@ -152,10 +152,8 @@
[%green ~.public 'visible activity']
==
|: [[typ=*posture man=*knot des=*cord] ..ra-init] ^+ ..ra-init
%+ ra-apply our.hid
:+ %design man
:- ~ :- ~
[des [typ ~]]
%+ ra-action ost.hid
[%create man des typ]
::
++ ra-apply :: apply command
::x applies the command sent by her.
@ -163,26 +161,8 @@
|= {her/ship cod/command}
^+ +>
?- -.cod
::x the $design command is used for modifying channel configs,
::x which is done when joining, leaving or creating channels.
::x this may only be done by ourselves.
$design
?. (team our.hid her)
(ra-evil %talk-no-owner)
?~ q.cod
?. (~(has by stories) p.cod)
(ra-evil %talk-no-story)
::x $design with ~ for config signals delete
(ra-unconfig p.cod)
(ra-config p.cod u.q.cod)
::
::x used for relaying messages (as a station host).
$review (ra-think | her +.cod)
::
::x used for sending messages (as their author).
$publish
?. (team our.hid her) +>.$
(ra-think & her +.cod)
==
::
++ ra-inform ::x new lowdown
@ -320,12 +300,9 @@
(ra-consume-fora-post man pax hed txt)
::x if we have no %posts story, first create it, then consume.
=; new (ra-consume-fora-post:new man pax hed txt)
=. ..ra-apply
%+ ra-apply our.hid
:+ %design man
:- ~ :- ~ ::x sources
:- 'towards a community' ::x caption
[%brown ~] ::x cordon
=. ..ra-action
%+ ra-action ost.hid
[%create man 'towards a community' %brown]
::x send informative message to our mailbox.
%^ ra-consume & our.hid
:^ (shaf %init eny.hid) ::x serial
@ -366,12 +343,9 @@
?: (~(has by stories) man)
(ra-consume-comment man pax sup txt)
=; new (ra-consume-comment:new man pax sup txt)
=. ..ra-apply
%+ ra-apply our.hid
:+ %design man
:- ~ :- ~
:- 'letters to the editor'
[%brown ~]
=. ..ra-action
%+ ra-action ost.hid
[%create man 'letters to the editor' %brown]
%^ ra-consume & our.hid
:^ (shaf %init eny.hid)
(my [[%& our.hid (main our.hid)] *envelope %pending] ~)
@ -508,7 +482,7 @@
?~ pur
~& [%bad-subscribe-story-c i.pax]
(ra-evil %talk-no-story)
=+ soy=~(. pa i.pax `(list command)`~ u.pur) ::TODO nest-fail if no cast
=+ soy=~(. pa i.pax `(list action)`~ u.pur) ::TODO nest-fail if no cast
::x she needs read permissions to subscribe.
?. (pa-visible:soy her)
(ra-evil %talk-no-story)
@ -641,11 +615,11 @@
::x bones are used to identify subscribers (source event identifiers).
::
|_ ::x man: the knot identifying the story in stories.
::x coz: talk commands issued due to changes.
::x acs: talk actions issued due to changes.
::x story doesn't get a face because ease of use.
::
$: man/knot
coz/(list command)
acs/(list action)
story
==
++ pa-abet
@ -653,18 +627,18 @@
::
^+ +>
=. +> +>(stories (~(put by stories) man `story`+<+>))
=. coz (flop coz)
=. acs (flop acs)
|- ^+ +>+
?~ coz +>+
=. +>+ (ra-apply our.hid i.coz)
$(coz t.coz)
?~ acs +>+
=. +>+ (ra-action ost.hid i.acs)
$(acs t.acs)
::
++ pa-tell
::x stores a talk command.
++ pa-act
::x stores a talk action.
::
|= cod/command
|= act/action
^+ +>
+>(coz [cod coz])
+>(acs [act acs])
::
++ pa-followers
^- (set bone)
@ -1071,16 +1045,12 @@
=. f ?~ f followers f ::TODO =?
(~(del by f) b)
=. +>.$
%- pa-tell
:- %publish
%- pa-act
:- %phrase
%- ~(rep in sis)
|= {s/ship t/(list thought)}
:_ t
=^ sir eny.hid (uniq eny.hid)
:+ sir :: serial
[[[%& s (main s)] [*envelope %pending]] ~ ~] :: audience
:+ now.hid ~ :: statement
[%inv inv [our.hid man]]
|= {s/ship a/(set partner) t/(list speech)}
:- (~(put in a) [%& s (main s)])
[[%inv inv [our.hid man]] t]
%- pa-reform
%= shape
q.cordon

19
lib/talk.hoon
View File

@ -21,20 +21,17 @@
++ said-url :: app url
|= url/purl
:^ ost.bol %poke /said-url
:+ [our.bol %talk] %talk-command
^- command
:- %publish
:_ ~
^- thought
:+ (shaf %thot eny.bol)
[[[%& our.bol (main our.bol)] [*envelope %pending]] ~ ~]
[now.bol *bouquet [%app dap.bol (crip (earn url))]] :: XX
:+ [our.bol %talk] %talk-action
^- action
:+ %phrase
[[%& our.bol (main our.bol)] ~ ~]
[%app dap.bol (crip (earn url))]~ :: XX
::
++ said :: app message
|= {our/@p dap/term now/@da eny/@uvJ mes/(list tank)}
:- %talk-command
^- command
:- %publish
:- %talk-action
^- action
:- %convey
|- ^- (list thought)
?~ mes ~
:_ $(mes t.mes, eny (sham eny mes))

15
mar/talk/command.hoon
View File

@ -14,9 +14,7 @@
=> [jo ..command]
|= a/json ^- command
=- (need ((of -) a))
=< :~ publish+(ar thot)
review+(ar thot)
design+(ot party+so config+(mu conf) ~)
=< :~ review+(ar thot)
==
|%
++ op :: parse keys of map
@ -39,7 +37,6 @@
|* a/fist
(cu ~(gas in *(set _(need *a))) (ar a))
::
++ lake |*(a/_* $-(json (unit a)))
++ peach
|* a/{rule rule}
|= tub/nail
@ -71,7 +68,6 @@
^- $-(json (unit audience))
(op parn memb)
::
++ auri (op parn (ci (soft presence) so))
++ memb (ot [envelope+lope delivery+(ci (soft delivery) so) ~])
++ lope (ot [visible+bo sender+(mu (su parn)) ~])
::
@ -111,15 +107,6 @@
:: exp+(cu |=(a=cord [a ~]) so)
:: inv+(ot ship+(su fed:ag) party+(su urs:ab) ~)
==
::
++ conf
^- $-(json (unit config))
%- ot :~
sources+(as (su parn))
caption+so
:- %cordon
(ot posture+(ci (soft posture) so) list+(as (su fed:ag)) ~)
==
--
-- --

4
sur/talk.hoon
View File

@ -6,9 +6,7 @@
++ atlas (map ship status) :: presence map
++ bouquet (set flavor) :: complete aroma
++ command :: effect on party
$% {$design (pair knot (unit config))} :: configure+destroy
{$publish (list thought)} :: originate
{$review (list thought)} :: deliver
$% {$review (list thought)} :: deliver
== ::
++ action :: user action
$% :: station configuration ::