urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 02:57:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

chat: fixes to cli parser and increased page size in hook

Browse Source
This commit is contained in:
Logan Allen 2019-11-14 13:21:46 -08:00
parent a97e36d6d6
commit 223fc8c5b4
2 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -365,9 +365,11 @@
;~ (glue ace) ;~ (glue ace)
(tag %create) (tag %create)
security security
path ;~ plug
(punt ;~(pfix ace glyph)) path
(punt ;~(pfix ace ;~(pose (cold %| bar) (cold %& pad)))) (punt ;~(pfix ace glyph))
(punt ;~(pfix ace (fuss 'y' 'n')))
==
== ==
;~((glue ace) (tag %delete) path) ;~((glue ace) (tag %delete) path)
;~((glue ace) (tag %invite) rw path ships) ;~((glue ace) (tag %invite) rw path ships)
@ -375,9 +377,11 @@
:: ::
;~ (glue ace) ;~ (glue ace)
(tag %join) (tag %join)
targ ;~ plug
(punt ;~(pfix ace glyph)) targ
(punt ;~(pfix ace ;~(pose (cold %| bar) (cold %& pad)))) (punt ;~(pfix ace glyph))
(punt ;~(pfix ace (fuss 'y' 'n')))
==
== ==
;~((glue ace) (tag %leave) targ) ;~((glue ace) (tag %leave) targ)
:: ::
@ -637,7 +641,7 @@
?(%channel %mailbox) ~ ?(%channel %mailbox) ~
?(%village %journal) [our-self ~ ~] ?(%village %journal) [our-self ~ ~]
== ==
?~(allow-history %.y u.allow-history) (fall allow-history %.y)
== ==
:: +delete: delete local chats :: +delete: delete local chats
:: ::
@ -705,7 +709,7 @@
:: gives ugly %chat-hook-reap :: gives ugly %chat-hook-reap
%^ act %do-join %chat-view %^ act %do-join %chat-view
:- %chat-view-action :- %chat-view-action
[%join ship.target path.target ?~(ask-history %.y u.ask-history)] [%join ship.target path.target (fall ask-history %.y)]
:: +leave: unsync & destroy mailbox :: +leave: unsync & destroy mailbox
:: ::
::TODO allow us to "mute" local chats using this ::TODO allow us to "mute" local chats using this

18
pkg/arvo/app/chat-hook.hoon
View File

@ -196,11 +196,7 @@
?~ box !! ?~ box !!
:_ this :_ this
:- [ost.bol %diff %chat-update [%create (slav %p i.pax) pax]] :- [ost.bol %diff %chat-update [%create (slav %p i.pax) pax]]
?: ?: ?&(?=(^ backlog-start) (~(got by allow-history) pax))
?&
?=(^ backlog-start)
(~(got by allow-history) pax)
==
(paginate-messages pax u.box u.backlog-start) (paginate-messages pax u.box u.backlog-start)
~ ~
:: ::
@ -215,7 +211,7 @@
|- ^- (list move) |- ^- (list move)
?~ envelopes.mailbox ?~ envelopes.mailbox
moves moves
?: (lte end 500) ?: (lte end 5.000)
=. moves =. moves
%+ snoc moves %+ snoc moves
%- messages-move %- messages-move
@ -225,12 +221,12 @@
%+ snoc moves %+ snoc moves
%- messages-move %- messages-move
:^ path start :^ path start
(add start 500) (add start 5.000)
(scag 500 `(list envelope)`envelopes.mailbox) (scag 5.000 `(list envelope)`envelopes.mailbox)
=: start (add start 500) =: start (add start 5.000)
end (sub end 500) end (sub end 5.000)
== ==
$(envelopes.mailbox (slag 500 `(list envelope)`envelopes.mailbox)) $(envelopes.mailbox (slag 5.000 `(list envelope)`envelopes.mailbox))
:: ::
++ messages-move ++ messages-move
|= [=path start=@ud end=@ud envelopes=(list envelope)] |= [=path start=@ud end=@ud envelopes=(list envelope)]