@almadar/std 17.0.3 → 17.1.0

package/behaviors/lolo/dev/atoms/std-guest-session.lolo

@@ -7,6 +7,8 @@ app std-guest-session [
 ]
 ;; @capabilities "run a program chosen at run time as a live guest, paint it, forward its controls, close it"
 
+uses Marks from "std/behaviors/std-mock-seed-marks"
+
 type GuestProgram = { name : string, orbitals : [orbital] }
 type GuestPaint = { slot : string!, trait : string!, orbital : string?, embedded : boolean!, content : node? }
 type GuestMove = { trait : string!, event : string?, from : string!, to : string!, fired : boolean! }
@@ -14,9 +16,11 @@ type GuestOpened = { guest : string!, page : [string]!, route : string, rendered
 type GuestNavigated = { page : [string]!, route : string, rendered : [GuestPaint]!, outcomes : [GuestMove]! }
 type GuestStepped = { rendered : [GuestPaint]!, outcomes : [GuestMove]! }
 type GuestClosed = { closed : boolean! }
-type GuestMarkEntity = { collection : string }
-type GuestMarkOrbital = { auxiliaryEntities : [GuestMarkEntity] }
-type GuestMarkProgram = { orbitals : [GuestMarkOrbital] }
+type GuestPersonaOption = { id : string!, name : string }
+type GuestPersonasReply = { success : boolean, personas : [GuestPersonaOption] }
+type GuestAnswer = { status : number, body : string, subject : string, error : string }
+type GuestEmitted = { event : string!, payload : GuestAnswer? }
+type GuestAnswered = { emitted : [GuestEmitted]? }
 
 orbital GuestSessionOrbital {
   entity GuestRun [runtime] {
@@ -28,6 +32,14 @@ orbital GuestSessionOrbital {
     guestError : string = ""
     guestProgram : GuestProgram? @description "The program value being opened, held only until program/compose or program/open takes it: the entity rides every request a stateless host's client posts."
     guestSeed : behavior?
+    guestPersona : string @description "The persona the guest's session was last signed in as by a pick: an identity row id; empty until one is picked." = ""
+    guestPersonas : [GuestPersonaOption] @description "The personas the guest's std-dev-personas listed, shown by the stage as its picker." = []
+  }
+
+  trait GuestMarks = Marks.traits.MarksCheck {
+    listens {
+      GuestSession.GUEST_SEED_ASK -> MARKS_CHECK
+    }
   }
 
   trait GuestSession -> GuestRun {
@@ -46,6 +58,7 @@ orbital GuestSessionOrbital {
         (set @entity.guestPaints [])
         (emit GUEST_CLEARED {})
         (set @entity.guestProgram ?program)
+        (set @entity.guestPersona "")
         (emit GUEST_PREPARE {})
       GUEST_FAIL -> idle
         (emit GUEST_ERROR { message: ?message })
@@ -58,7 +71,10 @@ orbital GuestSessionOrbital {
       GUEST_CLOSE_FAILED -> idle
       GUEST_PREPARE -> idle
       GUEST_SEED_RESOLVED -> idle
+      GUEST_SEED_MARKED -> idle
+      GUEST_PERSONAS_RESOLVED -> idle
       GUEST_COMPOSED -> idle
+      GUEST_PERSONAS_ASK -> idle
     }
 
     state opening {
@@ -66,6 +82,7 @@ orbital GuestSessionOrbital {
       GUEST_OPEN -> opening
         (emit GUEST_CLEARED {})
         (set @entity.guestProgram ?program)
+        (set @entity.guestPersona "")
         (emit GUEST_PREPARE {})
       GUEST_OPENED -> live
         (set @entity.guestHandle ?result.guest)
@@ -74,6 +91,7 @@ orbital GuestSessionOrbital {
         (set @entity.guestPaints (array/reduce ?result.rendered [] (fn acc p (array/concat (array/filter @acc (fn q (or (!= @q.trait @p.trait) (!= @q.slot @p.slot)))) (array/filter [@p] (fn x (!= @x.content null)))))))
         (emit GUEST_PAINTS { guest: @entity.guestHandle, route: @entity.guestRoute, page: @entity.guestPage, paints: @entity.guestPaints })
         (emit GUEST_MOVED { guest: @entity.guestHandle, moves: ?result.outcomes })
+        (emit GUEST_PERSONAS_ASK {})
       GUEST_FAILED -> idle
         (emit GUEST_ERROR { message: ?error })
       GUEST_PREPARE -> opening when (= @entity.guestSeed null)
@@ -81,20 +99,30 @@ orbital GuestSessionOrbital {
       GUEST_SEED_RESOLVED -> opening
         (set @entity.guestSeed ?result)
         (emit GUEST_PREPARE {})
-      GUEST_PREPARE -> opening when (and (!= @entity.guestSeed null) (let ((marked (as @entity.guestProgram GuestMarkProgram))) (and (!= @marked null) (array/some (object/get @marked "orbitals" []) (fn o (array/some (object/get @o "auxiliaryEntities" []) (fn e (= (object/get @e "collection" "") "mock_seed_marks"))))))))
-        (program/open @entity.guestProgram { grants: { env: @config.guestEnv } } { emit: { success: GUEST_OPENED, failure: GUEST_FAILED } })
+      GUEST_PREPARE -> opening when (!= @entity.guestSeed null)
+        (emit GUEST_SEED_ASK { program: @entity.guestProgram })
+      GUEST_SEED_MARKED -> opening when @payload.marked
+        (program/open @entity.guestProgram { grants: { env: @config.guestEnv }, declared: true } { emit: { success: GUEST_OPENED, failure: GUEST_FAILED } })
+        (set @entity.guestProgram null)
+      GUEST_SEED_MARKED -> opening when (and (not @payload.marked) (!= @payload.personasCollection ""))
+        (behavior/resolve (behavior/apply { behavior: "std/behaviors/std-dev-personas", orbital: "DevPersonasOrbital" } { entity: "DevPersona", persistence: "persistent", collection: @payload.personasCollection, traits: { DevPersonas: { config: { autoSignIn: @payload.personasSignIn } } } }) {} { emit: { success: GUEST_PERSONAS_RESOLVED, failure: GUEST_FAILED } })
+      GUEST_PERSONAS_RESOLVED -> opening
+        (program/compose [@entity.guestProgram, @entity.guestSeed, ?result] { appName: (object/get (default @entity.guestProgram { name: "guest", orbitals: [] }) "name" "guest") } { emit: { success: GUEST_COMPOSED, failure: GUEST_FAILED } })
         (set @entity.guestProgram null)
-      GUEST_PREPARE -> opening when (and (!= @entity.guestSeed null) (not (let ((marked (as @entity.guestProgram GuestMarkProgram))) (and (!= @marked null) (array/some (object/get @marked "orbitals" []) (fn o (array/some (object/get @o "auxiliaryEntities" []) (fn e (= (object/get @e "collection" "") "mock_seed_marks")))))))))
+      GUEST_SEED_MARKED -> opening when (and (not @payload.marked) (= @payload.personasCollection ""))
         (program/compose [@entity.guestProgram, @entity.guestSeed] { appName: (object/get (default @entity.guestProgram { name: "guest", orbitals: [] }) "name" "guest") } { emit: { success: GUEST_COMPOSED, failure: GUEST_FAILED } })
         (set @entity.guestProgram null)
       GUEST_COMPOSED -> opening
-        (program/open ?result { grants: { env: @config.guestEnv } } { emit: { success: GUEST_OPENED, failure: GUEST_FAILED } })
+        (program/open ?result { grants: { env: @config.guestEnv }, declared: true } { emit: { success: GUEST_OPENED, failure: GUEST_FAILED } })
       GUEST_FAIL -> idle
         (emit GUEST_ERROR { message: ?message })
       GUEST_RESET -> idle
         (emit GUEST_CLEARED {})
       GUEST_CLOSED -> opening
       GUEST_CLOSE_FAILED -> opening
+      GUEST_PERSONAS_STEPPED -> opening
+      GUEST_PERSONAS_FAILED -> opening
+      GUEST_PERSONA_ACTED -> opening
     }
 
     state live {
@@ -105,6 +133,7 @@ orbital GuestSessionOrbital {
         (set @entity.guestPaints [])
         (emit GUEST_CLEARED {})
         (set @entity.guestProgram ?program)
+        (set @entity.guestPersona "")
         (emit GUEST_PREPARE {})
       GUEST_OPENED -> live
         (program/close @entity.guestHandle { emit: { success: GUEST_CLOSED, failure: GUEST_CLOSE_FAILED } })
@@ -114,11 +143,31 @@ orbital GuestSessionOrbital {
         (set @entity.guestPaints (array/reduce ?result.rendered [] (fn acc p (array/concat (array/filter @acc (fn q (or (!= @q.trait @p.trait) (!= @q.slot @p.slot)))) (array/filter [@p] (fn x (!= @x.content null)))))))
         (emit GUEST_PAINTS { guest: @entity.guestHandle, route: @entity.guestRoute, page: @entity.guestPage, paints: @entity.guestPaints })
         (emit GUEST_MOVED { guest: @entity.guestHandle, moves: ?result.outcomes })
+        (emit GUEST_PERSONAS_ASK {})
       GUEST_FAILED -> live
         (emit GUEST_NOTICE { message: ?error })
       GUEST_PREPARE -> live
       GUEST_SEED_RESOLVED -> live
+      GUEST_SEED_MARKED -> live
+      GUEST_PERSONAS_RESOLVED -> live
       GUEST_COMPOSED -> live
+      GUEST_PERSONAS_ASK -> live
+        (program/dispatch "PERSONAS_REQUESTED" {} { guest: @entity.guestHandle, emit: { success: GUEST_PERSONAS_STEPPED, failure: GUEST_PERSONAS_FAILED } })
+      GUEST_PERSONAS_STEPPED -> live
+        (set @entity.guestPersonas (default (object/get (default (json/parse (default (object/get (default (object/get (default (array/find (default ?result.emitted []) (fn e (= @e.event "PERSONAS_ANSWERED"))) {}) "payload") {}) "body") "") GuestPersonasReply) {}) "personas") []))
+        (emit GUEST_PERSONAS { guest: @entity.guestHandle, personas: @entity.guestPersonas, current: @entity.guestPersona })
+      GUEST_PERSONAS_FAILED -> live
+        (set @entity.guestPersonas [])
+        (emit GUEST_PERSONAS { guest: @entity.guestHandle, personas: [], current: @entity.guestPersona })
+      GUEST_PERSONA_PICK -> live when (= ?guest @entity.guestHandle)
+        (program/dispatch "PERSONA_ACT_AS" { persona: ?persona } { guest: ?guest, emit: { success: GUEST_PERSONA_ACTED, failure: GUEST_STEP_FAILED } })
+      GUEST_PERSONA_PICK -> live when (!= ?guest @entity.guestHandle)
+      GUEST_PERSONA_ACTED -> live when (array/some (default ?result.emitted []) (fn e (= @e.event "PERSONA_SIGNED_IN")))
+        (set @entity.guestPersona (default (object/get (default (object/get (default (array/find (default ?result.emitted []) (fn e (= @e.event "PERSONA_SIGNED_IN"))) {}) "payload") {}) "subject") ""))
+        (emit GUEST_PERSONAS { guest: @entity.guestHandle, personas: @entity.guestPersonas, current: @entity.guestPersona })
+        (program/dispatch "INIT" {} { guest: @entity.guestHandle, emit: { success: GUEST_STEPPED, failure: GUEST_STEP_FAILED } })
+      GUEST_PERSONA_ACTED -> live when (not (array/some (default ?result.emitted []) (fn e (= @e.event "PERSONA_SIGNED_IN"))))
+        (emit GUEST_NOTICE { message: (default (object/get (default (object/get (default (array/find (default ?result.emitted []) (fn e (= @e.event "PERSONA_SIGN_IN_REFUSED"))) {}) "payload") {}) "error") "The persona could not be signed in") })
       GUEST_SEND -> live when (= ?guest @entity.guestHandle)
         (program/dispatch ?address ?payload { guest: ?guest, emit: { success: GUEST_STEPPED, failure: GUEST_STEP_FAILED } })
       GUEST_SEND -> live when (!= ?guest @entity.guestHandle)
@@ -177,6 +226,12 @@ orbital GuestSessionOrbital {
         @description "A step of the guest failed, or a second guest could not replace the open one."
       GUEST_CLEARED -> external { }
         @description "The previous guest is gone: a new one is opening or the session was reset."
+      GUEST_PERSONAS -> external {
+        guest : string!
+        personas : [GuestPersonaOption]!
+        current : string!
+      }
+        @description "The development personas the open guest lists (its std-dev-personas answers PERSONAS_REQUESTED, which a program without one or outside the Auth emulator answers with none), and the persona picked as the guest's viewer; empty current while the default persona is."
       GUEST_OPENED {
         result : GuestOpened!
       }
@@ -202,6 +257,22 @@ orbital GuestSessionOrbital {
         error : string!
       }
       GUEST_PREPARE { }
+      GUEST_SEED_ASK {
+        program : GuestProgram?
+      }
+      GUEST_PERSONAS_ASK { }
+      GUEST_PERSONAS_STEPPED {
+        result : GuestAnswered!
+      }
+      GUEST_PERSONAS_FAILED {
+        error : string!
+      }
+      GUEST_PERSONA_ACTED {
+        result : GuestAnswered!
+      }
+      GUEST_PERSONAS_RESOLVED {
+        result : behavior!
+      }
       GUEST_SEED_RESOLVED {
         result : behavior!
       }
@@ -211,6 +282,19 @@ orbital GuestSessionOrbital {
     }
 
     listens {
+      GuestMarks.MARKS_CHECKED -> GUEST_SEED_MARKED
+      GUEST_SEED_MARKED {
+        marked : boolean!
+        personas : string!
+        personasCollection : string!
+        personasSignIn : string!
+      }
+      GuestStage.GUEST_PERSONA_PICK -> GUEST_PERSONA_PICK
+      GUEST_PERSONA_PICK {
+        guest : string!
+        persona : string!
+      }
+        @description "A persona was picked for the open guest: its session is signed in as that persona (PERSONA_ACT_AS into the guest's std-dev-personas), then every mounted trait of the guest runs its INIT again so its lists fetch as the new viewer."
       GUEST_OPEN -> input {
         program : GuestProgram!
       }
@@ -270,6 +354,10 @@ orbital GuestSessionOrbital {
         @label "Other slots painted"
         @description "The message before the list of slots the opened guest did paint."
         @tier "presentation"
+      personasLabel : string = "Viewing as"
+        @label "Personas label"
+        @description "The caption before the personas the guest lists, which the viewer picks to open the guest as that persona."
+        @tier "presentation"
     }
     initial: idle
 
@@ -288,8 +376,17 @@ orbital GuestSessionOrbital {
         (emit GUEST_SHOWN {})
       GUEST_NOTICE -> idle
         (notify error ?message)
+      GUEST_PERSONAS -> idle when (= ?guest @entity.guestHandle)
+        (set @entity.guestPersonas ?personas)
+        (set @entity.guestPersona ?current)
+        (emit GUEST_SHOWN {})
+      GUEST_PERSONAS -> idle when (!= ?guest @entity.guestHandle)
+      GUEST_PERSONA_CHOSEN -> idle when (and (!= @entity.guestHandle "") (!= @payload.id @entity.guestPersona))
+        (emit GUEST_PERSONA_PICK { guest: @entity.guestHandle, persona: @payload.id })
+      GUEST_PERSONA_CHOSEN -> idle when (or (= @entity.guestHandle "") (= @payload.id @entity.guestPersona))
       GUEST_CLEARED -> idle
         (set @entity.guestHandle "")
+        (set @entity.guestPersonas [])
         (set @entity.guestPaints [])
         (set @entity.guestPage [])
         (set @entity.guestRoute "")
@@ -302,7 +399,7 @@ orbital GuestSessionOrbital {
         (emit GUEST_NAVIGATE { guest: ?guest, route: ?route })
       GUEST_ROUTE -> idle when (!= ?guest @entity.guestHandle)
       GUEST_SHOWN -> idle
-        (render-ui main { type: box, className: @config.className, children: [
+        (render-ui main { type: box, className: @config.className, children: (array/concat (if (and (= @entity.guestError "") (> (array/len @entity.guestPersonas) 0)) [{ type: stack, direction: horizontal, gap: sm, align: center, children: (array/concat [{ type: typography, variant: caption, color: muted, content: @config.personasLabel }] (array/map @entity.guestPersonas (fn p { type: button, variant: (if (= (object/get @p "id" "") @entity.guestPersona) primary ghost), size: sm, label: (default (object/get @p "name") (object/get @p "id" "")), action: GUEST_PERSONA_CHOSEN, actionPayload: { id: (object/get @p "id" "") } }))) }] []) [
           (if (!= @entity.guestError "")
             { type: container, size: md, padding: lg, children: [(if (= @config.errorTitle "") { type: alert, variant: error, message: @entity.guestError } { type: alert, variant: error, title: @config.errorTitle, message: @entity.guestError })] }
             (let ((slotRoots (array/filter @entity.guestPaints (fn p (and (= @p.slot @config.slot) (= @p.embedded false) (array/includes @entity.guestPage @p.trait))))) (paint (array/first (array/filter @entity.guestPaints (fn p (and (= @p.slot @config.slot) (= @p.embedded false) (array/includes @entity.guestPage @p.trait)))))))
@@ -311,7 +408,7 @@ orbital GuestSessionOrbital {
                   { type: container, size: full, padding: md, children: [{ type: skeleton, variant: @config.pending, rows: @config.pendingRows }] }
                   { type: container, size: md, padding: lg, children: [{ type: alert, variant: info, title: @config.unpaintedTitle, message: (let ((roots (array/filter @entity.guestPaints (fn p (= @p.embedded false))))) (if (= (array/len @roots) 0) @config.unpaintedNothing (str/concat @config.unpaintedOthers (str/join (array/map @roots (fn p @p.slot)) ", ")))) }] })
                 { type: guest-view, guest: @entity.guestHandle, source: @paint.trait, deliver: GUEST_CONTROL, navigate: GUEST_ROUTE, route: @entity.guestRoute, paints: @entity.guestPaints, children: (array/map @slotRoots (fn p @p.content)) })))
-        ] })
+        ]) })
     }
 
     emits {
@@ -328,6 +425,11 @@ orbital GuestSessionOrbital {
         route : string!
       }
         @description "A link inside the guest was followed: the session opens that route in the guest."
+      GUEST_PERSONA_PICK -> external {
+        guest : string!
+        persona : string!
+      }
+        @description "A persona of the picker was chosen: the session signs the guest's session in as that persona and runs its pages again."
     }
 
     listens {
@@ -335,6 +437,16 @@ orbital GuestSessionOrbital {
       GuestSession.GUEST_ERROR -> GUEST_ERROR
       GuestSession.GUEST_NOTICE -> GUEST_NOTICE
       GuestSession.GUEST_CLEARED -> GUEST_CLEARED
+      GuestSession.GUEST_PERSONAS -> GUEST_PERSONAS
+      GUEST_PERSONAS {
+        guest : string!
+        personas : [GuestPersonaOption]!
+        current : string!
+      }
+      GUEST_PERSONA_CHOSEN {
+        id : string!
+      }
+        @description "The viewer chose a persona of the picker."
       GUEST_PAINTS {
         guest : string!
         route : string!
@@ -361,5 +473,5 @@ orbital GuestSessionOrbital {
     }
   }
 
-  page "/" as GuestSessionPage -> GuestSession, GuestStage
+  page "/" as GuestSessionPage -> GuestSession, GuestMarks, GuestStage
 }

package/behaviors/lolo/dev/atoms/std-mock-seed-marks.lolo

@@ -0,0 +1,66 @@
+app std-mock-seed-marks [
+  version: "1.0.0",
+  description: "std-mock-seed-marks — the one answer to whether a program already carries the mock-seed marks store. MARKS_CHECK { program } answers MARKS_CHECKED { marked }: true when an orbital of the program declares an auxiliary entity whose collection is mock_seed_marks (the MockSeedMark store of std-mock-seed, so the program already composes it), false for a program without one or no program. It also answers `personas`: the .lolo text (a `uses` and `orbital DevLogin`, no app header) that composes std-dev-personas onto the program's `[identity]` entity — a DevPersona entity over the identity entity's collection, signed in as the first declared value of the identity entity's role field — or empty when the program has no identity entity or a trait already handles PERSONA_ACT_AS, so the mock seeder can sign each owner in and the guest has a signed-in viewer. orb serve and the catalog guest session each ask it before composing std-mock-page-seed.",
+  egress: []
+]
+;; @capabilities "mock seed marks store present, program already composes std-mock-seed, seed once, dev personas composition text for the identity entity"
+
+type MarksField = { name : string, values : [string]? }
+type MarksEntity = { collection : string, identity : boolean?, fields : [MarksField]? }
+type MarksTransition = { event : string }
+type MarksMachine = { transitions : [MarksTransition] }
+type MarksTrait = { stateMachine : MarksMachine? }
+type MarksOrbital = { entity : MarksEntity?, auxiliaryEntities : [MarksEntity], traits : [MarksTrait]? }
+type MarksProgram = { orbitals : [MarksOrbital] }
+
+orbital MockSeedMarksOrbital {
+  entity MarksRun [runtime] {
+    id : string!
+  }
+
+  trait MarksCheck -> MarksRun [client] {
+    initial: ready
+
+    state ready {
+      INIT -> ready
+
+      MARKS_CHECK -> ready
+        (let ((p (as @payload.program MarksProgram)))
+          (let ((orbitals (object/get (default @p { orbitals: [] }) "orbitals" [])))
+            (let ((identity (array/find (array/map @orbitals (fn o (object/get @o "entity" null))) (fn e (and (!= @e null) (= (object/get @e "identity" false) true))))))
+              (let ((handled (array/some @orbitals (fn o (array/some (object/get @o "traits" []) (fn t (array/some (object/get (object/get @t "stateMachine" {}) "transitions" []) (fn x (= (object/get @x "event" "") "PERSONA_ACT_AS"))))))))
+                    (found (object/get (default @identity {}) "collection" ""))
+                    (roles (object/get (default (array/find (object/get (default @identity {}) "fields" []) (fn f (= (object/get @f "name" "") "role"))) {}) "values" [])))
+                (let ((collection (if (or (= @identity null) @handled) "" @found))
+                      (spec (default (array/first @roles) "")))
+                  (emit MARKS_CHECKED {
+                    marked: (and (!= @p null) (array/some @orbitals (fn o (array/some (object/get @o "auxiliaryEntities" []) (fn e (= (object/get @e "collection" "") "mock_seed_marks")))))),
+                    personasCollection: @collection,
+                    personasSignIn: (if (= @collection "") "" @spec),
+                    personas: (if (= @collection "") "" (str/concat "uses Personas from \"std/behaviors/std-dev-personas\"\norbital DevLogin = Personas.orbitals.DevPersonasOrbital {\n  entity DevPersona [persistent: " @collection "]\n  traits { DevPersonas { config { autoSignIn: " (json/stringify @spec) " } } }\n}\n"))
+                  }))))))
+    }
+
+    emits {
+      MARKS_CHECKED -> external {
+        marked : boolean!
+        personas : string!
+        personasCollection : string!
+        personasSignIn : string!
+      }
+        @description "Whether the asked program already declares the mock-seed marks store, and the .lolo text that composes std-dev-personas onto the program's [identity] entity (its `uses` and `orbital DevLogin`, no app header): linked to a DevPersona entity over the identity entity's collection, signing the session in as the first declared value of the identity entity's role field (an ALMADAR_PERSONA spec: an identity row id, else a role). Empty when the program declares no identity entity or a trait of it already handles PERSONA_ACT_AS. personasCollection and personasSignIn are the two facts the text is built from (the identity entity's collection and the autoSignIn spec), empty with it, for a host that composes the resolved std-dev-personas itself instead of reading text (a guest opens resolved programs only)."
+        @synonyms "program already seeds, marks store present"
+        @tier "primary"
+    }
+
+    listens {
+      MARKS_CHECK -> input {
+        program : MarksProgram?
+      }
+        @description "Ask whether this program already declares the mock-seed marks store."
+        @synonyms "already seeds, has mock seed marks"
+    }
+  }
+
+  page boot as MockSeedMarksStart -> MarksCheck
+}

package/behaviors/lolo/dev/organisms/std-behavior-playground.lolo

@@ -565,9 +565,12 @@ orbital BehaviorPlayground {
       PlaygroundStage.GUEST_RESET -> GUEST_RESET
       GuestStage.GUEST_SEND -> GUEST_SEND
       GuestStage.GUEST_NAVIGATE -> GUEST_NAVIGATE
+      GuestStage.GUEST_PERSONA_PICK -> GUEST_PERSONA_PICK
+      GuestMarks.MARKS_CHECKED -> GUEST_SEED_MARKED
     }
   }
 
+  trait GuestMarks = Guest.traits.GuestMarks {}
   trait GuestStage = Guest.traits.GuestStage {
     config {
       className: "h-full"
@@ -605,8 +608,8 @@ orbital BehaviorPlayground {
     }
   }
 
-  page "/" as PlaygroundPage -> PlaygroundFrame, PlaygroundTopics, PlaygroundStage, PlaygroundLoader, PlaygroundOpen, GuestSession, BehaviorCatalogData, BehaviorCatalogLlm, CatEmbedWait, CatEmbedRequest, CatEmbedHttp, PlaygroundMachine, PlaygroundOrbit, PlaygroundSource, PlaygroundStatus
-  page "/:package/:name" as PlaygroundBehaviorPage -> PlaygroundFrame, PlaygroundTopics, PlaygroundStage, PlaygroundLoader, PlaygroundOpen, GuestSession, BehaviorCatalogData, BehaviorCatalogLlm, CatEmbedWait, CatEmbedRequest, CatEmbedHttp, PlaygroundMachine, PlaygroundOrbit, PlaygroundSource, PlaygroundStatus, PlaygroundRoute
+  page "/" as PlaygroundPage -> PlaygroundFrame, PlaygroundTopics, PlaygroundStage, PlaygroundLoader, PlaygroundOpen, GuestSession, GuestMarks, BehaviorCatalogData, BehaviorCatalogLlm, CatEmbedWait, CatEmbedRequest, CatEmbedHttp, PlaygroundMachine, PlaygroundOrbit, PlaygroundSource, PlaygroundStatus
+  page "/:package/:name" as PlaygroundBehaviorPage -> PlaygroundFrame, PlaygroundTopics, PlaygroundStage, PlaygroundLoader, PlaygroundOpen, GuestSession, GuestMarks, BehaviorCatalogData, BehaviorCatalogLlm, CatEmbedWait, CatEmbedRequest, CatEmbedHttp, PlaygroundMachine, PlaygroundOrbit, PlaygroundSource, PlaygroundStatus, PlaygroundRoute
 }
 
 orbital NotFound = NotFound.orbitals.NotFoundOrbital {

package/behaviors/lolo/dev/organisms/std-launchpad.lolo

@@ -425,6 +425,7 @@ orbital Launchpad {
   trait PlaygroundLoader = Play.traits.PlaygroundLoader {}
   trait PlaygroundOpen = Play.traits.PlaygroundOpen {}
   trait GuestSession = Play.traits.GuestSession {}
+  trait GuestMarks = Play.traits.GuestMarks {}
   trait GuestStage = Play.traits.GuestStage {}
   trait BehaviorCatalogData = Play.traits.BehaviorCatalogData {
     config {
@@ -1083,9 +1084,9 @@ orbital Launchpad {
   trait ResolveLmRequest = Match.traits.ResolveLmRequest {}
   trait ResolveLmHttp = Match.traits.ResolveLmHttp {}
 
-  page "/" as LaunchpadPage -> LaunchpadFrame, LaunchpadTheme, LaunchpadHeader, LaunchpadLive, LaunchpadTrace, LaunchpadSource, LaunchpadRail, LaunchpadStage, LaunchpadHome, RecentsStore, SystemOrb, SystemStatsMeter, OrbStatsReader, OrbVersionRunner, OrbUptimeRunner, UpdatesStore, UpdateRecord, UpdatesCli, UpdatesBanner, CiStatus, CiBoard, CiDetail, CiGithub, CiGhHttp, CiGhTimeout, CiRetry, AwsStatus, AwsCli, AwsView, CiRunLogs, CiLogsGh, AppHostingStatus, AhToken, AhGcloud, AhView, CloudRunStatus, CrToken, CrGcloud, CrBq, CloudRunView, TrainingStatus, TrAws, TrSsh, TrainingView, LlmSpend, LlmSpendView, LsOrHttp, LsDsHttp, LsKmHttp, LsTraceHttp, LsTimeout, AnalyticsBoard, AnalyticsBoardStats, AnalyticsBoardToken, PlaygroundFrame, PlaygroundTopics, PlaygroundStage, PlaygroundLoader, PlaygroundOpen, GuestSession, BehaviorCatalogData, BehaviorCatalogLlm, CatEmbedWait, CatEmbedRequest, CatEmbedHttp, PlaygroundMachine, PlaygroundOrbit, PlaygroundSource, PlaygroundStatus, AhApi, CrMonitoring
-  page "/:query" as LaunchpadFindPage -> LaunchpadFrame, LaunchpadTheme, LaunchpadHeader, LaunchpadLive, LaunchpadTrace, LaunchpadSource, LaunchpadRail, LaunchpadStage, LaunchpadHome, RecentsStore, SystemOrb, SystemStatsMeter, OrbStatsReader, OrbVersionRunner, OrbUptimeRunner, UpdatesStore, UpdateRecord, UpdatesCli, UpdatesBanner, CiStatus, CiBoard, CiDetail, CiGithub, CiGhHttp, CiGhTimeout, CiRetry, AwsStatus, AwsCli, AwsView, CiRunLogs, CiLogsGh, AppHostingStatus, AhToken, AhGcloud, AhView, CloudRunStatus, CrToken, CrGcloud, CrBq, CloudRunView, TrainingStatus, TrAws, TrSsh, TrainingView, LlmSpend, LlmSpendView, LsOrHttp, LsDsHttp, LsKmHttp, LsTraceHttp, LsTimeout, AnalyticsBoard, AnalyticsBoardStats, AnalyticsBoardToken, PlaygroundFrame, PlaygroundTopics, PlaygroundStage, PlaygroundLoader, PlaygroundOpen, GuestSession, BehaviorCatalogData, BehaviorCatalogLlm, CatEmbedWait, CatEmbedRequest, CatEmbedHttp, PlaygroundMachine, PlaygroundOrbit, PlaygroundSource, PlaygroundStatus, AhApi, CrMonitoring, LaunchpadFind, FindMatch, MatchGate, FindSources, VectorResolve, ResolveStore, ResolveWrite, ResolveQuantize, ResolveF32, ResolveSig6, ResolveBigCmp, ResolveDelay, ResolveLlmOrShared, ResolveLlmOrOwn, ResolveLlmOaShared, ResolveLlmOaOwn, ResolveLlmLm, ResolveOrSharedWait, ResolveOrSharedRequest, ResolveOrSharedHttp, ResolveOrOwnWait, ResolveOrOwnRequest, ResolveOrOwnHttp, ResolveOaSharedWait, ResolveOaSharedRequest, ResolveOaSharedHttp, ResolveOaOwnWait, ResolveOaOwnRequest, ResolveOaOwnHttp, ResolveLmWait, ResolveLmRequest, ResolveLmHttp
-  page "/:package/:name" as LaunchpadBehaviorPage -> LaunchpadFrame, LaunchpadTheme, LaunchpadHeader, LaunchpadLive, LaunchpadTrace, LaunchpadSource, LaunchpadRail, LaunchpadStage, LaunchpadHome, RecentsStore, SystemOrb, SystemStatsMeter, OrbStatsReader, OrbVersionRunner, OrbUptimeRunner, UpdatesStore, UpdateRecord, UpdatesCli, UpdatesBanner, CiStatus, CiBoard, CiDetail, CiGithub, CiGhHttp, CiGhTimeout, CiRetry, AwsStatus, AwsCli, AwsView, CiRunLogs, CiLogsGh, AppHostingStatus, AhToken, AhGcloud, AhView, CloudRunStatus, CrToken, CrGcloud, CrBq, CloudRunView, TrainingStatus, TrAws, TrSsh, TrainingView, LlmSpend, LlmSpendView, LsOrHttp, LsDsHttp, LsKmHttp, LsTraceHttp, LsTimeout, AnalyticsBoard, AnalyticsBoardStats, AnalyticsBoardToken, PlaygroundFrame, PlaygroundTopics, PlaygroundStage, PlaygroundLoader, PlaygroundOpen, GuestSession, BehaviorCatalogData, BehaviorCatalogLlm, CatEmbedWait, CatEmbedRequest, CatEmbedHttp, PlaygroundMachine, PlaygroundOrbit, PlaygroundSource, PlaygroundStatus, AhApi, CrMonitoring, PlaygroundRoute, LaunchpadBehaviorRoute
+  page "/" as LaunchpadPage -> LaunchpadFrame, LaunchpadTheme, LaunchpadHeader, LaunchpadLive, LaunchpadTrace, LaunchpadSource, LaunchpadRail, LaunchpadStage, LaunchpadHome, RecentsStore, SystemOrb, SystemStatsMeter, OrbStatsReader, OrbVersionRunner, OrbUptimeRunner, UpdatesStore, UpdateRecord, UpdatesCli, UpdatesBanner, CiStatus, CiBoard, CiDetail, CiGithub, CiGhHttp, CiGhTimeout, CiRetry, AwsStatus, AwsCli, AwsView, CiRunLogs, CiLogsGh, AppHostingStatus, AhToken, AhGcloud, AhView, CloudRunStatus, CrToken, CrGcloud, CrBq, CloudRunView, TrainingStatus, TrAws, TrSsh, TrainingView, LlmSpend, LlmSpendView, LsOrHttp, LsDsHttp, LsKmHttp, LsTraceHttp, LsTimeout, AnalyticsBoard, AnalyticsBoardStats, AnalyticsBoardToken, PlaygroundFrame, PlaygroundTopics, PlaygroundStage, PlaygroundLoader, PlaygroundOpen, GuestSession, GuestMarks, BehaviorCatalogData, BehaviorCatalogLlm, CatEmbedWait, CatEmbedRequest, CatEmbedHttp, PlaygroundMachine, PlaygroundOrbit, PlaygroundSource, PlaygroundStatus, AhApi, CrMonitoring
+  page "/:query" as LaunchpadFindPage -> LaunchpadFrame, LaunchpadTheme, LaunchpadHeader, LaunchpadLive, LaunchpadTrace, LaunchpadSource, LaunchpadRail, LaunchpadStage, LaunchpadHome, RecentsStore, SystemOrb, SystemStatsMeter, OrbStatsReader, OrbVersionRunner, OrbUptimeRunner, UpdatesStore, UpdateRecord, UpdatesCli, UpdatesBanner, CiStatus, CiBoard, CiDetail, CiGithub, CiGhHttp, CiGhTimeout, CiRetry, AwsStatus, AwsCli, AwsView, CiRunLogs, CiLogsGh, AppHostingStatus, AhToken, AhGcloud, AhView, CloudRunStatus, CrToken, CrGcloud, CrBq, CloudRunView, TrainingStatus, TrAws, TrSsh, TrainingView, LlmSpend, LlmSpendView, LsOrHttp, LsDsHttp, LsKmHttp, LsTraceHttp, LsTimeout, AnalyticsBoard, AnalyticsBoardStats, AnalyticsBoardToken, PlaygroundFrame, PlaygroundTopics, PlaygroundStage, PlaygroundLoader, PlaygroundOpen, GuestSession, GuestMarks, BehaviorCatalogData, BehaviorCatalogLlm, CatEmbedWait, CatEmbedRequest, CatEmbedHttp, PlaygroundMachine, PlaygroundOrbit, PlaygroundSource, PlaygroundStatus, AhApi, CrMonitoring, LaunchpadFind, FindMatch, MatchGate, FindSources, VectorResolve, ResolveStore, ResolveWrite, ResolveQuantize, ResolveF32, ResolveSig6, ResolveBigCmp, ResolveDelay, ResolveLlmOrShared, ResolveLlmOrOwn, ResolveLlmOaShared, ResolveLlmOaOwn, ResolveLlmLm, ResolveOrSharedWait, ResolveOrSharedRequest, ResolveOrSharedHttp, ResolveOrOwnWait, ResolveOrOwnRequest, ResolveOrOwnHttp, ResolveOaSharedWait, ResolveOaSharedRequest, ResolveOaSharedHttp, ResolveOaOwnWait, ResolveOaOwnRequest, ResolveOaOwnHttp, ResolveLmWait, ResolveLmRequest, ResolveLmHttp
+  page "/:package/:name" as LaunchpadBehaviorPage -> LaunchpadFrame, LaunchpadTheme, LaunchpadHeader, LaunchpadLive, LaunchpadTrace, LaunchpadSource, LaunchpadRail, LaunchpadStage, LaunchpadHome, RecentsStore, SystemOrb, SystemStatsMeter, OrbStatsReader, OrbVersionRunner, OrbUptimeRunner, UpdatesStore, UpdateRecord, UpdatesCli, UpdatesBanner, CiStatus, CiBoard, CiDetail, CiGithub, CiGhHttp, CiGhTimeout, CiRetry, AwsStatus, AwsCli, AwsView, CiRunLogs, CiLogsGh, AppHostingStatus, AhToken, AhGcloud, AhView, CloudRunStatus, CrToken, CrGcloud, CrBq, CloudRunView, TrainingStatus, TrAws, TrSsh, TrainingView, LlmSpend, LlmSpendView, LsOrHttp, LsDsHttp, LsKmHttp, LsTraceHttp, LsTimeout, AnalyticsBoard, AnalyticsBoardStats, AnalyticsBoardToken, PlaygroundFrame, PlaygroundTopics, PlaygroundStage, PlaygroundLoader, PlaygroundOpen, GuestSession, GuestMarks, BehaviorCatalogData, BehaviorCatalogLlm, CatEmbedWait, CatEmbedRequest, CatEmbedHttp, PlaygroundMachine, PlaygroundOrbit, PlaygroundSource, PlaygroundStatus, AhApi, CrMonitoring, PlaygroundRoute, LaunchpadBehaviorRoute
 }
 
 orbital NotFound = NotFound.orbitals.NotFoundOrbital {