urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-24 03:14:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'chat-cli-invites' (#1941)

Browse Source 
* chat-cli-invites:
  chat-cli: send invites on-;invite

Signed-off-by: Jared Tobin <jared@tlon.io>
This commit is contained in:
Jared Tobin 2019-11-14 09:49:44 +08:00
commit e6aba37f7a
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4
1 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
pkg/arvo/app/chat-cli.hoon
View File

@ -10,7 +10,7 @@
:: and trust it to take care of the rest.
::
/- *chat-store, *chat-view, *chat-hook,
*permission-store, *group-store,
*permission-store, *group-store, *invite-store,
sole-sur=sole
/+ sole-lib=sole, chat-eval
::
@ -74,6 +74,7 @@
[%chat-view-action chat-view-action]
[%chat-hook-action chat-hook-action]
[%group-action group-action]
[%invite-action invite-action]
==
--
::
@ -592,6 +593,28 @@
[our-self app]
out-action
==
:: +invite-move: build invite move
::
++ invite-move
|= [where=path who=ship]
^- move
:* ost.bowl
%poke
/cli-command/invite
[who %invite-hook] ::NOTE only place chat-cli pokes others
%invite-action
::
^- invite-action
:^ %invite /chat
(shax (jam [our-self where] who))
^- invite
=; desc=cord
[our-self %chat-hook where who desc]
%- crip
%+ weld
"You have been invited to chat at "
~(full tr [our-self where])
==
:: +set-target: set audience, update prompt
::
++ set-target
@ -641,6 +664,11 @@
|= [allow=? rw=?(%r %w %rw) =path ships=(set ship)]
^- (quip move _this)
:_ this
=; moves=(list move)
?. allow moves
%+ weld moves
%+ turn ~(tap in ships)
(cury invite-move path)
%+ murn
^- (list term)
?- rw
@ -1005,7 +1033,12 @@
(lth (lent path.one) (lent path.two))
:: if they're from different ships, neither ours, pick hierarchically.
(lth (xeb ship.one) (xeb ship.two))
:: +phat: render target fully
:: +full: render target fully, always
::
++ full
^- tape
(weld (scow %p ship.one) (spud path.one))
:: +phat: render target with local shorthand
::
:: renders as ~ship/path.
:: for local mailboxes, renders just /path.