ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-06 23:16:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #1348 from urbit/talk-ezbind

Browse Source 
Allow glyph binding during ;join and ;create
This commit is contained in:
ixv 2019-08-01 13:19:51 -07:00 committed by GitHub
commit 054372ba54
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pkg/arvo/app/talk.hoon
View File

@ -66,9 +66,9 @@
== :: == ::
++ work :: interface action ++ work :: interface action
$% :: circle management :: $% :: circle management ::
{$join (map circle range)} :: subscribe to {$join (map circle range) (unit char)} :: subscribe to
{$leave audience} :: unsubscribe from {$leave audience} :: unsubscribe from
{$create security name cord} :: create circle {$create security name cord (unit char)} :: create circle
{$delete name (unit cord)} :: delete circle {$delete name (unit cord)} :: delete circle
{$depict name cord} :: change description {$depict name cord} :: change description
{$filter name ? ?} :: change message rules {$filter name ? ?} :: change message rules
@ -838,14 +838,14 @@
:: ::
;~((glue ace) (perk %read ~) cire dem:ag) ;~((glue ace) (perk %read ~) cire dem:ag)
:: ::
;~((glue ace) (perk %join ~) sorz) ;~((glue ace) (perk %join ~) ;~(plug sorz (punt ;~(pfix ace glyph))))
:: ::
;~((glue ace) (perk %leave ~) cirs) ;~((glue ace) (perk %leave ~) cirs)
:: ::
;~ (glue ace) (perk %create ~) ;~ (glue ace) (perk %create ~)
pore pore
cire cire
qut ;~(plug qut (punt ;~(pfix ace glyph)))
== ==
:: ::
;~ plug (perk %delete ~) ;~ plug (perk %delete ~)
@ -1186,9 +1186,11 @@
:: change local mailbox config to include :: change local mailbox config to include
:: subscriptions to {pas}. :: subscriptions to {pas}.
:: ::
|= pos/(map circle range) |= {pos/(map circle range) gyf/(unit char)}
^+ ..sh-work ^+ ..sh-work
=+ pas=~(key by pos) =+ pas=~(key by pos)
=? ..sh-work ?=(^ gyf)
(bind u.gyf `pas)
=. ..sh-work =. ..sh-work
sh-prod(active.she pas) sh-prod(active.she pas)
:: default to a day of backlog :: default to a day of backlog
@ -1226,11 +1228,11 @@
:: ::
:: creates circle {nom} with specified config. :: creates circle {nom} with specified config.
:: ::
|= {sec/security nom/name txt/cord} |= {sec/security nom/name txt/cord gyf/(unit char)}
^+ ..sh-work ^+ ..sh-work
=. ..sh-work =. ..sh-work
(sh-act %create nom txt sec) (sh-act %create nom txt sec)
(join [[[self nom] ~] ~ ~]) (join [[[self nom] ~] ~ ~] gyf)
:: ::
++ delete ++ delete
:: %delete :: %delete