From 6fb80b2d94a5282c8350278e299bfcb2d0b60d40 Mon Sep 17 00:00:00 2001 From: polwex Date: Sun, 22 Jun 2025 23:11:11 +0700 Subject: m --- app/neyre.hoon | 81 +++++++++++++++++++++++++++++++++++++++++++++++++++++ app/zodiac.hoon | 86 --------------------------------------------------------- 2 files changed, 81 insertions(+), 86 deletions(-) create mode 100644 app/neyre.hoon delete mode 100644 app/zodiac.hoon (limited to 'app') diff --git a/app/neyre.hoon b/app/neyre.hoon new file mode 100644 index 0000000..e8f2c17 --- /dev/null +++ b/app/neyre.hoon @@ -0,0 +1,81 @@ +/- *neyre, coki +/+ dbug, cokil=coki +/= router /web/router +=| sessions:coki +=* sessions - +=| versioned-state +=* state - +%- agent:dbug +^- agent:gall +|_ =bowl:gall ++* this . + cokilib ~(. cokil [sessions bowl]) +++ on-init + ^- (quip card:agent:gall agent:gall) + :_ this + =/ weblib router(bowl bowl) + =/ weblib2 weblib(base-path /) + :~ (eyre-binding-card:weblib2 /) + (eyre-binding-card:weblib2 /[dap.bowl]) + == +:: +++ on-save + ^- vase + !>(state) +:: +++ on-load + |~ old-state=vase + ^- (quip card:agent:gall agent:gall) + =/ vs !<(versioned-state old-state) + ~& vs=vs + =. state + ?- -.vs + %0 vs + == + `this +:: +++ on-poke + |= [=mark =vase] + ^- (quip card:agent:gall agent:gall) + ?+ mark `this + %coki =^ cards sessions (handle-self-poke:cokilib !<(self-poke:coki vase)) + [cards this] + %handle-http-request + ~& "handling http" + =/ order !<([id=@ta req=inbound-request:eyre] vase) + =/ weblib ~(. router [bowl id.order req.order state sessions]) + =/ weblib2 weblib(base-path /) + :- route:weblib2 this + %noun ~& > s=sessions `this + == +:: +++ on-watch + |~ path + ^- (quip card:agent:gall agent:gall) + `this +:: +++ on-leave + |~ path + ^- (quip card:agent:gall agent:gall) + `this +:: +++ on-peek + |~ path + ^- (unit (unit cage)) + ~ +:: +++ on-agent + |~ [wire sign:agent:gall] + ^- (quip card:agent:gall agent:gall) + `this +:: +++ on-arvo + |~ [wire =sign-arvo] + ^- (quip card:agent:gall agent:gall) + `this +:: +++ on-fail + |~ [term tang] + ^- (quip card:agent:gall agent:gall) + `this +-- diff --git a/app/zodiac.hoon b/app/zodiac.hoon deleted file mode 100644 index 0718da1..0000000 --- a/app/zodiac.hoon +++ /dev/null @@ -1,86 +0,0 @@ -/- *zodiac -/+ dbug, metamask -/= router /web/router -=| versioned-state -=* state - -%- agent:dbug -^- agent:gall -|_ =bowl:gall -+* this . - metalib ~(. metamask [sessions.state bowl]) -++ on-init - ^- (quip card:agent:gall agent:gall) - :_ this - =/ weblib router(bowl bowl) - :~((eyre-binding-card:weblib /zodiac)) -:: -++ on-save - ^- vase - !>(state) -:: -++ on-load - |~ old-state=vase - ^- (quip card:agent:gall agent:gall) - =/ vs !<(versioned-state old-state) - ~& vs=vs - =. state - ?- -.vs - %0 vs - == - `this -:: -++ on-poke - |= [=mark =vase] - ^- (quip card:agent:gall agent:gall) - |^ - ?+ mark `this - %noun (on-poke-noun !<(* vase)) - %handle-http-request - =/ order !<([id=@ta req=inbound-request:eyre] vase) - =/ weblib ~(. router [bowl id.order req.order state]) - :- route:weblib this - == - ++ on-poke-noun |= a=* - ?: ?= [%logout @ @] a - ~& "loggingout" - =^ cards sessions.state (handle-logout:metalib +.a) - [cards this] - - =. sessions.state - ?+ a sessions.state - [%meta @t] (handle-meta:metalib +.a) - [%auth @p @ @uv] (handle-auth:metalib +.a) - == - `this - -- -:: -++ on-watch - |~ path - ^- (quip card:agent:gall agent:gall) - `this -:: -++ on-leave - |~ path - ^- (quip card:agent:gall agent:gall) - `this -:: -++ on-peek - |~ path - ^- (unit (unit cage)) - ~ -:: -++ on-agent - |~ [wire sign:agent:gall] - ^- (quip card:agent:gall agent:gall) - `this -:: -++ on-arvo - |~ [wire =sign-arvo] - ^- (quip card:agent:gall agent:gall) - `this -:: -++ on-fail - |~ [term tang] - ^- (quip card:agent:gall agent:gall) - `this --- -- cgit v1.2.3