tacryt-socryp

!.
=>  ~  =>
|%
++  add
  |=  [a=@ b=@]
  ^-  @
  ?:  =(0 a)  b
  $(a (dec a), b +(b))
::
++  sub

tacryt-socryp

module.exports = {
  entry: ['./dist/index.js'],
  output: {
    filename: 'bundle.js'
  },
  resolve: {
    fallback: { http: require.resolve('stream-http') }
  }
};

tacryt-socryp

|merge %suite our %base, =gem %init
|mount %suite
cd ~/dev/urbit/pkg
./symbolic-merge.sh ./arvo ./market
./symbolic-merge.sh ./garden-dev ./market
cp -RL ./market/* ~/fakenet/zod/suite

tacryt-socryp

/-  spider
/+  strandio, store=graph-store, graph
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand:spider ,vase)
^-  form:m
=+  !<([~ qry=tape] arg)
~&  >  "searching all graphs"
=*  orm  orm:store

tacryt-socryp

|%
+$  resource  [=entity =term]
+$  resources  (set resource)
::
+$  entity
  $%  [%ship =ship]
      [%ships ships=(set ship)]
      ::  [%ring ...]
  ==
::

tacryt-socryp

/-  *post
|%
+$  streams
  $:  feeds=(map resource feed)
      tags=(set term)
      tag-queries=(map term resources)
  ==
::
+$  feed  (ordered-map time post)
+$  action

tacryt-socryp

/-  *post
|%
+$  network  
  $:  graphs=(map resource (unit graph))
      tags=(set term)
      tag-queries=(map term resources)
  ==
::
+$  graph  (ordered-map time node)
+$  node  [=post replies=(unit graph)]

tacryt-socryp

|%
+$  resource  [=ship =term]
+$  groups  (map resource group)
+$  tag-queries  (map term (set ship))
+$  group
  $:  all-members=(set ship)
      =tag-queries
      =policy
  ==
::

tacryt-socryp

::  hooks/associate-groups-permissions.hoon
|%
+$  state
  $%  [%0 state-zero]
  ==
::
+$  group-path  path
+$  permission-path  path
::
+$  state-zero

tacryt-socryp

/+  *synapse
::
|_  [bol=bowl:gall sta=state]
::
++  this  .
::
++  prep
  |=  old=(unit state)
  ^-  (quip move _this)
  ?~  old