mirror of
https://github.com/urbit/shrub.git
synced 2024-11-30 22:15:47 +03:00
various: add [landscape] marker to apps in arvo
This commit is contained in:
Matilde Park
parent
a8cc26892b
commit
ef3b9282c2
@ -1,4 +1,4 @@
|
||||
:: chat-hook:
|
||||
:: chat-hook [landscape]:
|
||||
:: mirror chat data from foreign to local based on read permissions
|
||||
:: allow sending chat messages to foreign paths based on write perms
|
||||
::
|
||||
@ -114,7 +114,7 @@
|
||||
i.syncs
|
||||
?> ?=(^ pax)
|
||||
?. =('~' i.pax)
|
||||
$(syncs t.syncs)
|
||||
$(syncs t.syncs)
|
||||
=/ new-path=path
|
||||
t.pax
|
||||
=. synced.old
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: chat-store: data store that holds linear sequences of chat messages
|
||||
:: chat-store [landscape]:
|
||||
::
|
||||
:: data store that holds linear sequences of chat messages
|
||||
::
|
||||
/+ store=chat-store, default-agent, verb, dbug, group-store
|
||||
~% %chat-store-top ..is ~
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: chat-view: sets up chat JS client, paginates data, and combines commands
|
||||
:: chat-view [landscape]:
|
||||
::
|
||||
:: sets up chat JS client, paginates data, and combines commands
|
||||
:: into semantic actions for the UI
|
||||
::
|
||||
/- *permission-store,
|
||||
@ -157,7 +159,7 @@
|
||||
(on-arvo:def wire sign-arvo)
|
||||
::
|
||||
++ on-save !>(state)
|
||||
++ on-load
|
||||
++ on-load
|
||||
|= old-vase=vase
|
||||
^- (quip card _this)
|
||||
=/ old ((soft state-0) q.old-vase)
|
||||
@ -212,8 +214,8 @@
|
||||
?- -.act
|
||||
%create
|
||||
?> ?=(^ app-path.act)
|
||||
?> ?| =(+:group-path.act app-path.act)
|
||||
=(~(tap in members.act) ~)
|
||||
?> ?| =(+:group-path.act app-path.act)
|
||||
=(~(tap in members.act) ~)
|
||||
==
|
||||
?^ (chat-scry app-path.act)
|
||||
~& %chat-already-exists
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: clock: deprecated, should be removed
|
||||
:: clock [landscape]:
|
||||
::
|
||||
:: deprecated, should be removed
|
||||
::
|
||||
/+ *server, default-agent, verb, dbug
|
||||
=, format
|
||||
|
||||
@ -1,4 +1,5 @@
|
||||
:: contact-hook:
|
||||
:: contact-hook [landscape]
|
||||
::
|
||||
::
|
||||
/- group-hook,
|
||||
*contact-hook,
|
||||
@ -54,7 +55,7 @@
|
||||
=/ old !<(versioned-state old-vase)
|
||||
=| cards=(list card)
|
||||
|^
|
||||
|- ^- (quip card _this)
|
||||
|- ^- (quip card _this)
|
||||
?: ?=(%3 -.old)
|
||||
[cards this(state old)]
|
||||
?: ?=(%2 -.old)
|
||||
@ -80,7 +81,7 @@
|
||||
%_ $
|
||||
-.old %2
|
||||
::
|
||||
synced.old
|
||||
synced.old
|
||||
%- malt
|
||||
%+ turn
|
||||
~(tap by synced.old)
|
||||
@ -126,7 +127,7 @@
|
||||
%json
|
||||
(poke-json:cc !<(json vase))
|
||||
::
|
||||
%contact-action
|
||||
%contact-action
|
||||
(poke-contact-action:cc !<(contact-action vase))
|
||||
::
|
||||
%contact-hook-action
|
||||
@ -149,7 +150,7 @@
|
||||
%kick [(kick:cc wire) this]
|
||||
%watch-ack
|
||||
=^ cards state
|
||||
(watch-ack:cc wire p.sign)
|
||||
(watch-ack:cc wire p.sign)
|
||||
[cards this]
|
||||
::
|
||||
%fact
|
||||
@ -301,8 +302,8 @@
|
||||
[%pass /group %agent [our.bol %group-store] %watch /groups]~
|
||||
::
|
||||
[%contacts @ *]
|
||||
=/ wir
|
||||
?: =(%ship i.t.wir)
|
||||
=/ wir
|
||||
?: =(%ship i.t.wir)
|
||||
wir
|
||||
(migrate wir)
|
||||
?> ?=([%contacts @ @ *] wir)
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: contact-store: data store that holds group-based contact data
|
||||
:: contact-store [landscape]:
|
||||
::
|
||||
:: data store that holds group-based contact data
|
||||
::
|
||||
/+ *contact-json, default-agent, dbug
|
||||
|%
|
||||
@ -253,7 +255,7 @@
|
||||
++ send-diff
|
||||
|= [pax=path upd=contact-update]
|
||||
^- (list card)
|
||||
:~ :*
|
||||
:~ :*
|
||||
%give %fact
|
||||
~[/all /updates [%contacts pax]]
|
||||
%contact-update !>(upd)
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: contact-view: sets up contact JS client and combines commands
|
||||
:: contact-view [landscape]:
|
||||
::
|
||||
:: sets up contact JS client and combines commands
|
||||
:: into semantic actions for the UI
|
||||
::
|
||||
/-
|
||||
|
||||
@ -1,3 +1,7 @@
|
||||
:: file-server [landscape]:
|
||||
::
|
||||
:: mounts HTTP endpoints for Landscape (and third-party) user applications
|
||||
::
|
||||
/- srv=file-server, glob
|
||||
/+ *server, default-agent, verb, dbug
|
||||
|%
|
||||
@ -218,8 +222,8 @@
|
||||
::
|
||||
[~ %html]
|
||||
%. file
|
||||
%* . html-response:gen
|
||||
cache
|
||||
%* . html-response:gen
|
||||
cache
|
||||
!=(/app/landscape/index/html (slag 3 scry-path))
|
||||
==
|
||||
==
|
||||
|
||||
@ -1,3 +1,7 @@
|
||||
:: glob [landscape]:
|
||||
::
|
||||
:: prompts content delivery and Gall state storage for Landscape JS blob
|
||||
::
|
||||
/- glob
|
||||
/+ default-agent, verb, dbug
|
||||
|%
|
||||
|
||||
@ -1,3 +1,6 @@
|
||||
:: graph-store [landscape]
|
||||
::
|
||||
::
|
||||
/+ store=graph-store, sigs=signatures, res=resource, default-agent, dbug
|
||||
~% %graph-store-top ..is ~
|
||||
|%
|
||||
@ -282,7 +285,7 @@
|
||||
?~ index graph
|
||||
=* atom i.index
|
||||
=/ =node:store
|
||||
~| "node does not exist to add signatures to!"
|
||||
~| "node does not exist to add signatures to!"
|
||||
(need (get:orm graph atom))
|
||||
:: last index in list
|
||||
::
|
||||
@ -327,7 +330,7 @@
|
||||
?~ index graph
|
||||
=* atom i.index
|
||||
=/ =node:store
|
||||
~| "node does not exist to add signatures to!"
|
||||
~| "node does not exist to add signatures to!"
|
||||
(need (get:orm graph atom))
|
||||
:: last index in list
|
||||
::
|
||||
@ -525,7 +528,7 @@
|
||||
=/ update-log=(unit update-log:store) (~(get by update-logs) [ship term])
|
||||
?~ update-log [~ ~]
|
||||
=/ result=(unit [time update:store])
|
||||
(peek:orm-log:store u.update-log)
|
||||
(peek:orm-log:store u.update-log)
|
||||
?~ result [~ ~]
|
||||
``noun+!>([~ -.u.result])
|
||||
==
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: group-hook: allow syncing group data from foreign paths to local paths
|
||||
:: group-hook [landscape]:
|
||||
::
|
||||
:: allow syncing group data from foreign paths to local paths
|
||||
::
|
||||
/- *group, hook=group-hook, *invite-store
|
||||
/+ default-agent, verb, dbug, store=group-store, grpl=group, pull-hook, push-hook, resource
|
||||
@ -58,7 +60,7 @@
|
||||
:: ignore duplicate publish groups
|
||||
?: =(4 (lent path))
|
||||
~& "ignoring: {<path>}"
|
||||
~
|
||||
~
|
||||
=/ pax=^path
|
||||
?: =('~' i.path)
|
||||
t.path
|
||||
|
||||
@ -1,5 +1,6 @@
|
||||
:: group-hook: allow syncing group data from foreign paths to local paths
|
||||
:: group-hook [landscape]:
|
||||
::
|
||||
:: allow syncing group data from foreign paths to local paths
|
||||
::
|
||||
/- *group, hook=group-hook, *invite-store, *resource
|
||||
/+ default-agent, verb, dbug, store=group-store, grpl=group, pull-hook
|
||||
|
||||
@ -1,5 +1,6 @@
|
||||
:: group-hook: allow syncing group data from foreign paths to local paths
|
||||
:: group-hook [landscape]:
|
||||
::
|
||||
:: allow syncing group data from foreign paths to local paths
|
||||
::
|
||||
/- *group, hook=group-hook, *invite-store
|
||||
/+ default-agent, verb, dbug, store=group-store, grpl=group, push-hook,
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: group-store: Store groups of ships
|
||||
:: group-store [landscape]:
|
||||
::
|
||||
:: Store groups of ships
|
||||
::
|
||||
:: group-store stores groups of ships, so that resources in other apps can be
|
||||
:: associated with a group. The current model of group-store rolls
|
||||
@ -128,7 +130,7 @@
|
||||
^- [resource group]
|
||||
=/ members=(set ship)
|
||||
(~(got by groups.old) pax)
|
||||
=| =invite:policy
|
||||
=| =invite:policy
|
||||
?> ?=(^ pax)
|
||||
=/ rid=resource
|
||||
(resource-from-old-path t.pax)
|
||||
@ -149,7 +151,7 @@
|
||||
|= pax=path
|
||||
=/ members
|
||||
(~(got by groups.old) pax)
|
||||
=| =invite:policy
|
||||
=| =invite:policy
|
||||
=/ rid=resource
|
||||
(resource-from-old-path pax)
|
||||
=/ =tags
|
||||
@ -239,7 +241,7 @@
|
||||
(~(has in members.group) ship)
|
||||
==
|
||||
%open
|
||||
?! ?|
|
||||
?! ?|
|
||||
(~(has in banned.policy) ship)
|
||||
(~(has in ban-ranks.policy) (clan:title ship))
|
||||
==
|
||||
@ -285,7 +287,7 @@
|
||||
^- resource
|
||||
?> ?=([@ @ *] path)
|
||||
:- (slav %p i.path)
|
||||
i.t.path
|
||||
i.t.path
|
||||
::
|
||||
++ add-new
|
||||
|= =permission:permission-store
|
||||
@ -293,7 +295,7 @@
|
||||
?: ?=(%black kind.permission)
|
||||
[~ ~ [%open ~ who.permission] %.y]
|
||||
[who.permission ~ [%invite ~] %.y]
|
||||
::
|
||||
::
|
||||
++ update-existing
|
||||
|= =permission:permission-store
|
||||
|= =group
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: invite-hook: receive invites from any source
|
||||
:: invite-hook [landscape]:
|
||||
::
|
||||
:: receive invites from any source
|
||||
::
|
||||
:: only handles %invite actions. accepts json, but only from the host team.
|
||||
:: can be poked by the host team to send an invite out to someone.
|
||||
|
||||
@ -1,3 +1,4 @@
|
||||
:: invite-store [landscape]
|
||||
/+ *invite-json, default-agent, dbug
|
||||
|%
|
||||
+$ card card:agent:gall
|
||||
|
||||
@ -1,3 +1,7 @@
|
||||
:: invite-view [landscape]:
|
||||
::
|
||||
:: deprecated
|
||||
::
|
||||
/+ default-agent
|
||||
^- agent:gall
|
||||
|_ =bowl:gall
|
||||
|
||||
@ -1,3 +1,7 @@
|
||||
:: launch [landscape]:
|
||||
::
|
||||
:: registers Landscape (and third party) applications, tiles
|
||||
::
|
||||
/+ store=launch-store, default-agent, dbug
|
||||
|%
|
||||
+$ card card:agent:gall
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: link-listen-hook: get your friends' bookmarks
|
||||
:: link-listen-hook [landscape]:
|
||||
::
|
||||
:: get your friends' bookmarks
|
||||
::
|
||||
:: keeps track of a listening=(set app-path). users can manually add to and
|
||||
:: remove from this set.
|
||||
@ -118,7 +120,7 @@
|
||||
/app-indices
|
||||
==
|
||||
|-
|
||||
?~ resources
|
||||
?~ resources
|
||||
upgrade-loop(old [%2 +.old])
|
||||
=, i.resources
|
||||
=/ members=(set ship)
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: link-proxy-hook: make local pages available to foreign ships
|
||||
:: link-proxy-hook [landscape]:
|
||||
::
|
||||
:: make local pages available to foreign ships
|
||||
::
|
||||
:: this is a "proxy" style hook, relaying foreign subscriptions into local
|
||||
:: stores if permission conditions are met.
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: link: social bookmarking
|
||||
:: link [landscape]:
|
||||
::
|
||||
:: social bookmarking
|
||||
::
|
||||
:: the paths under which links are submitted are generally expected to
|
||||
:: correspond to existing group paths. for strictly-local collections of
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: link-view: frontend endpoints
|
||||
:: link-view [landscape]:
|
||||
::
|
||||
::frontend endpoints
|
||||
::
|
||||
:: endpoints, mapping onto link-store's paths. p is for page as in pagination.
|
||||
:: only the /0/submissions endpoint provides updates.
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: metadata-hook: allow syncing foreign metadata
|
||||
:: metadata-hook [landscape]:
|
||||
::
|
||||
:: allow syncing foreign metadata
|
||||
::
|
||||
:: watch paths:
|
||||
:: /group/%group-path all updates related to this group
|
||||
@ -37,7 +39,7 @@
|
||||
[[%pass /updates %agent [our.bowl %metadata-store] %watch /updates]~ this]
|
||||
::
|
||||
++ on-save !>(state)
|
||||
++ on-load
|
||||
++ on-load
|
||||
|= =vase
|
||||
=/ old
|
||||
!<(versioned-state vase)
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: metadata-store: data store for application metadata and mappings
|
||||
:: metadata-store [landscape]:
|
||||
::
|
||||
:: data store for application metadata and mappings
|
||||
:: between groups and resources within applications
|
||||
::
|
||||
:: group-paths are expected to be an existing group path
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: permission-group-hook: groups into permissions
|
||||
:: permission-group-hook [landscape]:
|
||||
::
|
||||
:: groups into permissions
|
||||
::
|
||||
:: mirror the ships in specified groups to specified permission paths
|
||||
::
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: permission-hook: mirror remote permissions
|
||||
:: permission-hook [landscape]:
|
||||
::
|
||||
:: mirror remote permissions
|
||||
::
|
||||
:: allows mirroring permissions between local and foreign ships.
|
||||
:: local permission path are exposed according to the permssion paths
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: permission-store: track black- and whitelists of ships
|
||||
:: permission-store [landscape]:
|
||||
::
|
||||
:: track black- and whitelists of ships
|
||||
::
|
||||
/- *permission-store
|
||||
/+ default-agent, verb, dbug
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
:: pool-group-hook: maintain groups based on invite pool
|
||||
:: pool-group-hook [landscape]:
|
||||
::
|
||||
:: maintain groups based on invite pool
|
||||
::
|
||||
:: looks at our invite tree, adds our siblings to group at +group-path
|
||||
::
|
||||
|
||||
@ -1,3 +1,7 @@
|
||||
:: publish [landscape]
|
||||
::
|
||||
:: stores notebooks in clay, subscribes and allow subscriptions to notebooks
|
||||
::
|
||||
/- *publish
|
||||
/- *group
|
||||
/- group-hook
|
||||
|
||||
@ -1,3 +1,7 @@
|
||||
:: s3-store [landscape]:
|
||||
::
|
||||
:: stores s3 keys for uploading and sharing images and objects
|
||||
::
|
||||
/- *s3
|
||||
/+ s3-json, default-agent, verb, dbug
|
||||
~% %s3-top ..is ~
|
||||
|
||||
@ -1,5 +1,6 @@
|
||||
::
|
||||
:: Soto: A Dojo relay for Urbit's Landscape interface
|
||||
:: soto [landscape]: A Dojo relay for Urbit's Landscape interface
|
||||
::
|
||||
:: Relays sole-effects to subscribers and forwards sole-action pokes
|
||||
::
|
||||
/- sole
|
||||
|
||||
@ -1,3 +1,7 @@
|
||||
:: weather [landscape]:
|
||||
::
|
||||
:: holds latlong, gets weather data from API, passes it on to subscribers
|
||||
::
|
||||
/+ *server, default-agent, verb, dbug
|
||||
=, format
|
||||
::
|
||||
|
||||
Loading…
Reference in New Issue
Block a user