ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-04 13:19:48 +03:00
Code Issues Packages Projects Releases Wiki Activity

groups: do not notify user if mentioned in DM

Browse Source
This commit is contained in:
Patrick O'Sullivan 2022-03-14 15:04:36 -05:00
parent 884799a2ce
commit 74149bc16f
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
pkg/landscape/app/hark-graph-hook.hoon
View File

@ -127,7 +127,7 @@
++ hark-graph-migrate ++ hark-graph-migrate
|= old=state-7:hist |= old=state-7:hist
=| cards=(list card) =| cards=(list card)
|^ |^
[(flop get-places) state] [(flop get-places) state]
:: ::
++ hark ++ hark
@ -225,7 +225,7 @@
?+ -.q.update `state ?+ -.q.update `state
%add-graph (add-graph resource.q.update) %add-graph (add-graph resource.q.update)
:: ::
?(%remove-graph %archive-graph) ?(%remove-graph %archive-graph)
(remove-graph resource.q.update) (remove-graph resource.q.update)
:: ::
%remove-posts %remove-posts
@ -258,20 +258,20 @@
%+ skim ~(tap in watching) %+ skim ~(tap in watching)
|= [r=resource idx=index:graph-store] |= [r=resource idx=index:graph-store]
=(r rid) =(r rid)
:_ :_
%_ state %_ state
watching (~(dif in watching) unwatched) watching (~(dif in watching) unwatched)
places (~(del by places) rid) places (~(del by places) rid)
== ==
%+ turn ~(tap in (~(get ju places) rid)) %+ turn ~(tap in (~(get ju places) rid))
|= =place:store |= =place:store
(poke-hark %del-place place) (poke-hark %del-place place)
:: XX: fix :: XX: fix
:: ::
++ add-graph ++ add-graph
|= rid=resource |= rid=resource
^- (quip card _state) ^- (quip card _state)
=/ graph=graph:graph-store :: graph in subscription is bunted =/ graph=graph:graph-store :: graph in subscription is bunted
(get-graph-mop:gra rid) (get-graph-mop:gra rid)
=/ node=(unit node:graph-store) =/ node=(unit node:graph-store)
(bind (pry:orm:graph-store graph) |=([@ =node:graph-store] node)) (bind (pry:orm:graph-store graph) |=([@ =node:graph-store] node))
@ -294,7 +294,7 @@
++ on-peek on-peek:def ++ on-peek on-peek:def
:: ::
++ on-leave on-leave:def ++ on-leave on-leave:def
++ on-arvo ++ on-arvo
|= [=wire =sign-arvo] |= [=wire =sign-arvo]
^- (quip card _this) ^- (quip card _this)
?+ wire (on-arvo:def wire sign-arvo) ?+ wire (on-arvo:def wire sign-arvo)
@ -317,7 +317,7 @@
:: ::
++ get-place ++ get-place
|= [rid=resource =index:graph-store] |= [rid=resource =index:graph-store]
:- q.byk.bowl :- q.byk.bowl
%+ welp /graph/(scot %p entity.rid)/[name.rid] %+ welp /graph/(scot %p entity.rid)/[name.rid]
(graph-index-to-path index) (graph-index-to-path index)
:: ::
@ -372,7 +372,7 @@
^- (unit _update-core) ^- (unit _update-core)
=/ m=(unit ^mark) =/ m=(unit ^mark)
(get-mark:gra r) (get-mark:gra r)
?~ m ~ ?~ m ~
:- ~ :- ~
%_ update-core %_ update-core
rid r rid r
@ -394,7 +394,7 @@
^- (list card) ^- (list card)
%+ welp (turn (flop hark-pokes) poke-hark) %+ welp (turn (flop hark-pokes) poke-hark)
%- zing %- zing
%+ turn (flop new-watches) %+ turn (flop new-watches)
|=(=index:graph-store (give ~[/updates] [%listen rid index])) |=(=index:graph-store (give ~[/updates] [%listen rid index]))
:: ::
++ hark ++ hark
@ -409,7 +409,7 @@
?~ updates update-core ?~ updates update-core
=/ cor=(unit _post-core) =/ cor=(unit _post-core)
(abed:post-core i.updates) (abed:post-core i.updates)
?~ cor $(updates t.updates) ?~ cor $(updates t.updates)
$(updates t.updates, update-core abet:added:u.cor) $(updates t.updates, update-core abet:added:u.cor)
:: ::
++ remove-posts ++ remove-posts
@ -428,7 +428,7 @@
++ post-core ++ post-core
|_ [kind=notif-kind:hook =post:graph-store] |_ [kind=notif-kind:hook =post:graph-store]
++ post-core . ++ post-core .
++ abet ++ abet
=. places (~(put ju places) rid place) =. places (~(put ju places) rid place)
update-core update-core
++ abed ++ abed
@ -471,6 +471,7 @@
^+ post-core ^+ post-core
?. should-notify post-core ?. should-notify post-core
=/ title=(list content:store) =/ title=(list content:store)
?: =(title (crip "{(scow %p our.bowl)}/dm-inbox")) title.kind
?. is-mention title.kind ?. is-mention title.kind
~[text/(rap 3 'You were mentioned in ' title ~)] ~[text/(rap 3 'You were mentioned in ' title ~)]
=/ link=path =/ link=path
@ -484,7 +485,7 @@
^+ post-core ^+ post-core
%_ post-core %_ post-core
update-core update-core
?- mode.kind ?- mode.kind
%count (hark %unread-count place %.y 1) %count (hark %unread-count place %.y 1)
%each (hark %unread-each place /(rsh 4 (scot %ui (rear self-idx)))) %each (hark %unread-each place /(rsh 4 (scot %ui (rear self-idx))))
%none update-core %none update-core
@ -495,7 +496,7 @@
^+ post-core ^+ post-core
%_ post-core %_ post-core
update-core update-core
?- mode.kind ?- mode.kind
%count (hark %unread-count place %.n 1) %count (hark %unread-count place %.n 1)
%each (hark %read-each place /(rsh 4 (scot %ui (rear self-idx)))) %each (hark %read-each place /(rsh 4 (scot %ui (rear self-idx))))
%none update-core %none update-core
@ -535,7 +536,7 @@
++ notif-kind ++ notif-kind
|= p=post:graph-store |= p=post:graph-store
^- (unit notif-kind:hook) ^- (unit notif-kind:hook)
|^ |^
?+ mark ~ ?+ mark ~
%graph-validator-chat chat %graph-validator-chat chat
%graph-validator-publish publish %graph-validator-publish publish
@ -572,7 +573,7 @@
++ link ++ link
^- (unit notif-kind:hook) ^- (unit notif-kind:hook)
?+ index.p ~ ?+ index.p ~
[@ ~] [@ ~]
:- ~ :- ~
:* [text+(rap 3 'New links in ' title ~)]~ :* [text+(rap 3 'New links in ' title ~)]~
[ship+author.p text+': ' (hark-contents:graph-store contents.p)] [ship+author.p text+': ' (hark-contents:graph-store contents.p)]
@ -599,7 +600,7 @@
:: ::
++ dm ++ dm
?+ index.p ~ ?+ index.p ~
[@ @ ~] [@ @ ~]
:- ~ :- ~
:* ~[text+'New messages from ' ship+author.p] :* ~[text+'New messages from ' ship+author.p]
(hark-contents:graph-store contents.p) (hark-contents:graph-store contents.p)