summaryrefslogtreecommitdiff
path: root/app/zodiac.hoon
diff options
context:
space:
mode:
authorpolwex <polwex@sortug.com>2025-06-22 23:11:11 +0700
committerpolwex <polwex@sortug.com>2025-06-22 23:11:11 +0700
commit6fb80b2d94a5282c8350278e299bfcb2d0b60d40 (patch)
treebe85636f67322948181bf59519dfe998f7d7b6b1 /app/zodiac.hoon
parent4e2a84761b95a29c02c77c575810ab49f2af7335 (diff)
Diffstat (limited to 'app/zodiac.hoon')
-rw-r--r--app/zodiac.hoon86
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
---