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

metadata: add helper lib for common queries

Browse Source
This commit is contained in:
Fang 2020-03-01 01:31:05 +01:00
parent 5474680e5c
commit 068a8c98d6
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 54 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
pkg/arvo/lib/metadata.hoon Normal file
View File

@ -0,0 +1,54 @@
:: metadata: helpers for getting data from the metadata-store
::
/- *metadata-store
::
|_ =bowl:gall
++ app-paths-from-group
|= [=app-name =group-path]
^- (list app-path)
%+ murn
%~ tap in
=- (~(gut by -) group-path ~)
.^ (jug ^group-path resource)
%gy
(scot %p our.bowl)
%metadata-store
(scot %da now.bowl)
/group-indices
==
|= =resource
^- (unit app-path)
?. =(app-name.resource app-name) ~
`app-path.resource
::
++ groups-from-resource
|= =resource
^- (list group-path)
=; resources
%~ tap in
%+ ~(gut by resources)
resource
*(set group-path)
.^ (jug ^resource group-path)
%gy
(scot %p our.bowl)
%metadata-store
(scot %da now.bowl)
/resource-indices
==
::
++ check-resource-permissions
|= [=ship =resource]
^- ?
%+ lien (groups-from-resource resource)
|= =group-path
.^ ?
%gx
(scot %p our.bowl)
%permission-store
(scot %da now.bowl)
%permitted
(scot %p ship)
(snoc group-path %noun)
==
--