3e70e77 · seax · git.iko.soy

git.iko.soy/seax

on master help sign in

Added get-notes poke

3e70e77Evangelos Lamprou3 years ago

zod/seax/app/seax.hoon+10−7

compare with master

unifiedsplit

@@ -1,6 +1,6 @@

1/- *seax

2+/- diary

2−/+ dbug, engines, rank, sink

3+/+ dbug, engines, rank, sink, strandio

3−

4|%

5+$ query cord

6+$ search-state

@@ -10,6 +10,7 @@ $:

10==

11+$ state-0

12$:

13+ notes=shelf:diary

13 search-subscriptions=(map query search-state)

14 search-subscriptions=(map query search-state)

14 peers=_(silt ~[~zod ~racfer-hattes])

15 peers=_(silt ~[~zod ~racfer-hattes])

15 alive-peers=(set @p)

16 alive-peers=(set @p)

@@ -17,6 +18,7 @@ $:

17+$ poke

18+$ poke

18 $%

19 $%

19 [%add-peers (set @p)]

20 [%add-peers (set @p)]

21+ [%get-notes ~]

20 ==

22 ==

21++ rank-results

23++ rank-results

22 |= search-results=(map term (unit (list search-result)))

24 |= search-results=(map term (unit (list search-result)))

@@ -88,15 +90,16 @@ $:

88 state state

90 state state

89 ==

91 ==

90++ on-poke

92++ on-poke

91− |= [* * pk=*]

93+ |= [=mark =vase]

92 ^- (quip card:agent:gall _this)

94 ^- (quip card:agent:gall _this)

93− =/ poke (poke pk)

95+ =/ poke !<(poke vase)

94 ~& poke

96 ~& poke

95 ?- -.poke

97 ?- -.poke

96− %add-peers

98+ %add-peers

97− [~ this(peers.state (~(put in (~(uni in peers.state) +.poke)) src.bowl))]

99+ [~ this(peers.state (~(put in (~(uni in peers.state) +.poke)) src.bowl))]

100+ %get-notes

101+ `this(notes.state .^(shelf:diary %gx /(scot %p our.bowl)/diary/(scot %da now.bowl)/shelf/noun))

98 ==

102 ==

99−

100++ on-watch

103++ on-watch

101 |= =path

104 |= =path

102 ?+ path !!

105 ?+ path !!

zod/seax/lib/graph-store.hoonnew file+919

@@ -0,0 +1,919 @@

1+/- sur=graph-store, pos=post, pull-hook, hark=hark-store

2+/+ res=resource, migrate

3+=< [sur .]

4+=< [pos .]

5+=, sur

6+=, pos

7+|%

8+++ hark-content

9+ |= =content

10+ ^- content:hark

11+ ?- -.content

12+ %text content

13+ %mention ship+ship.content

14+ %url text+url.content

15+ %code text+'A code excerpt'

16+ %reference text+'A reference'

17+ ==

18+::

19+++ hark-contents

20+ |= cs=(list content)

21+ (turn cs hark-content)

22+:: NOTE: move these functions to zuse

23+++ nu :: parse number as hex

24+ |= jon=json

25+ ?> ?=([%s *] jon)

26+ (rash p.jon hex)

27+::

28+++ re :: recursive reparsers

29+ |* [gar=* sef=_|.(fist:dejs-soft:format)]

30+ |= jon=json

31+ ^- (unit _gar)

32+ =- ~! gar ~! (need -) -

33+ ((sef) jon)

34+::

35+++ dank :: tank

36+ ^- $-(json (unit tank))

37+ =, ^? dejs-soft:format

38+ %+ re *tank |. ~+

39+ %- of :~

40+ leaf+sa

41+ palm+(ot style+(ot mid+sa cap+sa open+sa close+sa ~) lines+(ar dank) ~)

42+ rose+(ot style+(ot mid+sa open+sa close+sa ~) lines+(ar dank) ~)

43+ ==

44+::

45+++ orm ((on atom node) gth)

46+++ orm-log ((on time logged-update) gth)

47+::

48+++ enjs

49+ =, enjs:format

50+ |%

51+ ::

52+ ++ signatures

53+ |= s=^signatures

54+ ^- json

55+ [%a (turn ~(tap in s) signature)]

56+ ::

57+ ++ signature

58+ |= s=^signature

59+ ^- json

60+ %- pairs

61+ :~ [%signature s+(scot %ux p.s)]

62+ [%ship (ship q.s)]

63+ [%life (numb r.s)]

64+ ==

65+ ::

66+ ++ index

67+ |= ind=^index

68+ ^- json

69+ :- %s

70+ ?: =(~ ind)

71+ '/'

72+ %+ roll ind

73+ |= [cur=@ acc=@t]

74+ ^- @t

75+ =/ num (numb cur)

76+ ?> ?=(%n -.num)

77+ (rap 3 acc '/' p.num ~)

78+ ::

79+ ++ uid

80+ |= u=^uid

81+ ^- json

82+ %- pairs

83+ :~ [%resource (enjs:res resource.u)]

84+ [%index (index index.u)]

85+ ==

86+ ::

87+ ++ content

88+ |= c=^content

89+ ^- json

90+ ?- -.c

91+ %mention (frond %mention (ship ship.c))

92+ %text (frond %text s+text.c)

93+ %url (frond %url s+url.c)

94+ %reference (frond %reference (reference +.c))

95+ %code

96+ %+ frond %code

97+ %- pairs

98+ :- [%expression s+expression.c]

99+ :_ ~

100+ :- %output

101+ :: virtualize output rendering, +tank:enjs:format might crash

102+ ::

103+ =/ result=(each (list json) tang)

104+ (mule |.((turn output.c tank)))

105+ ?- -.result

106+ %& a+p.result

107+ %| a+[a+[%s '[[output rendering error]]']~]~

108+ ==

109+ ==

110+ ::

111+ ++ reference

112+ |= ref=^reference

113+ |^

114+ %+ frond -.ref

115+ ?- -.ref

116+ %graph (graph +.ref)

117+ %group (group +.ref)

118+ %app (app +.ref)

119+ ==

120+ ::

121+ ++ graph

122+ |= [grp=res gra=res idx=^index]

123+ %- pairs

124+ :~ graph+s+(enjs-path:res gra)

125+ group+s+(enjs-path:res grp)

126+ index+(index idx)

127+ ==

128+ ::

129+ ++ group

130+ |= grp=res

131+ s+(enjs-path:res grp)

132+ ::

133+ ++ app

134+ |= [=^ship =desk p=^path]

135+ %- pairs

136+ :~ ship+s+(scot %p ship)

137+ desk+s+desk

138+ path+(path p)

139+ ==

140+ --

141+ ::

142+ ++ maybe-post

143+ |= mp=^maybe-post

144+ ^- json

145+ ?- -.mp

146+ %| s+(scot %ux p.mp)

147+ %& (post p.mp)

148+ ==

149+ ::

150+ ++ post

151+ |= p=^post

152+ ^- json

153+ %- pairs

154+ :~ [%author (ship author.p)]

155+ [%index (index index.p)]

156+ [%time-sent (time time-sent.p)]

157+ [%contents [%a (turn contents.p content)]]

158+ [%hash ?~(hash.p ~ s+(scot %ux u.hash.p))]

159+ [%signatures (signatures signatures.p)]

160+ ==

161+ ::

162+ ++ update

163+ |= upd=^update

164+ ^- json

165+ |^ (frond %graph-update (pairs ~[(encode q.upd)]))

166+ ::

167+ ++ encode

168+ |= upd=action

169+ ^- [cord json]

170+ ?- -.upd

171+ %add-graph

172+ :- %add-graph

173+ %- pairs

174+ :~ [%resource (enjs:res resource.upd)]

175+ [%graph (graph graph.upd)]

176+ [%mark ?~(mark.upd ~ s+u.mark.upd)]

177+ [%overwrite b+overwrite.upd]

178+ ==

179+ ::

180+ %remove-graph

181+ [%remove-graph (enjs:res resource.upd)]

182+ ::

183+ %add-nodes

184+ :- %add-nodes

185+ %- pairs

186+ :~ [%resource (enjs:res resource.upd)]

187+ [%nodes (nodes nodes.upd)]

188+ ==

189+ ::

190+ %remove-posts

191+ :- %remove-posts

192+ %- pairs

193+ :~ [%resource (enjs:res resource.upd)]

194+ [%indices (indices indices.upd)]

195+ ==

196+ ::

197+ %add-signatures

198+ :- %add-signatures

199+ %- pairs

200+ :~ [%uid (uid uid.upd)]

201+ [%signatures (signatures signatures.upd)]

202+ ==

203+ ::

204+ %remove-signatures

205+ :- %remove-signatures

206+ %- pairs

207+ :~ [%uid (uid uid.upd)]

208+ [%signatures (signatures signatures.upd)]

209+ ==

210+ ::

211+ %add-tag

212+ :- %add-tag

213+ %- pairs

214+ :~ [%term s+term.upd]

215+ [%uid (uid uid.upd)]

216+ ==

217+ ::

218+ %remove-tag

219+ :- %remove-tag

220+ %- pairs

221+ :~ [%term s+term.upd]

222+ [%uid (uid uid.upd)]

223+ ==

224+ ::

225+ %archive-graph

226+ [%archive-graph (enjs:res resource.upd)]

227+ ::

228+ %unarchive-graph

229+ [%unarchive-graph (enjs:res resource.upd)]

230+ ::

231+ %keys

232+ [%keys [%a (turn ~(tap in resources.upd) enjs:res)]]

233+ ::

234+ %tags

235+ [%tags [%a (turn ~(tap in tags.upd) |=(=term s+term))]]

236+ ::

237+ %run-updates

238+ [%run-updates ~]

239+ ::

240+ %tag-queries

241+ :- %tag-queries

242+ %- pairs

243+ %+ turn ~(tap by tag-queries.upd)

244+ |= [=term uids=(set ^uid)]

245+ ^- [cord json]

246+ [term [%a (turn ~(tap in uids) uid)]]

247+ ==

248+ ::

249+ ++ graph

250+ |= g=^graph

251+ ^- json

252+ %- pairs

253+ %+ turn

254+ (tap:orm g)

255+ |= [a=atom n=^node]

256+ ^- [@t json]

257+ :_ (node n)

258+ =/ idx (numb a)

259+ ?> ?=(%n -.idx)

260+ p.idx

261+ ::

262+ ++ node

263+ |= n=^node

264+ ^- json

265+ %- pairs

266+ :~ [%post (maybe-post post.n)]

267+ :- %children

268+ ?- -.children.n

269+ %empty ~

270+ %graph (graph +.children.n)

271+ ==

272+ ==

273+ ::

274+ ++ nodes

275+ |= m=(map ^index ^node)

276+ ^- json

277+ %- pairs

278+ %+ turn ~(tap by m)

279+ |= [n=^index o=^node]

280+ ^- [@t json]

281+ :_ (node o)

282+ =/ idx (index n)

283+ ?> ?=(%s -.idx)

284+ p.idx

285+ ::

286+ ++ indices

287+ |= i=(set ^index)

288+ ^- json

289+ [%a (turn ~(tap in i) index)]

290+ ::

291+ --

292+ --

293+::

294+++ dejs

295+ =, dejs:format

296+ |%

297+ ++ update

298+ |= jon=json

299+ ^- ^update

300+ :- *time

301+ ^- action

302+ =< (decode jon)

303+ |%

304+ ++ decode

305+ %- of

306+ :~ [%add-nodes add-nodes]

307+ [%remove-posts remove-posts]

308+ [%add-signatures add-signatures]

309+ [%remove-signatures remove-signatures]

310+ ::

311+ [%add-graph add-graph]

312+ [%remove-graph remove-graph]

313+ ::

314+ [%add-tag add-tag]

315+ [%remove-tag remove-tag]

316+ ::

317+ [%archive-graph archive-graph]

318+ [%unarchive-graph unarchive-graph]

319+ [%run-updates run-updates]

320+ ::

321+ [%keys keys]

322+ [%tags tags]

323+ [%tag-queries tag-queries]

324+ ==

325+ ::

326+ ++ add-graph

327+ %- ot

328+ :~ [%resource dejs:res]

329+ [%graph graph]

330+ [%mark (mu so)]

331+ [%overwrite bo]

332+ ==

333+ ::

334+ ++ graph

335+ |= a=json

336+ ^- ^graph

337+ =/ or-mp ((on atom ^node) gth)

338+ %+ gas:or-mp ~

339+ %+ turn ~(tap by ((om node) a))

340+ |* [b=cord c=*]

341+ ^- [atom ^node]

342+ => .(+< [b c]=+<)

343+ [(rash b dem) c]

344+ ::

345+ ++ remove-graph (ot [%resource dejs:res]~)

346+ ++ archive-graph (ot [%resource dejs:res]~)

347+ ++ unarchive-graph (ot [%resource dejs:res]~)

348+ ::

349+ ++ add-nodes

350+ %- ot

351+ :~ [%resource dejs:res]

352+ [%nodes nodes]

353+ ==

354+ ::

355+ ++ nodes (op ;~(pfix fas (more fas dem)) node)

356+ ::

357+ ++ node

358+ %- ot

359+ :~ [%post maybe-post]

360+ [%children internal-graph]

361+ ==

362+ ::

363+ ++ internal-graph

364+ |= jon=json

365+ ^- ^internal-graph

366+ ?~ jon

367+ [%empty ~]

368+ [%graph (graph jon)]

369+ ::

370+ ++ maybe-post

371+ |= jon=json

372+ ^- ^maybe-post

373+ ?~ jon !!

374+ ?+ -.jon !!

375+ %s [%| (nu jon)]

376+ %o [%& (post jon)]

377+ ==

378+ ::

379+ ++ post

380+ %- ot

381+ :~ [%author (su ;~(pfix sig fed:ag))]

382+ [%index index]

383+ [%time-sent di]

384+ [%contents (ar content)]

385+ [%hash (mu nu)]

386+ [%signatures (as signature)]

387+ ==

388+ ::

389+ ++ content

390+ %- of

391+ :~ [%mention (su ;~(pfix sig fed:ag))]

392+ [%text so]

393+ [%url so]

394+ [%reference reference]

395+ [%code eval]

396+ ==

397+ ::

398+ ++ reference

399+ |^

400+ %- of

401+ :~ graph+graph

402+ group+dejs-path:res

403+ app+app

404+ ==

405+ ::

406+ ++ graph

407+ %- ot

408+ :~ group+dejs-path:res

409+ graph+dejs-path:res

410+ index+index

411+ ==

412+ ::

413+ ++ app

414+ %- ot

415+ :~ ship+(su ;~(pfix sig fed:ag))

416+ desk+so

417+ path+pa

418+ ==

419+ --

420+ ::

421+ ++ tang

422+ |= jon=^json

423+ ^- ^tang

424+ ?> ?=(%a -.jon)

425+ %- zing

426+ %+ turn

427+ p.jon

428+ |= jo=^json

429+ ^- (list tank)

430+ ?> ?=(%a -.jo)

431+ %+ turn

432+ p.jo

433+ |= j=^json

434+ ?> ?=(%s -.j)

435+ ^- tank

436+ leaf+(trip p.j)

437+ ::

438+ ++ eval

439+ %- ot

440+ :~ expression+so

441+ output+tang

442+ ==

443+ ::

444+ ++ remove-posts

445+ %- ot

446+ :~ [%resource dejs:res]

447+ [%indices (as index)]

448+ ==

449+ ::

450+ ++ add-signatures

451+ %- ot

452+ :~ [%uid uid]

453+ [%signatures (as signature)]

454+ ==

455+ ::

456+ ++ remove-signatures

457+ %- ot

458+ :~ [%uid uid]

459+ [%signatures (as signature)]

460+ ==

461+ ::

462+ ++ signature

463+ %- ot

464+ :~ [%hash nu]

465+ [%ship (su ;~(pfix sig fed:ag))]

466+ [%life ni]

467+ ==

468+ ::

469+ ++ uid

470+ %- ot

471+ :~ [%resource dejs:res]

472+ [%index index]

473+ ==

474+ ::

475+ ++ index (su ;~(pfix fas (more fas dem)))

476+ ::

477+ ++ add-tag

478+ %- ot

479+ :~ [%term so]

480+ [%uid uid]

481+ ==

482+ ::

483+ ++ remove-tag

484+ %- ot

485+ :~ [%term so]

486+ [%uid uid]

487+ ==

488+ ::

489+ ++ keys

490+ |= =json

491+ *resources

492+ ::

493+ ++ tags

494+ |= =json

495+ *(set term)

496+ ::

497+ ++ tag-queries

498+ |= =json

499+ *^tag-queries

500+ ::

501+ ++ run-updates

502+ |= a=json

503+ ^- [resource update-log]

504+ [*resource *update-log]

505+ --

506+ ++ pa

507+ |= j=json

508+ ^- path

509+ ?> ?=(%s -.j)

510+ ?: =('/' p.j) /

511+ (stab p.j)

512+ ::

513+ --

514+::

515+++ create

516+ |_ [our=ship now=time]

517+ ++ post

518+ |= [=index contents=(list content)]

519+ ^- ^post

520+ :* our

521+ index

522+ now

523+ contents

524+ ~

525+ *signatures

526+ ==

527+ --

528+::

529+++ upgrade

530+ |%

531+ ::

532+ :: +two

533+ ::

534+ ++ marked-graph-to-two

535+ |= [=graph:one m=(unit mark)]

536+ [(graph-to-two graph) m]

537+ ::

538+ ++ graph-to-two

539+ |= =graph:one

540+ (graph:(upgrade ,post:one ,maybe-post:two) graph post-to-two)

541+ ::

542+ ++ post-to-two

543+ |= p=post:one

544+ ^- maybe-post:two

545+ [%& p]

546+ ::

547+ ::

548+ :: +one

549+ ::

550+ ++ update-log-to-one

551+ |= =update-log:zero

552+ ^- update-log:one

553+ %+ gas:orm-log:one *update-log:one

554+ %+ turn (tap:orm-log:zero update-log)

555+ |= [=time =logged-update:zero]

556+ ^- [^time logged-update:one]

557+ :- time

558+ :- p.logged-update

559+ (logged-update-to-one q.logged-update)

560+ ::

561+ ++ logged-update-to-one

562+ |= upd=logged-update-0:zero

563+ ^- logged-action:one

564+ ?+ -.upd upd

565+ %add-graph upd(graph (graph-to-one graph.upd))

566+ %add-nodes upd(nodes (~(run by nodes.upd) node-to-one))

567+ ==

568+ ::

569+ ++ node-to-one

570+ |= =node:zero

571+ (node:(upgrade ,post:zero ,post:one) node post-to-one)

572+ ::

573+ ++ graph-to-one

574+ |= =graph:zero

575+ (graph:(upgrade ,post:zero ,post:one) graph post-to-one)

576+ ::

577+ ++ marked-graph-to-one

578+ |= [=graph:zero m=(unit mark)]

579+ [(graph-to-one graph) m]

580+ ::

581+ ++ post-to-one

582+ |= p=post:zero

583+ ^- post:one

584+ p(contents (contents-to-one contents.p))

585+ ::

586+ ++ contents-to-one

587+ |= cs=(list content:zero)

588+ ^- (list content:one)

589+ %+ murn cs

590+ |= =content:zero

591+ ^- (unit content:one)

592+ ?: ?=(%reference -.content) ~

593+ `content

594+ ::

595+ ++ upgrade

596+ |* [in-pst=mold out-pst=mold]

597+ =>

598+ |%

599+ ++ in-orm

600+ ((on atom in-node) gth)

601+ +$ in-node

602+ [post=in-pst children=in-internal-graph]

603+ +$ in-graph

604+ ((mop atom in-node) gth)

605+ +$ in-internal-graph

606+ $~ [%empty ~]

607+ $% [%graph p=in-graph]

608+ [%empty ~]

609+ ==

610+ ::

611+ ++ out-orm

612+ ((on atom out-node) gth)

613+ +$ out-node

614+ [post=out-pst children=out-internal-graph]

615+ +$ out-graph

616+ ((mop atom out-node) gth)

617+ +$ out-internal-graph

618+ $~ [%empty ~]

619+ $% [%graph p=out-graph]

620+ [%empty ~]

621+ ==

622+ --

623+ |%

624+ ::

625+ ++ graph

626+ |= $: gra=in-graph

627+ fn=$-(in-pst out-pst)

628+ ==

629+ ^- out-graph

630+ %+ gas:out-orm *out-graph

631+ ^- (list [atom out-node])

632+ %+ turn (tap:in-orm gra)

633+ |= [a=atom n=in-node]

634+ ^- [atom out-node]

635+ [a (node n fn)]

636+ ::

637+ ++ node

638+ |= [nod=in-node fn=$-(in-pst out-pst)]

639+ ^- out-node

640+ :- (fn post.nod)

641+ ^- out-internal-graph

642+ ?: ?=(%empty -.children.nod)

643+ [%empty ~]

644+ [%graph (graph p.children.nod fn)]

645+ --

646+ ::

647+ ++ zero-load

648+ :: =* infinitely recurses

649+ =, store=zero

650+ =, orm=orm:zero

651+ =, orm-log=orm-log:zero

652+ |%

653+ ++ change-revision-graph

654+ |= [=graph:store q=(unit mark)]

655+ ^- [graph:store (unit mark)]

656+ |^

657+ :_ q

658+ ?+ q graph

659+ [~ %graph-validator-link] convert-links

660+ [~ %graph-validator-publish] convert-publish

661+ ==

662+ ::

663+ ++ convert-links

664+ %+ gas:orm *graph:store

665+ %+ turn (tap:orm graph)

666+ |= [=atom =node:store]

667+ ^- [^atom node:store]

668+ :: top-level

669+ ::

670+ :+ atom post.node

671+ ?: ?=(%empty -.children.node)

672+ [%empty ~]

673+ :- %graph

674+ %+ gas:orm *graph:store

675+ %+ turn (tap:orm p.children.node)

676+ |= [=^atom =node:store]

677+ ^- [^^atom node:store]

678+ :: existing comments get turned into containers for revisions

679+ ::

680+ :^ atom

681+ post.node(contents ~, hash ~)

682+ %graph

683+ %+ gas:orm *graph:store

684+ :_ ~ :- %0

685+ :_ [%empty ~]

686+ post.node(index (snoc index.post.node atom), hash ~)

687+ ::

688+ ++ convert-publish

689+ %+ gas:orm *graph:store

690+ %+ turn (tap:orm graph)

691+ |= [=atom =node:store]

692+ ^- [^atom node:store]

693+ :: top-level

694+ ::

695+ :+ atom post.node

696+ ?: ?=(%empty -.children.node)

697+ [%empty ~]

698+ :- %graph

699+ %+ gas:orm *graph:store

700+ %+ turn (tap:orm p.children.node)

701+ |= [=^atom =node:store]

702+ ^- [^^atom node:store]

703+ :: existing container for publish note revisions

704+ ::

705+ ?+ atom !!

706+ %1 [atom node]

707+ %2

708+ :+ atom post.node

709+ ?: ?=(%empty -.children.node)

710+ [%empty ~]

711+ :- %graph

712+ %+ gas:orm *graph:store

713+ %+ turn (tap:orm p.children.node)

714+ |= [=^^atom =node:store]

715+ ^- [^^^atom node:store]

716+ :+ atom post.node(contents ~, hash ~)

717+ :- %graph

718+ %+ gas:orm *graph:store

719+ :_ ~ :- %1

720+ :_ [%empty ~]

721+ post.node(index (snoc index.post.node atom), hash ~)

722+ ==

723+ --

724+ ::

725+ ++ maybe-unix-to-da

726+ |= =atom

727+ ^- @

728+ :: (bex 127) is roughly 226AD

729+ ?. (lte atom (bex 127))

730+ atom

731+ (add ~1970.1.1 (div (mul ~s1 atom) 1.000))

732+ ::

733+ ++ convert-unix-timestamped-node

734+ |= =node:store

735+ ^- node:store

736+ =. index.post.node

737+ (convert-unix-timestamped-index index.post.node)

738+ ?. ?=(%graph -.children.node)

739+ node

740+ :+ post.node

741+ %graph

742+ (convert-unix-timestamped-graph p.children.node)

743+ ::

744+ ++ convert-unix-timestamped-index

745+ |= =index:store

746+ (turn index maybe-unix-to-da)

747+ ::

748+ ++ convert-unix-timestamped-graph

749+ |= =graph:store

750+ %+ gas:orm *graph:store

751+ %+ turn

752+ (tap:orm graph)

753+ |= [=atom =node:store]

754+ ^- [^atom node:store]

755+ :- (maybe-unix-to-da atom)

756+ (convert-unix-timestamped-node node)

757+ --

758+ --

759+++ import

760+ |= [arc=* our=ship]

761+ ^- (quip card:agent:gall [%6 network])

762+ |^

763+ =/ sty [%6 (remake-network ;;(tree-network +.arc))]

764+ :_ sty

765+ %+ turn ~(tap by graphs.sty)

766+ |= [rid=resource =marked-graph]

767+ ^- card:agent:gall

768+ ?: =(our entity.rid)

769+ =/ =cage [%push-hook-action !>([%add rid])]

770+ [%pass / %agent [our %graph-push-hook] %poke cage]

771+ (try-rejoin rid 0)

772+ ::

773+ +$ tree-network

774+ $: graphs=tree-graphs

775+ tag-queries=(tree [term (tree uid)])

776+ update-logs=tree-update-logs

777+ archive=tree-graphs

778+ ~

779+ ==

780+ +$ tree-graphs (tree [resource tree-marked-graph])

781+ +$ tree-marked-graph [p=tree-graph q=(unit ^mark)]

782+ +$ tree-graph (tree [atom tree-node])

783+ +$ tree-node [post=tree-maybe-post children=tree-internal-graph]

784+ +$ tree-internal-graph

785+ $~ [%empty ~]

786+ $% [%graph p=tree-graph]

787+ [%empty ~]

788+ ==

789+ +$ tree-update-logs (tree [resource tree-update-log])

790+ +$ tree-update-log (tree [time tree-logged-update])

791+ +$ tree-logged-update

792+ $: p=time

793+ $= q

794+ $% [%add-graph =resource =tree-graph mark=(unit ^mark) ow=?]

795+ [%add-nodes =resource nodes=(tree [index tree-node])]

796+ [%remove-posts =resource indices=(tree index)]

797+ [%add-signatures =uid signatures=tree-signatures]

798+ [%remove-signatures =uid signatures=tree-signatures]

799+ ==

800+ ==

801+ +$ tree-signatures (tree signature)

802+ +$ tree-maybe-post (each tree-post hash)

803+ +$ tree-post

804+ $: author=ship

805+ =index

806+ time-sent=time

807+ contents=(list content)

808+ hash=(unit hash)

809+ signatures=tree-signatures

810+ ==

811+ ::

812+ ++ remake-network

813+ |= t=tree-network

814+ ^- network

815+ :* (remake-graphs graphs.t)

816+ (remake-jug:migrate tag-queries.t)

817+ (remake-update-logs update-logs.t)

818+ (remake-graphs archive.t)

819+ ~

820+ ==

821+ ::

822+ ++ remake-graphs

823+ |= t=tree-graphs

824+ ^- graphs

825+ %- remake-map:migrate

826+ (~(run by t) remake-marked-graph)

827+ ::

828+ ++ remake-marked-graph

829+ |= t=tree-marked-graph

830+ ^- marked-graph

831+ [(remake-graph p.t) q.t]

832+ ::

833+ ++ remake-graph

834+ |= t=tree-graph

835+ ^- graph

836+ %+ gas:orm *graph

837+ %+ turn ~(tap by t)

838+ |= [a=atom tn=tree-node]

839+ ^- [atom node]

840+ [a (remake-node tn)]

841+ ::

842+ ++ remake-internal-graph

843+ |= t=tree-internal-graph

844+ ^- internal-graph

845+ ?: ?=(%empty -.t)

846+ [%empty ~]

847+ [%graph (remake-graph p.t)]

848+ ::

849+ ++ remake-node

850+ |= t=tree-node

851+ ^- node

852+ :- (remake-post post.t)

853+ (remake-internal-graph children.t)

854+ ::

855+ ++ remake-update-logs

856+ |= t=tree-update-logs

857+ ^- update-logs

858+ %- remake-map:migrate

859+ (~(run by t) remake-update-log)

860+ ::

861+ ++ remake-update-log

862+ |= t=tree-update-log

863+ ^- update-log

864+ =/ ulm ((on time logged-update) gth)

865+ %+ gas:ulm *update-log

866+ %+ turn ~(tap by t)

867+ |= [=time tlu=tree-logged-update]

868+ ^- [^time logged-update]

869+ [time (remake-logged-update tlu)]

870+ ::

871+ ++ remake-logged-update

872+ |= t=tree-logged-update

873+ ^- logged-update

874+ :- p.t

875+ ?- -.q.t

876+ %add-graph

877+ :* %add-graph

878+ resource.q.t

879+ (remake-graph tree-graph.q.t)

880+ mark.q.t

881+ ow.q.t

882+ ==

883+ ::

884+ %add-nodes

885+ :- %add-nodes

886+ :- resource.q.t

887+ %- remake-map:migrate

888+ (~(run by nodes.q.t) remake-node)

889+ ::

890+ %remove-posts

891+ [%remove-posts resource.q.t (remake-set:migrate indices.q.t)]

892+ ::

893+ %add-signatures

894+ [%add-signatures uid.q.t (remake-set:migrate signatures.q.t)]

895+ ::

896+ %remove-signatures

897+ [%remove-signatures uid.q.t (remake-set:migrate signatures.q.t)]

898+ ==

899+ ::

900+ ++ remake-post

901+ |= t=tree-maybe-post

902+ ^- maybe-post

903+ ?- -.t

904+ %| t

905+ %& t(signatures.p (remake-set:migrate signatures.p.t))

906+ ==

907+ ::

908+ ++ try-rejoin

909+ |= [rid=resource nack-count=@]

910+ ^- card:agent:gall

911+ =/ res-path (en-path:res rid)

912+ =/ wire [%try-rejoin (scot %ud nack-count) res-path]

913+ =/ =cage

914+ :- %pull-hook-action

915+ !> ^- action:pull-hook

916+ [%add [entity .]:rid]

917+ [%pass wire %agent [our %graph-pull-hook] %poke cage]

918+ --

919+--

zod/seax/lib/resource.hoonnew file+57

@@ -0,0 +1,57 @@

1+/- sur=resource

2+=< resource

3+|%

4++$ resource resource:sur

5+++ en-path

6+ |= =resource

7+ ^- path

8+ ~[%ship (scot %p entity.resource) name.resource]

9+::

10+++ de-path

11+ |= =path

12+ ^- resource

13+ (need (de-path-soft path))

14+::

15+++ de-path-soft

16+ |= =path

17+ ^- (unit resource)

18+ ?. ?=([%ship @ @ *] path)

19+ ~

20+ =/ ship

21+ (slaw %p i.t.path)

22+ ?~ ship

23+ ~

24+ `[u.ship i.t.t.path]

25+::

26+++ enjs

27+ |= =resource

28+ ^- json

29+ =, enjs:format

30+ %- pairs

31+ :~ ship+(ship entity.resource)

32+ name+s+name.resource

33+ ==

34+::

35+++ enjs-path

36+ |= =resource

37+ %- spat

38+ (en-path resource)

39+::

40+++ dejs-path

41+ %- su:dejs:format

42+ ;~ pfix

43+ (jest '/ship/')

44+ ;~((glue fas) ;~(pfix sig fed:ag) urs:ab)

45+ ==

46+::

47+++ dejs

48+ =, dejs:format

49+ ^- $-(json resource)

50+ |= jon=json

51+ ~| dejs+%resource

52+ %. jon

53+ %- ot

54+ :~ ship+(su ;~(pfix sig fed:ag))

55+ name+so

56+ ==

57+--

zod/seax/sur/diary-0.hoonnew file+323

@@ -0,0 +1,323 @@

1+/- g=groups, c=cite, graph-store, e=epic

2+/- metadata-store

3+/+ lib-graph=graph-store

4+|%

5+++ okay `epic:e`0

6+++ mar

7+ |%

8+ ++ act `mark`(rap 3 %diary-action '-' (scot %ud okay) ~)

9+ ++ upd `mark`(rap 3 %diary-update '-' (scot %ud okay) ~)

10+ ++ log `mark`(rap 3 %diary-logs '-' (scot %ud okay) ~)

11+ --

12+:: $flag: identifier for a diary channel

13++$ flag (pair ship term)

14+:: $feel: either an emoji identifier like :diff or a URL for custom

15++$ feel @ta

16+:: $view: the persisted display format for a diary

17++$ view ?(%grid %list)

18+:: $sort: the persisted sort type for a diary

19++$ sort ?(%alpha %time %arranged)

20+:: $shelf: my ship's diaries

21++$ shelf (map flag diary)

22+:: $said: used for references

23++$ said (pair flag outline)

24+:: $plan: index into diary state

25+:: p: Note being referred to

26+:: q: Quip being referred to, if any

27+::

28++$ plan

29+ (pair time (unit time))

30+::

31+:: $diary: written longform communication

32+::

33+:: net: an indicator of whether I'm a host or subscriber

34+:: log: the history of all modifications

35+:: perm: holds the diary's permissions

36+:: view: what format to display

37+:: sort: how to order posts

38+:: notes: the actual contents of the diary

39+:: remark: what is the last thing we've read

40+:: banter: comments organized by post

41+::

42++$ diary

43+ $: =net

44+ =log

45+ =perm

46+ =view

47+ =sort

48+ =notes

49+ =remark

50+ ==

51+::

52+:: $notes: a set of time ordered diary posts

53+::

54+++ notes

55+ =< rock

56+ |%

57+ +$ rock

58+ ((mop time note) lte)

59+ ++ on

60+ ((^on time note) lte)

61+ +$ diff

62+ (pair time delta)

63+ +$ delta

64+ $% [%add p=essay]

65+ [%edit p=essay]

66+ [%del ~]

67+ [%quips p=diff:quips]

68+ [%add-feel p=ship q=feel]

69+ [%del-feel p=ship]

70+ ==

71+ --

72+::

73+:: $quips: a set of time ordered note comments

74+::

75+++ quips

76+ =< rock

77+ |%

78+ +$ rock

79+ ((mop time quip) lte)

80+ ++ on

81+ ((^on time quip) lte)

82+ +$ diff

83+ (pair time delta)

84+ +$ delta

85+ $% [%add p=memo]

86+ [%del ~]

87+ [%add-feel p=ship q=feel]

88+ [%del-feel p=ship]

89+ ==

90+ --

91+::

92+:: $outline: abridged $note

93+:: .quips: number of comments

94+::

95++$ outline

96+ [quips=@ud quippers=(set ship) essay]

97+::

98+++ outlines

99+ =< outlines

100+ |%

101+ +$ outlines ((mop time outline) lte)

102+ ++ on ((^on time outline) lte)

103+ --

104+::

105+:: $note: a diary post

106+::

107++$ note [seal essay]

108+:: $quip: a post comment

109+::

110++$ quip [cork memo]

111+::

112+:: $seal: host-side data for a note

113+::

114++$ seal

115+ $: =time

116+ =quips

117+ feels=(map ship feel)

118+ ==

119+::

120+:: $cork: host-side data for a quip

121+::

122++$ cork

123+ $: =time

124+ feels=(map ship feel)

125+ ==

126+:: $essay: the post data itself

127+::

128+:: title: the name of the post

129+:: image: a visual displayed as a header

130+:: content: the body of the post

131+:: author: the ship that wrote the post

132+:: sent: the client-side time the post was made

133+::

134++$ essay

135+ $: title=@t

136+ image=@t

137+ content=(list verse)

138+ author=ship

139+ sent=time

140+ ==

141++$ story (pair (list block) (list inline))

142+:: $memo: the comment data itself

143+::

144+:: content: the body of the comment

145+:: author: the ship that wrote the comment

146+:: sent: the client-side time the comment was made

147+::

148++$ memo

149+ $: content=story

150+ author=ship

151+ sent=time

152+ ==

153+:: $verse: a chunk of post content

154+::

155+:: blocks stand on their own. inlines come in groups and get wrapped

156+:: into a paragraph

157+::

158++$ verse

159+ $% [%block p=block]

160+ [%inline p=(list inline)]

161+ ==

162+:: $listing: recursive type for infinitely nested <ul> or <ol>

163++$ listing

164+ $% [%list p=?(%ordered %unordered) q=(list listing) r=(list inline)]

165+ [%item p=(list inline)]

166+ ==

167+:: $block: post content that sits outside of the normal text

168+::

169+:: %image: a visual, we record dimensions for better rendering

170+:: %cite: an Urbit reference

171+:: %header: a traditional HTML heading, h1-h6

172+:: %listing: a traditional HTML list, ul and ol

173+:: %code: a block of code

174+::

175++$ block

176+ $% [%image src=cord height=@ud width=@ud alt=cord]

177+ [%cite =cite:c]

178+ [%header p=?(%h1 %h2 %h3 %h4 %h5 %h6) q=(list inline)]

179+ [%listing p=listing]

180+ [%rule ~]

181+ [%code code=cord lang=cord]

182+ ==

183+:: $inline: post content that flows within a paragraph

184+::

185+:: @t: plain text

186+:: %italics: italic text

187+:: %bold: bold text

188+:: %strike: strikethrough text

189+:: %inline-code: code formatting for small snippets

190+:: %blockquote: blockquote surrounded content

191+:: %block: link/reference to blocks

192+:: %code: code formatting for large snippets

193+:: %tag: tag gets special signifier

194+:: %link: link to a URL with a face

195+:: %break: line break

196+::

197++$ inline

198+ $@ @t

199+ $% [%italics p=(list inline)]

200+ [%bold p=(list inline)]

201+ [%strike p=(list inline)]

202+ [%blockquote p=(list inline)]

203+ [%inline-code p=cord]

204+ [%ship p=ship]

205+ [%block p=@ud q=cord]

206+ [%code p=cord]

207+ [%tag p=cord]

208+ [%link p=cord q=cord]

209+ [%break ~]

210+ ==

211+:: $log: a time ordered history of modifications to a diary

212+::

213++$ log

214+ ((mop time diff) lte)

215+++ log-on

216+ ((on time diff) lte)

217+::

218+:: $action: the complete set of data required to modify a diary

219+::

220++$ action

221+ (pair flag:g update)

222+::

223+:: $update: a representation in time of a modification to a diary

224+::

225++$ update

226+ (pair time diff)

227+::

228+:: $diff: the full suite of modifications that can be made to a diary

229+::

230++$ diff

231+ $% [%notes p=diff:notes]

232+ ::

233+ [%add-sects p=(set sect:g)]

234+ [%del-sects p=(set sect:g)]

235+ ::

236+ [%create p=perm q=notes]

237+ [%view p=view]

238+ [%sort p=sort]

239+ ::

240+ ==

241+::

242+:: $net: an indicator of whether I'm a host or subscriber

243+::

244+:: %pub: am publisher/host with fresh log

245+:: %sub: subscribed to the ship at saga

246+::

247++$ net

248+ $% [%sub p=ship load=_| =saga:e]

249+ [%pub ~] :: TODO: permissions?

250+ ==

251+::

252+:: $briefs: a map of diary unread information

253+::

254+:: brief: the last time a diary was read, how many posts since,

255+:: and the id of the last read note

256+::

257+++ briefs

258+ =< briefs

259+ |%

260+ +$ briefs

261+ (map flag brief)

262+ +$ brief

263+ [last=time count=@ud read-id=(unit time)]

264+ +$ update

265+ (pair flag brief)

266+ --

267+:: $remark: a marker representing the last note I've read

268+::

269++$ remark

270+ [last-read=time watching=_| ~]

271+::

272++$ remark-action

273+ (pair flag remark-diff)

274+::

275++$ remark-diff

276+ $% [%read ~]

277+ [%read-at p=time]

278+ [?(%watch %unwatch) ~]

279+ ==

280+::

281+:: $perm: represents the permissions for a diary channel and gives a

282+:: pointer back to the group it belongs to.

283+::

284++$ perm

285+ $: writers=(set sect:g)

286+ group=flag:g

287+ ==

288+:: $join: a group + channel flag to join a channel, group required for perms

289+::

290++$ join

291+ $: group=flag:g

292+ chan=flag:g

293+ ==

294+:: $leave: a flag to pass for a channel leave

295+::

296++$ leave flag:g

297+::

298+:: $create: represents a request to create a channel

299+::

300+:: The name will be used as part of the flag which represents the

301+:: channel. $create is consumed by the diary agent first and then

302+:: passed to the groups agent to register the channel with the group.

303+::

304+:: Write permission is stored with the specific agent in the channel,

305+:: read permission is stored with the group's data.

306+::

307++$ create

308+ $: group=flag:g

309+ name=term

310+ title=cord

311+ description=cord

312+ readers=(set sect:g)

313+ writers=(set sect:g)

314+ ==

315++$ import [writers=(set ship) =association:met =update-log:gra =graph:gra]

316+::

317++$ imports (map flag import)

318+::

319+++ gra graph-store

320+++ orm-gra orm:lib-graph

321+++ orm-log-gra orm-log:lib-graph

322+++ met metadata-store

323+--

zod/seax/sur/diary.hoonnew file+335

@@ -0,0 +1,335 @@

1+/- g=groups, c=cite, graph-store, e=epic

2+/- zer=diary-0

3+/- metadata-store

4+/+ lib-graph=graph-store

5+|%

6+++ old

7+ |%

8+ ++ zero zer

9+ --

10+::

11+++ okay `epic:e`2

12+++ mar

13+ |%

14+ ++ act `mark`(rap 3 %diary-action '-' (scot %ud okay) ~)

15+ ++ upd `mark`(rap 3 %diary-update '-' (scot %ud okay) ~)

16+ ++ log `mark`(rap 3 %diary-logs '-' (scot %ud okay) ~)

17+ --

18+:: $flag: identifier for a diary channel

19++$ flag (pair ship term)

20+:: $feel: either an emoji identifier like :diff or a URL for custom

21++$ feel @ta

22+:: $view: the persisted display format for a diary

23++$ view ?(%grid %list)

24+:: $sort: the persisted sort type for a diary

25++$ sort ?(%alpha %time %arranged)

26+:: $arranged-notes: an array of noteIds

27++$ arranged-notes (unit (list time))

28+:: $shelf: my ship's diaries

29++$ shelf (map flag diary)

30+:: $said: used for references

31++$ said (pair flag outline)

32+:: $plan: index into diary state

33+:: p: Note being referred to

34+:: q: Quip being referred to, if any

35+::

36++$ plan

37+ (pair time (unit time))

38+::

39+:: $diary: written longform communication

40+::

41+:: arranged-notes: a list of noteIds, used for manual sorting

42+:: net: an indicator of whether I'm a host or subscriber

43+:: log: the history of all modifications

44+:: perm: holds the diary's permissions

45+:: view: what format to display

46+:: sort: how to order posts

47+:: notes: the actual contents of the diary

48+:: remark: what is the last thing we've read

49+:: banter: comments organized by post

50+::

51++$ diary

52+ $: =arranged-notes

53+ =net

54+ =log

55+ =perm

56+ =view

57+ =sort

58+ =notes

59+ =remark

60+ ==

61+::

62+:: $notes: a set of time ordered diary posts

63+::

64+++ notes

65+ =< rock

66+ |%

67+ +$ rock

68+ ((mop time note) lte)

69+ ++ on

70+ ((^on time note) lte)

71+ +$ diff

72+ (pair time delta)

73+ +$ delta

74+ $% [%add p=essay]

75+ [%edit p=essay]

76+ [%del ~]

77+ [%quips p=diff:quips]

78+ [%add-feel p=ship q=feel]

79+ [%del-feel p=ship]

80+ ==

81+ --

82+::

83+:: $quips: a set of time ordered note comments

84+::

85+++ quips

86+ =< rock

87+ |%

88+ +$ rock

89+ ((mop time quip) lte)

90+ ++ on

91+ ((^on time quip) lte)

92+ +$ diff

93+ (pair time delta)

94+ +$ delta

95+ $% [%add p=memo]

96+ [%del ~]

97+ [%add-feel p=ship q=feel]

98+ [%del-feel p=ship]

99+ ==

100+ --

101+::

102+:: $outline: abridged $note

103+:: .quips: number of comments

104+::

105++$ outline

106+ [quips=@ud quippers=(set ship) essay]

107+::

108+++ outlines

109+ =< outlines

110+ |%

111+ +$ outlines ((mop time outline) lte)

112+ ++ on ((^on time outline) lte)

113+ --

114+::

115+:: $note: a diary post

116+::

117++$ note [seal essay]

118+:: $quip: a post comment

119+::

120++$ quip [cork memo]

121+::

122+:: $seal: host-side data for a note

123+::

124++$ seal

125+ $: =time

126+ =quips

127+ feels=(map ship feel)

128+ ==

129+::

130+:: $cork: host-side data for a quip

131+::

132++$ cork

133+ $: =time

134+ feels=(map ship feel)

135+ ==

136+:: $essay: the post data itself

137+::

138+:: title: the name of the post

139+:: image: a visual displayed as a header

140+:: content: the body of the post

141+:: author: the ship that wrote the post

142+:: sent: the client-side time the post was made

143+::

144++$ essay

145+ $: title=@t

146+ image=@t

147+ content=(list verse)

148+ author=ship

149+ sent=time

150+ ==

151++$ story (pair (list block) (list inline))

152+:: $memo: the comment data itself

153+::

154+:: content: the body of the comment

155+:: author: the ship that wrote the comment

156+:: sent: the client-side time the comment was made

157+::

158++$ memo

159+ $: content=story

160+ author=ship

161+ sent=time

162+ ==

163+:: $verse: a chunk of post content

164+::

165+:: blocks stand on their own. inlines come in groups and get wrapped

166+:: into a paragraph

167+::

168++$ verse

169+ $% [%block p=block]

170+ [%inline p=(list inline)]

171+ ==

172+:: $listing: recursive type for infinitely nested <ul> or <ol>

173++$ listing

174+ $% [%list p=?(%ordered %unordered %tasklist) q=(list listing) r=(list inline)]

175+ [%item p=(list inline)]

176+ ==

177+:: $block: post content that sits outside of the normal text

178+::

179+:: %image: a visual, we record dimensions for better rendering

180+:: %cite: an Urbit reference

181+:: %header: a traditional HTML heading, h1-h6

182+:: %listing: a traditional HTML list, ul and ol

183+:: %code: a block of code

184+::

185++$ block

186+ $% [%image src=cord height=@ud width=@ud alt=cord]

187+ [%cite =cite:c]

188+ [%header p=?(%h1 %h2 %h3 %h4 %h5 %h6) q=(list inline)]

189+ [%listing p=listing]

190+ [%rule ~]

191+ [%code code=cord lang=cord]

192+ ==

193+:: $inline: post content that flows within a paragraph

194+::

195+:: @t: plain text

196+:: %italics: italic text

197+:: %bold: bold text

198+:: %strike: strikethrough text

199+:: %inline-code: code formatting for small snippets

200+:: %blockquote: blockquote surrounded content

201+:: %block: link/reference to blocks

202+:: %code: code formatting for large snippets

203+:: %tag: tag gets special signifier

204+:: %link: link to a URL with a face

205+:: %break: line break

206+::

207++$ inline

208+ $@ @t

209+ $% [%italics p=(list inline)]

210+ [%bold p=(list inline)]

211+ [%strike p=(list inline)]

212+ [%blockquote p=(list inline)]

213+ [%inline-code p=cord]

214+ [%ship p=ship]

215+ [%block p=@ud q=cord]

216+ [%code p=cord]

217+ [%tag p=cord]

218+ [%link p=cord q=cord]

219+ [%task p=?(%.y %.n) q=(list inline)]

220+ [%break ~]

221+ ==

222+:: $log: a time ordered history of modifications to a diary

223+::

224++$ log

225+ ((mop time diff) lte)

226+++ log-on

227+ ((on time diff) lte)

228+::

229+:: $action: the complete set of data required to modify a diary

230+::

231++$ action

232+ (pair flag:g update)

233+::

234+:: $update: a representation in time of a modification to a diary

235+::

236++$ update

237+ (pair time diff)

238+::

239+:: $diff: the full suite of modifications that can be made to a diary

240+::

241++$ diff

242+ $% [%notes p=diff:notes]

243+ ::

244+ [%add-sects p=(set sect:g)]

245+ [%del-sects p=(set sect:g)]

246+ ::

247+ [%create p=perm q=notes]

248+ [%view p=view]

249+ [%sort p=sort]

250+ [%arranged-notes p=arranged-notes]

251+ ::

252+ ==

253+::

254+:: $net: an indicator of whether I'm a host or subscriber

255+::

256+:: %pub: am publisher/host with fresh log

257+:: %sub: subscribed to the ship at saga

258+::

259++$ net

260+ $% [%sub p=ship load=_| =saga:e]

261+ [%pub ~] :: TODO: permissions?

262+ ==

263+::

264+:: $briefs: a map of diary unread information

265+::

266+:: brief: the last time a diary was read, how many posts since,

267+:: and the id of the last read note

268+::

269+++ briefs

270+ =< briefs

271+ |%

272+ +$ briefs

273+ (map flag brief)

274+ +$ brief

275+ [last=time count=@ud read-id=(unit time)]

276+ +$ update

277+ (pair flag brief)

278+ --

279+:: $remark: a marker representing the last note I've read

280+::

281++$ remark

282+ [last-read=time watching=_| ~]

283+::

284++$ remark-action

285+ (pair flag remark-diff)

286+::

287++$ remark-diff

288+ $% [%read ~]

289+ [%read-at p=time]

290+ [?(%watch %unwatch) ~]

291+ ==

292+::

293+:: $perm: represents the permissions for a diary channel and gives a

294+:: pointer back to the group it belongs to.

295+::

296++$ perm

297+ $: writers=(set sect:g)

298+ group=flag:g

299+ ==

300+:: $join: a group + channel flag to join a channel, group required for perms

301+::

302++$ join

303+ $: group=flag:g

304+ chan=flag:g

305+ ==

306+:: $leave: a flag to pass for a channel leave

307+::

308++$ leave flag:g

309+::

310+:: $create: represents a request to create a channel

311+::

312+:: The name will be used as part of the flag which represents the

313+:: channel. $create is consumed by the diary agent first and then

314+:: passed to the groups agent to register the channel with the group.

315+::

316+:: Write permission is stored with the specific agent in the channel,

317+:: read permission is stored with the group's data.

318+::

319++$ create

320+ $: group=flag:g

321+ name=term

322+ title=cord

323+ description=cord

324+ readers=(set sect:g)

325+ writers=(set sect:g)

326+ ==

327++$ import [writers=(set ship) =association:met =update-log:gra =graph:gra]

328+::

329++$ imports (map flag import)

330+::

331+++ gra graph-store

332+++ orm-gra orm:lib-graph

333+++ orm-log-gra orm-log:lib-graph

334+++ met metadata-store

335+--

zod/seax/sur/epic.hoonnew file+15

@@ -0,0 +1,15 @@

1+|%

2+:: $saga: version synchronisation state

3+:: %dex: publisher is ahead

4+:: %lev: we are ahead

5+:: %chi: full sync

6+::

7++$ saga

8+ $% [%dex ver=@ud]

9+ [%lev ~]

10+ [%chi ~]

11+ ==

12+

13++$ epic @ud

14+::

15+--

zod/seax/sur/graph-store.hoonnew file+272

@@ -0,0 +1,272 @@

1+/- *post

2+|%

3++$ graph ((mop atom node) gth)

4++$ marked-graph [p=graph q=(unit mark)]

5+::

6++$ maybe-post (each post hash)

7++$ node [post=maybe-post children=internal-graph]

8++$ graphs (map resource marked-graph)

9+::

10++$ tag-queries (jug term uid)

11+::

12++$ update-log ((mop time logged-update) gth)

13++$ update-logs (map resource update-log)

14+::

15++$ internal-graph

16+ $~ [%empty ~]

17+ $% [%graph p=graph]

18+ [%empty ~]

19+ ==

20+::

21++$ network

22+ $: =graphs

23+ =tag-queries

24+ =update-logs

25+ archive=graphs

26+ ~

27+ ==

28+::

29++$ update [p=time q=action]

30+::

31++$ logged-update [p=time q=logged-action]

32+

33+::

34++$ logged-action

35+ $% [%add-graph =resource =graph mark=(unit mark) overwrite=?]

36+ [%add-nodes =resource nodes=(map index node)]

37+ [%remove-posts =resource indices=(set index)]

38+ [%add-signatures =uid =signatures]

39+ [%remove-signatures =uid =signatures]

40+ ==

41+::

42++$ action

43+ $% logged-action

44+ [%remove-graph =resource]

45+ ::

46+ [%add-tag =term =uid]

47+ [%remove-tag =term =uid]

48+ ::

49+ [%archive-graph =resource]

50+ [%unarchive-graph =resource]

51+ [%run-updates =resource =update-log]

52+ ::

53+ :: NOTE: cannot be sent as pokes

54+ ::

55+ [%keys =resources]

56+ [%tags tags=(set term)]

57+ [%tag-queries =tag-queries]

58+ ==

59+::

60++$ permissions

61+ [admin=permission-level writer=permission-level reader=permission-level]

62+::

63+:: $permission-level: levels of permissions in increasing order

64+::

65+:: %no: May not add/remove node

66+:: %self: May only nodes beneath nodes that were added by

67+:: the same pilot, may remove nodes that the pilot 'owns'

68+:: %yes: May add a node or remove node

69++$ permission-level

70+ ?(%no %self %yes)

71+::

72+:: %graph-store types version 2

73+::

74+++ two

75+ =< [. post-one]

76+ =, post-one

77+ |%

78+ +$ maybe-post (each post hash)

79+ ++ orm ((on atom node) gth)

80+ ++ orm-log ((on time logged-update) gth)

81+ ::

82+ +$ graph ((mop atom node) gth)

83+ +$ marked-graph [p=graph q=(unit mark)]

84+ ::

85+ +$ node [post=maybe-post children=internal-graph]

86+ +$ graphs (map resource marked-graph)

87+ ::

88+ +$ tag-queries (jug term resource)

89+ ::

90+ +$ update-log ((mop time logged-update) gth)

91+ +$ update-logs (map resource update-log)

92+ ::

93+ +$ internal-graph

94+ $~ [%empty ~]

95+ $% [%graph p=graph]

96+ [%empty ~]

97+ ==

98+ ::

99+ +$ network

100+ $: =graphs

101+ =tag-queries

102+ =update-logs

103+ archive=graphs

104+ validators=(set mark)

105+ ==

106+ ::

107+ +$ update [p=time q=action]

108+ ::

109+ +$ logged-update [p=time q=logged-action]

110+ ::

111+ +$ logged-action

112+ $% [%add-graph =resource =graph mark=(unit mark) overwrite=?]

113+ [%add-nodes =resource nodes=(map index node)]

114+ [%remove-nodes =resource indices=(set index)]

115+ [%add-signatures =uid =signatures]

116+ [%remove-signatures =uid =signatures]

117+ ==

118+ ::

119+ +$ action

120+ $% logged-action

121+ [%remove-graph =resource]

122+ ::

123+ [%add-tag =term =resource]

124+ [%remove-tag =term =resource]

125+ ::

126+ [%archive-graph =resource]

127+ [%unarchive-graph =resource]

128+ [%run-updates =resource =update-log]

129+ ::

130+ :: NOTE: cannot be sent as pokes

131+ ::

132+ [%keys =resources]

133+ [%tags tags=(set term)]

134+ [%tag-queries =tag-queries]

135+ ==

136+ --

137+::

138+:: %graph-store types version 1

139+::

140+++ one

141+ =< [. post-one]

142+ =, post-one

143+ |%

144+ ++ orm ((on atom node) gth)

145+ ++ orm-log ((on time logged-update) gth)

146+ ::

147+ +$ graph ((mop atom node) gth)

148+ +$ marked-graph [p=graph q=(unit mark)]

149+ ::

150+ +$ node [=post children=internal-graph]

151+ +$ graphs (map resource marked-graph)

152+ ::

153+ +$ tag-queries (jug term resource)

154+ ::

155+ +$ update-log ((mop time logged-update) gth)

156+ +$ update-logs (map resource update-log)

157+ ::

158+ +$ internal-graph

159+ $~ [%empty ~]

160+ $% [%graph p=graph]

161+ [%empty ~]

162+ ==

163+ ::

164+ +$ network

165+ $: =graphs

166+ =tag-queries

167+ =update-logs

168+ archive=graphs

169+ validators=(set mark)

170+ ==

171+ ::

172+ +$ update [p=time q=action]

173+ ::

174+ +$ logged-update [p=time q=logged-action]

175+ ::

176+ +$ logged-action

177+ $% [%add-graph =resource =graph mark=(unit mark) overwrite=?]

178+ [%add-nodes =resource nodes=(map index node)]

179+ [%remove-nodes =resource indices=(set index)]

180+ [%add-signatures =uid =signatures]

181+ [%remove-signatures =uid =signatures]

182+ ==

183+ ::

184+ +$ action

185+ $% logged-action

186+ [%remove-graph =resource]

187+ ::

188+ [%add-tag =term =resource]

189+ [%remove-tag =term =resource]

190+ ::

191+ [%archive-graph =resource]

192+ [%unarchive-graph =resource]

193+ [%run-updates =resource =update-log]

194+ ::

195+ :: NOTE: cannot be sent as pokes

196+ ::

197+ [%keys =resources]

198+ [%tags tags=(set term)]

199+ [%tag-queries =tag-queries]

200+ ==

201+ --

202+::

203+:: %graph-store types version 0

204+::

205+++ zero

206+ =< [. post-zero]

207+ =, post-zero

208+ |%

209+ ++ orm ((ordered-map atom node) gth)

210+ ++ orm-log ((ordered-map time logged-update) gth)

211+ ::

212+ +$ graph ((mop atom node) gth)

213+ +$ marked-graph [p=graph q=(unit mark)]

214+ ::

215+ +$ node [=post children=internal-graph]

216+ +$ graphs (map resource marked-graph)

217+ ::

218+ +$ tag-queries (jug term resource)

219+ ::

220+ +$ update-log ((mop time logged-update) gth)

221+ +$ update-logs (map resource update-log)

222+ ::

223+ ::

224+ +$ internal-graph

225+ $~ [%empty ~]

226+ $% [%graph p=graph]

227+ [%empty ~]

228+ ==

229+ ::

230+ +$ network

231+ $: =graphs

232+ =tag-queries

233+ =update-logs

234+ archive=graphs

235+ validators=(set mark)

236+ ==

237+ ::

238+ +$ update

239+ $% [%0 p=time q=update-0]

240+ ==

241+ ::

242+ +$ logged-update

243+ $% [%0 p=time q=logged-update-0]

244+ ==

245+ ::

246+ +$ logged-update-0

247+ $% [%add-graph =resource =graph mark=(unit mark) overwrite=?]

248+ [%add-nodes =resource nodes=(map index node)]

249+ [%remove-nodes =resource indices=(set index)]

250+ [%add-signatures =uid =signatures]

251+ [%remove-signatures =uid =signatures]

252+ ==

253+ ::

254+ +$ update-0

255+ $% logged-update-0

256+ [%remove-graph =resource]

257+ ::

258+ [%add-tag =term =resource]

259+ [%remove-tag =term =resource]

260+ ::

261+ [%archive-graph =resource]

262+ [%unarchive-graph =resource]

263+ [%run-updates =resource =update-log]

264+ ::

265+ :: NOTE: cannot be sent as pokes

266+ ::

267+ [%keys =resources]

268+ [%tags tags=(set term)]

269+ [%tag-queries =tag-queries]

270+ ==

271+ --

272+--

zod/seax/sur/group-store.hoonnew file+39

@@ -0,0 +1,39 @@

1+/- *group, *resource

2+^?

3+|%

4+::

5+:: $action: request to change group-store state

6+::

7+:: %add-group: add a group

8+:: %add-members: add members to a group

9+:: %remove-members: remove members from a group

10+:: %add-tag: add a tag to a set of ships

11+:: %remove-tag: remove a tag from a set of ships

12+:: %change-policy: change a group's policy

13+:: %remove-group: remove a group from the store

14+:: %expose: unset .hidden flag

15+::

16++$ action

17+ $% [%add-group =resource =policy hidden=?]

18+ [%add-members =resource ships=(set ship)]

19+ [%remove-members =resource ships=(set ship)]

20+ [%add-tag =resource =tag ships=(set ship)]

21+ [%remove-tag =resource =tag ships=(set ship)]

22+ [%change-policy =resource =diff:policy]

23+ [%remove-group =resource ~]

24+ [%expose =resource ~]

25+ ==

26+:: $update: a description of a processed state change

27+::

28+:: %initial: describe groups upon new subscription

29+::

30++$ update

31+ $% initial

32+ action

33+ ==

34++$ initial

35+ $% [%initial-group =resource =group]

36+ [%initial =groups]

37+ ==

38+--

39+

zod/seax/sur/group.hoonnew file+109

@@ -0,0 +1,109 @@

1+/- *resource

2+::

3+^?

4+|%

5+::

6+++ groups-state-one

7+ |%

8+ +$ groups (map resource group)

9+ ::

10+ +$ tag $@(group-tag [app=term tag=term])

11+ ::

12+ +$ tags (jug tag ship)

13+ ::

14+ +$ group

15+ $: members=(set ship)

16+ =tags

17+ =policy

18+ hidden=?

19+ ==

20+ --

21+:: $groups: a mapping from group-ids to groups

22+::

23++$ groups (map resource group)

24+:: $group-tag: an identifier used by groups

25+::

26+:: These tags should have precise semantics, as they are shared across all

27+:: apps.

28+::

29++$ group-tag ?(role-tag)

30+:: $tag: an identifier used to identify a subset of members

31+::

32+:: Tags may be used and recognised differently across apps.

33+:: for example, you could use tags like `%author`, `%bot`, `%flagged`...

34+::

35++$ tag $@(group-tag [app=term =resource tag=term])

36+:: $role-tag: a kind of $group-tag that identifies a privileged user

37+::

38+:: These roles are

39+:: %admin: Administrator, can do everything except delete the group

40+:: %moderator: Moderator, can add/remove/ban users

41+:: %janitor: Has no special meaning inside group-store,

42+:: but may be given additional privileges in other apps.

43+::

44++$ role-tag

45+ ?(%admin %moderator %janitor)

46+:: $tags: a mapping from a $tag to the members it identifies

47+::

48++$ tags (jug tag ship)

49+:: $group: description of a group of users

50+::

51+:: .members: members of the group

52+:: .tag-queries: a map of tags to subsets of members

53+:: .policy: permissions for the group

54+:: .hidden: is group unmanaged

55++$ group

56+ $: members=(set ship)

57+ =tags

58+ =policy

59+ hidden=?

60+ ==

61+:: $policy: access control for a group

62+::

63+++ policy

64+ =< policy

65+ |%

66+ ::

67+ +$ policy

68+ $% invite

69+ open

70+ ==

71+ :: $diff: change group policy

72+ +$ diff

73+ $% [%invite diff:invite]

74+ [%open diff:open]

75+ [%replace =policy]

76+ ==

77+ :: $invite: allow only invited ships

78+ ++ invite

79+ =< invite-policy

80+ |%

81+ ::

82+ +$ invite-policy

83+ [%invite pending=(set ship)]

84+ :: $diff: add or remove invites

85+ ::

86+ +$ diff

87+ $% [%add-invites invitees=(set ship)]

88+ [%remove-invites invitees=(set ship)]

89+ ==

90+ --

91+ :: $open: allow all unbanned ships of approriate rank

92+ ::

93+ ++ open

94+ =< open-policy

95+ |%

96+ ::

97+ +$ open-policy

98+ [%open ban-ranks=(set rank:title) banned=(set ship)]

99+ :: $diff: ban or allow ranks and ships

100+ ::

101+ +$ diff

102+ $% [%allow-ranks ranks=(set rank:title)]

103+ [%ban-ranks ranks=(set rank:title)]

104+ [%ban-ships ships=(set ship)]

105+ [%allow-ships ships=(set ship)]

106+ ==

107+ --

108+ --

109+--

zod/seax/sur/groups.hoonnew file+364

@@ -0,0 +1,364 @@

1+/- meta, e=epic

2+/- old=group

3+/- grp=group-store

4+/- metadata-store

5+|%

6+++ okay `epic:e`2

7+++ mar

8+ |%

9+ ++ act `mark`(rap 3 %group-action '-' (scot %ud okay) ~)

10+ ++ upd `mark`(rap 3 %group-update '-' (scot %ud okay) ~)

11+ ++ log `mark`(rap 3 %group-log '-' (scot %ud okay) ~)

12+ ++ int `mark`(rap 3 %group-init '-' (scot %ud okay) ~)

13+ --

14+:: $flag: ID for a group

15+::

16++$ flag (pair ship term)

17+::

18+:: $nest: ID for a channel, {app}/{ship}/{name}

19+::

20++$ nest (pair dude:gall flag)

21+::

22+:: $sect: ID for cabal, similar to a role

23+::

24++$ sect term

25+::

26+:: $zone: channel grouping

27+::

28+:: includes its own metadata for display and keeps the order of

29+:: channels within.

30+::

31+:: zone: the term that represents the ID of a zone

32+:: realm: the metadata representing the zone and the order of channels

33+:: delta: the set of actions that can be taken on a zone

34+:: %add: create a zone

35+:: %del: delete the zone

36+:: %edit: modify the zone metadata

37+:: %mov: reorders the zone in the group

38+:: %mov-nest: reorders a channel within the zone

39+::

40+++ zone

41+ =< zone

42+ |%

43+ +$ zone @tas

44+ +$ realm

45+ $: met=data:meta

46+ ord=(list nest)

47+ ==

48+ +$ diff (pair zone delta)

49+ +$ delta

50+ $% [%add meta=data:meta]

51+ [%del ~]

52+ [%edit meta=data:meta]

53+ [%mov idx=@ud]

54+ [%mov-nest =nest idx=@ud]

55+ ==

56+ --

57+::

58+:: $fleet: group members and their associated metadata

59+::

60+:: vessel: a user's set of sects or roles and the time that they joined

61+:: @da default represents an admin added member that has yet to join

62+::

63+++ fleet

64+ =< fleet

65+ |%

66+ +$ fleet (map ship vessel)

67+ +$ vessel

68+ $: sects=(set sect)

69+ joined=time

70+ ==

71+ +$ diff

72+ $% [%add ~]

73+ [%del ~]

74+ [%add-sects sects=(set sect)]

75+ [%del-sects sects=(set sect)]

76+ ==

77+ --

78+::

79+:: $channel: a medium for interaction

80+::

81+++ channel

82+ =< channel

83+ |%

84+ +$ preview

85+ $: =nest

86+ meta=data:meta

87+ group=^preview

88+ ==

89+ ::

90+ +$ channels (map nest channel)

91+ ::

92+ :: $channel: a collection of metadata about a specific agent integration

93+ ::

94+ :: meta: title, description, image, cover

95+ :: added: when the channel was created

96+ :: zone: what zone or section to bucket in

97+ :: join: should the channel be joined by new members

98+ :: readers: what sects can see the channel, empty means anyone

99+ ::

100+ +$ channel

101+ $: meta=data:meta

102+ added=time

103+ =zone

104+ join=?

105+ readers=(set sect)

106+ ==

107+ ::

108+ :: $diff: represents the set of actions you can take on a channel

109+ ::

110+ :: add: create a channel

111+ :: edit: edit a channel

112+ :: del: delete a channel

113+ :: add-sects: add sects to readers

114+ :: del-sects: delete sects from readers

115+ :: zone: change the zone of the channel

116+ :: join: toggle default join

117+ ::

118+ +$ diff

119+ $% [%add =channel]

120+ [%edit =channel]

121+ [%del ~]

122+ ::

123+ [%add-sects sects=(set sect)]

124+ [%del-sects sects=(set sect)]

125+ ::

126+ [%zone =zone]

127+ ::

128+ [%join join=_|]

129+ ==

130+ --

131+::

132+:: $group: collection of people and the pathways in which they interact

133+::

134+:: group holds all data around members, permissions, channel

135+:: organization, and its own metadata to represent the group

136+::

137++$ group

138+ $: =fleet

139+ cabals=(map sect cabal)

140+ zones=(map zone realm:zone)

141+ zone-ord=(list zone)

142+ =bloc

143+ =channels:channel

144+ imported=(set nest)

145+ =cordon

146+ secret=?

147+ meta=data:meta

148+ ==

149+::

150++$ group-ui [group saga=(unit saga:e)]

151+:: $cabal: metadata representing a $sect or role

152+::

153+++ cabal

154+ =< cabal

155+ |%

156+ ::

157+ +$ cabal

158+ [meta=data:meta ~]

159+ ::

160+ +$ diff

161+ $% [%add meta=data:meta]

162+ [%edit meta=data:meta]

163+ [%del ~]

164+ ==

165+ --

166+::

167+:: $cordon: group entry and visibility permissions

168+::

169+++ cordon

170+ =< cordon

171+ |%

172+ ::

173+ :: $open: a group with open entry, only bans are barred entry

174+ ::

175+ ++ open

176+ |%

177+ :: $ban: set of ships and ranks/classes that are not allowed entry

178+ ::

179+ :: bans can either be done at the individual ship level or by the

180+ :: rank level (comet/moon/etc.)

181+ ::

182+ +$ ban [ships=(set ship) ranks=(set rank:title)]

183+ +$ diff

184+ $% [%add-ships p=(set ship)]

185+ [%del-ships p=(set ship)]

186+ ::

187+ [%add-ranks p=(set rank:title)]

188+ [%del-ranks p=(set rank:title)]

189+ ==

190+ --

191+ ::

192+ :: $shut: a group with closed entry, everyone barred entry

193+ ::

194+ :: a shut cordon means that the group is closed, but still visible.

195+ :: people may request entry and either be accepted or denied or

196+ :: they may be invited directly

197+ ::

198+ :: ask: represents those requesting entry

199+ :: pending: represents those who've been invited

200+ ::

201+ ++ shut

202+ |%

203+ +$ state [pend=(set ship) ask=(set ship)]

204+ +$ kind ?(%ask %pending)

205+ +$ diff

206+ $% [%add-ships p=kind q=(set ship)]

207+ [%del-ships p=kind q=(set ship)]

208+ ==

209+ --

210+ ::

211+ :: $cordon: a set of metadata to represent the entry policy for a group

212+ ::

213+ :: open: a group with open entry, only bans barred entry

214+ :: shut: a group with closed entry, everyone barred entry

215+ :: afar: a custom entry policy defined by another agent

216+ ::

217+ +$ cordon

218+ $% [%shut state:shut]

219+ [%afar =flag =path desc=@t]

220+ [%open =ban:open]

221+ ==

222+ ::

223+ :: $diff: the actions you can take on a cordon

224+ ::

225+ +$ diff

226+ $% [%shut p=diff:shut]

227+ [%open p=diff:open]

228+ [%swap p=cordon]

229+ ==

230+ --

231+::

232+:: $bloc: superuser sects

233+::

234+:: sects in the bloc set are allowed to make modifications to the group

235+:: and its various metadata and permissions

236+::

237+++ bloc

238+ =< bloc

239+ |%

240+ +$ bloc (set sect)

241+ +$ diff

242+ $% [%add p=(set sect)]

243+ [%del p=(set sect)]

244+ ==

245+ --

246+::

247+:: $diff: the general set of changes that can be made to a group

248+::

249++$ diff

250+ $% [%fleet p=(set ship) q=diff:fleet]

251+ [%cabal p=sect q=diff:cabal]

252+ [%channel p=nest q=diff:channel]

253+ [%bloc p=diff:bloc]

254+ [%cordon p=diff:cordon]

255+ [%zone p=diff:zone]

256+ [%meta p=data:meta]

257+ [%secret p=?]

258+ [%create p=group]

259+ [%del ~]

260+ ==

261+::

262+:: $action: the complete set of data required to edit a group

263+::

264++$ action

265+ (pair flag update)

266+::

267+:: $update: a representation in time of a modification of a group

268+::

269++$ update

270+ (pair time diff)

271+::

272+:: $create: a request to make a group

273+::

274++$ create

275+ $: name=term

276+ title=cord

277+ description=cord

278+ image=cord

279+ cover=cord

280+ =cordon

281+ members=(jug ship sect)

282+ secret=?

283+ ==

284+::

285++$ init [=time =group]

286+::

287+:: $groups-ui: map for frontend to display groups

288++$ groups-ui

289+ (map flag group-ui)

290++$ groups

291+ (map flag group)

292++$ net-groups

293+ (map flag [net group])

294+::

295+:: $log: a time ordered map of all modifications to groups

296+::

297++$ log

298+ ((mop time diff) lte)

299+::

300+++ log-on

301+ ((on time diff) lte)

302+::

303+:: $net: an indicator of whether I'm a host or subscriber

304+::

305++$ net

306+ $~ [%pub ~]

307+ $% [%pub p=log]

308+ [%sub p=time load=_| =saga:e]

309+ ==

310+::

311+:: $join: a join request, can elect to join all channels

312+::

313++$ join

314+ $: =flag

315+ join-all=?

316+ ==

317+::

318+:: $knock: a request to enter a closed group

319+::

320++$ knock flag

321+::

322+:: $progress: the state of a group join

323+::

324++$ progress

325+ ?(%knocking %adding %watching %done %error)

326+::

327+:: $claim: a mark for gangs to represent a join in progress

328+::

329++$ claim

330+ $: join-all=?

331+ =progress

332+ ==

333+::

334+:: $preview: the metadata and entry policy for a group

335+::

336++$ preview

337+ $: =flag

338+ meta=data:meta

339+ =cordon

340+ =time

341+ secret=?

342+ ==

343+::

344++$ previews (map flag preview)

345+::

346+:: $invite: a marker to show you've been invited to a group

347+::

348++$ invite (pair flag ship)

349+::

350+:: $gang: view of foreign group

351+::

352++$ gang

353+ $: cam=(unit claim)

354+ pev=(unit preview)

355+ vit=(unit invite)

356+ ==

357+::

358++$ gangs (map flag gang)

359+++ met metadata-store

360+::

361++$ import [self=association:met chan=(map flag =association:met) roles=(set flag) =group:old]

362+::

363++$ imports (map flag import)

364+--

zod/seax/sur/meta.hoonnew file+21

@@ -0,0 +1,21 @@

1+|%

2+:: $data: generic metadata for various entities

3+::

4+:: title: the pretty text representing what something is called

5+:: description: a longer text entry giving a detailed summary

6+:: image: an image URL or color string used as an icon/avatar

7+:: cover: an image URL or color string, used as a header

8+::

9++$ data

10+ $: title=cord

11+ description=cord

12+ image=cord

13+ cover=cord

14+ ==

15++$ diff

16+ $% [%title =cord]

17+ [%description =cord]

18+ [%image =cord]

19+ [%cover =cord]

20+ ==

21+--

zod/seax/sur/metadata-store.hoonnew file+138

@@ -0,0 +1,138 @@

1+/- *resource

2+^?

3+|%

4+::

5++$ app-name term

6++$ md-resource [=app-name =resource]

7++$ association [group=resource =metadatum]

8++$ associations (map md-resource association)

9++$ group-preview

10+ $: group=resource

11+ channels=associations

12+ members=@ud

13+ channel-count=@ud

14+ =metadatum

15+ ==

16+::

17++$ color @ux

18++$ url @t

19+::

20+:: $vip-metadata: variation in permissions

21+::

22+:: This will be passed to the graph-permissions mark

23+:: conversion to allow for custom permissions.

24+::

25+:: %reader-comments: Allow readers to comment, regardless

26+:: of whether they can write. (notebook, collections)

27+:: %member-metadata: Allow members to add channels (groups)

28+:: %host-feed: Only host can post to group feed

29+:: %admin-feed: Only admins and host can post to group feed

30+:: %$: No variation

31+::

32++$ vip-metadata

33+ $? %reader-comments

34+ %member-metadata

35+ %host-feed

36+ %admin-feed

37+ %$

38+ ==

39+::

40++$ md-config

41+ $~ [%empty ~]

42+ $% [%group feed=(unit (unit md-resource))]

43+ [%graph module=term]

44+ [%empty ~]

45+ ==

46+::

47++$ edit-field

48+ $% [%title title=cord]

49+ [%description description=cord]

50+ [%color color=@ux]

51+ [%picture =url]

52+ [%preview preview=?]

53+ [%hidden hidden=?]

54+ [%vip vip=vip-metadata]

55+ ==

56+::

57++$ metadatum

58+ $: title=cord

59+ description=cord

60+ =color

61+ date-created=time

62+ creator=ship

63+ config=md-config

64+ picture=url

65+ preview=?

66+ hidden=?

67+ vip=vip-metadata

68+ ==

69+::

70++$ action

71+ $% [%add group=resource resource=md-resource =metadatum]

72+ [%remove group=resource resource=md-resource]

73+ [%edit group=resource resource=md-resource =edit-field]

74+ [%initial-group group=resource =associations]

75+ ==

76+::

77++$ hook-update

78+ $% [%req-preview group=resource]

79+ [%preview group-preview]

80+ ==

81+::

82++$ update

83+ $% action

84+ [%associations =associations]

85+ $: %updated-metadata

86+ group=resource

87+ resource=md-resource

88+ before=metadatum

89+ =metadatum

90+ ==

91+ ==

92+:: historical

93+++ one

94+ |%

95+ ::

96+ +$ action

97+ $~ [%remove *resource *md-resource]

98+ $< %edit ^action

99+ ::

100+ +$ update

101+ $~ [%remove *resource *md-resource]

102+ $< %edit ^update

103+ ::

104+ --

105+++ zero

106+ |%

107+ ::

108+ +$ association [group=resource =metadatum]

109+ ::

110+ +$ associations (map md-resource association)

111+ ::

112+ +$ metadatum

113+ $: title=cord

114+ description=cord

115+ =color

116+ date-created=time

117+ creator=ship

118+ module=term

119+ picture=url

120+ preview=?

121+ vip=vip-metadata

122+ ==

123+ ::

124+ +$ update

125+ $% [%add group=resource resource=md-resource =metadatum]

126+ [%remove group=resource resource=md-resource]

127+ [%initial-group group=resource =associations]

128+ [%associations =associations]

129+ $: %updated-metadata

130+ group=resource

131+ resource=md-resource

132+ before=metadatum

133+ =metadatum

134+ ==

135+ ==

136+ ::

137+ --

138+--

zod/seax/sur/notes.hoonnew file+74

@@ -0,0 +1,74 @@

1+|%

2++$ diary

3+ $: *

4+ *

5+ *

6+ *

7+ *

8+ =notes

9+ *

10+ ==

11++$ seal

12+ $: =time

13+ * :: =quips

14+ * :: feels=(map ship feel)

15+ ==

16++$ note [seal essay]

17++$ verse

18+ $% [%block p=block]

19+ [%inline p=(list inline)]

20+ ==

21++$ listing

22+ $% [%list p=?(%ordered %unordered) q=(list listing) r=(list inline)]

23+ [%item p=(list inline)]

24+ ==

25++$ block

26+ $% [%image src=cord height=@ud width=@ud alt=cord]

27+ [%cite *] :: =cite:c]

28+ [%header p=?(%h1 %h2 %h3 %h4 %h5 %h6) q=(list inline)]

29+ [%listing p=listing]

30+ [%rule ~]

31+ [%code code=cord lang=cord]

32+ ==

33++$ inline

34+ $@ @t

35+ $% [%italics p=(list inline)]

36+ [%bold p=(list inline)]

37+ [%strike p=(list inline)]

38+ [%blockquote p=(list inline)]

39+ [%inline-code p=cord]

40+ [%ship p=ship]

41+ [%block p=@ud q=cord]

42+ [%code p=cord]

43+ [%tag p=cord]

44+ [%link p=cord q=cord]

45+ [%break ~]

46+ ==

47++$ essay

48+ $: title=@t

49+ image=@t

50+ content=(list verse)

51+ author=ship

52+ sent=time

53+ ==

54+++ notes

55+ =< rock

56+ |%

57+ +$ rock

58+ ((mop time note) lte)

59+ ++ on

60+ ((^on time note) lte)

61+ +$ diff

62+ (pair time delta)

63+ +$ delta

64+ $% [%add p=essay]

65+ [%edit p=essay]

66+ [%del ~]

67+ [%quips *] :: p=diff:quips]

68+ [%add-feel p=ship *] :: q=feel]

69+ [%del-feel p=ship]

70+ ==

71+ --

72++$ shelf (map flag diary)

73++$ flag (pair ship term)

74+--

zod/seax/sur/post.hoonnew file+91

@@ -0,0 +1,91 @@

1+/- *resource

2+|%

3++$ index (list atom)

4++$ uid [=resource =index]

5+::

6+:: +sham (half sha-256) hash of +validated-portion

7++$ hash @ux

8+::

9++$ signature [p=@ux q=ship r=life]

10++$ signatures (set signature)

11++$ post

12+ $: author=ship

13+ =index

14+ time-sent=time

15+ contents=(list content)

16+ hash=(unit hash)

17+ =signatures

18+ ==

19+::

20++$ indexed-post [a=atom p=post]

21+::

22++$ validated-portion

23+ $: parent-hash=(unit hash)

24+ author=ship

25+ time-sent=time

26+ contents=(list content)

27+ ==

28+::

29++$ reference

30+ $% [%graph group=resource =uid]

31+ [%group group=resource]

32+ [%app =ship =desk =path]

33+ ==

34+::

35++$ content

36+ $% [%text text=cord]

37+ [%mention =ship]

38+ [%url url=cord]

39+ [%code expression=cord output=(list tank)]

40+ [%reference =reference]

41+ ==

42+::

43+++ post-one

44+ |%

45+ ::

46+ +$ indexed-post [a=atom p=post]

47+ ::

48+ +$ post

49+ $: author=ship

50+ =index

51+ time-sent=time

52+ contents=(list content)

53+ hash=(unit hash)

54+ =signatures

55+ ==

56+ ::

57+ +$ content

58+ $% [%text text=cord]

59+ [%mention =ship]

60+ [%url url=cord]

61+ [%code expression=cord output=(list tank)]

62+ [%reference =reference]

63+ ==

64+ ::

65+ +$ reference

66+ $% [%graph group=resource =uid]

67+ [%group group=resource]

68+ ==

69+ --

70+::

71+++ post-zero

72+ |%

73+ ::

74+ +$ content

75+ $% [%text text=cord]

76+ [%mention =ship]

77+ [%url url=cord]

78+ [%code expression=cord output=(list tank)]

79+ [%reference =uid]

80+ ==

81+ ::

82+ +$ post

83+ $: author=ship

84+ =index

85+ time-sent=time

86+ contents=(list content)

87+ hash=(unit hash)

88+ =signatures

89+ ==

90+ --

91+--

zod/seax/sur/resource.hoonnew file+10

@@ -0,0 +1,10 @@

1+^?

2+|%

3++$ resource [=entity name=term]

4++$ resources (set resource)

5+::

6++$ entity

7+ $@ ship

8+ $% !!

9+ ==

10+--