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

hark-store: allow scrying for archive

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

BIN
package-lock.json generated
View File

Binary file not shown.

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

@ -109,21 +109,24 @@
^- (unit (unit cage))
?+ path (on-peek:def path)
::
[%x %recent @ @ ~]
[%x %recent ?(%archive %inbox) @ @ ~]
=/ is-archive
=(%archive i.t.t.path)
=/ offset=@ud
(slav %ud i.t.t.path)
=/ length=@ud
(slav %ud i.t.t.t.path)
=/ length=@ud
(slav %ud i.t.t.t.t.path)
:^ ~ ~ %hark-update
!> ^- update:store
:- %more
%+ turn
%+ scag length
%+ slag offset
(tap-nonempty:ha notifications)
%- tap-nonempty:ha
?:(is-archive archive notifications)
|= [time=@da =timebox:store]
^- update:store
:^ %timebox time %.n
:^ %timebox time is-archive
~(tap by timebox)
==
::