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

hark-store: reverse map ordering

Browse Source
This commit is contained in:
Liam Fitzgerald 2020-11-16 13:52:45 +10:00
parent fb09c36fbe
commit 5c148e9c56
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkg/arvo/app/hark-store.hoon
View File

@ -29,7 +29,7 @@
~
==
::
++ orm ((ordered-map @da timebox:store) lth)
++ orm ((ordered-map @da timebox:store) gth)
--
::
=| inflated-state
@ -55,6 +55,10 @@
^- (quip card _this)
=/ old
!<(state-0 old-vase)
=. notifications.old
(gas:orm *notifications:store (tap:orm notifications.old))
=. archive.old
(gas:orm *notifications:store (tap:orm archive.old))
`this(-.state old, +.state (inflate-cache old))
::
++ on-watch
@ -77,11 +81,11 @@
[%count unread-count]
%+ weld
%+ turn
%+ scag 5
%+ scag 3
(tap-nonempty:ha archive)
(timebox-update &)
%+ turn
%+ scag 5
%+ scag 3
(tap-nonempty:ha notifications)
(timebox-update |)
::

2
pkg/arvo/sur/hark-store.hoon
View File

@ -26,7 +26,7 @@
(map index notification)
::
+$ notifications
((mop @da timebox) lth)
((mop @da timebox) gth)
::
+$ action
$% [%add =index =notification]