diff options
author | polwex <polwex@sortug.com> | 2025-06-22 23:11:11 +0700 |
---|---|---|
committer | polwex <polwex@sortug.com> | 2025-06-22 23:11:11 +0700 |
commit | 6fb80b2d94a5282c8350278e299bfcb2d0b60d40 (patch) | |
tree | be85636f67322948181bf59519dfe998f7d7b6b1 /app/zodiac.hoon | |
parent | 4e2a84761b95a29c02c77c575810ab49f2af7335 (diff) |
Diffstat (limited to 'app/zodiac.hoon')
-rw-r--r-- | app/zodiac.hoon | 86 |
1 files changed, 0 insertions, 86 deletions
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 --- |