@almadar/std 16.183.0 → 16.184.0

package/behaviors/lolo/ui/core/.hand-authored.json

@@ -151,6 +151,10 @@
     "signature": "a923f3042436663f",
     "board": "packages/almadar-std/behaviors/lolo/ui/core/atoms/std-thread.lolo"
   },
+  "std-tree": {
+    "signature": "",
+    "board": "packages/almadar-std/behaviors/lolo/ui/core/atoms/std-tree.lolo"
+  },
   "std-version-history": {
     "signature": "1f1eb4fcabd6cead",
     "board": "packages/almadar-std/behaviors/lolo/ui/core/atoms/std-version-history.lolo"

package/behaviors/lolo/ui/core/atoms/std-browse.lolo

@@ -84,6 +84,7 @@ orbital BrowseItemOrbital {
         (fetch BrowseItem {
           emit: { failure: BrowseItemLoadFailed, success: BrowseItemLoaded }
           filter: (and (or ["=", @config.scopeField, ""] ["=", (object/get @entity @config.scopeField), @user.id]) (or ["=", @config.initialFilterField, ""] ["=", (object/get @entity @config.initialFilterField), @config.initialFilterValue]))
+          include: @config.include
           limit: @config.pageSize
           offset: 0
         })
@@ -113,6 +114,7 @@ orbital BrowseItemOrbital {
         (fetch BrowseItem {
           emit: { failure: BrowseItemLoadFailed, success: BrowseItemLoaded }
           filter: (and (or ["=", @config.scopeField, ""] ["=", (object/get @entity @config.scopeField), @user.id]) (or ["=", @config.initialFilterField, ""] ["=", (object/get @entity @config.initialFilterField), @config.initialFilterValue]))
+          include: @config.include
           limit: @config.pageSize
           offset: 0
         })
@@ -126,6 +128,7 @@ orbital BrowseItemOrbital {
         (fetch BrowseItem {
           emit: { failure: BrowseItemLoadFailed, success: BrowseItemLoaded }
           filter: (and (or ["=", @config.scopeField, ""] ["=", (object/get @entity @config.scopeField), @user.id]) (or ["=", ?searchTerm, ""] (str/includes (object/get @entity name) ?searchTerm)))
+          include: @config.include
           limit: @config.pageSize
           offset: 0
         })
@@ -133,6 +136,7 @@ orbital BrowseItemOrbital {
         (fetch BrowseItem {
           emit: { failure: BrowseItemLoadFailed, success: BrowseItemLoaded }
           filter: (and (or ["=", @config.scopeField, ""] ["=", (object/get @entity @config.scopeField), @user.id]) (or ["=", ?value, ""] ["=", (object/get @entity ?field), ?value]))
+          include: @config.include
           limit: @config.pageSize
           offset: 0
         })
@@ -140,6 +144,7 @@ orbital BrowseItemOrbital {
         (fetch BrowseItem {
           emit: { failure: BrowseItemLoadFailed, success: BrowseItemLoaded }
           filter: (or ["=", @config.scopeField, ""] ["=", (object/get @entity @config.scopeField), @user.id])
+          include: @config.include
           limit: @config.pageSize
           offset: ["*", ["-", ?page, 1], @config.pageSize]
         })
@@ -170,6 +175,7 @@ orbital BrowseItemOrbital {
         (fetch BrowseItem {
           emit: { failure: BrowseItemLoadFailed, success: BrowseItemLoaded }
           filter: (and (or ["=", @config.scopeField, ""] ["=", (object/get @entity @config.scopeField), @user.id]) (or ["=", @config.initialFilterField, ""] ["=", (object/get @entity @config.initialFilterField), @config.initialFilterValue]))
+          include: @config.include
           limit: @config.pageSize
           offset: 0
         })
@@ -346,6 +352,11 @@ orbital BrowseItemOrbital {
         @description "Rows visible per page before the pagination control appears."
         @synonyms "visible rows, items per page, display limit, show per page"
         @tier "presentation"
+      include : [string] = []
+        @label "Which relation fields to hydrate?"
+        @description "Entity relation field names to hydrate on fetch (e.g. a `tag : Category` field named `tag`), so grid columns can use dot-paths like tag.name. Empty = no hydration, the default."
+        @synonyms "relation hydration, populate relations, joined fields, hydrate relations"
+        @tier "internal"
       filters : [FilterSpec] = []
         @label "Which filters should appear above the list?"
         @description "Dropdown filter facets by field. Each fires a refetch when the user changes the selection. Empty = no filter bar."

package/behaviors/lolo/ui/core/atoms/std-related.lolo

@@ -1,18 +1,24 @@
-app std-related "1.0.0"
+app std-related "1.1.0"
 "std-related as a Function"
 ;;
-;; Relation-rendering atom. Assumes the linked entity's relation field has
-;; already been hydrated by an upstream fetch with include; this atom only
-;; owns the rendering of the related children.
+;; Relation-rendering atom. INIT loads the full RelatedItem collection
+;; unfiltered (unchanged default). A consumer that wants the list scoped to
+;; one parent document sets `relationField` (the RelatedItem column that
+;; holds the parent key) and redirects its own "document opened" signal to
+;; SHOW_RELATED { key } in a `listens` override — the atom then fetches only
+;; rows whose relationField equals key. Each row is clickable: it emits
+;; SELECT_RELATED { id, name } for a parent molecule (e.g.
+;; std-related-master-detail) to drive a detail panel.
 ;;
 ;; Paired with std-browse via @trait.X this gives a one-line master-detail
-;; layout: hstack [ @trait.ParentList, @trait.ParentRelated ]. The molecule
-;; std-related-master-detail is the canonical showcase.
+;; layout: hstack [ @trait.ParentList, @trait.ParentRelated ].
 orbital RelatedItemOrbital {
     type RelatedItemLoaded = Event { data : [RelatedItem] } "Fired when RelatedItem finishes loading; payload.data holds the list"
 
     type RelatedItemLoadFailed = Event { error : string, code : string } "Fired when RelatedItem fails to load"
 
+    type ShowRelated = Event { key : string! } "Fired to scope the related fetch to rows whose relationField equals key"
+
   entity RelatedItem [persistent: relateditems] {
     id : string!
     name : string @description "The identifier or designation for the related item." @synonyms "title, label, identifier"
@@ -39,12 +45,30 @@ orbital RelatedItemOrbital {
           gap: sm
           type: stack
         })
+      SHOW_RELATED -> loading
+        (fetch RelatedItem {
+          emit: { failure: RelatedItemLoadFailed, success: RelatedItemLoaded }
+          filter: (or ["=", @config.relationField, ""] ["=", (object/get @entity @config.relationField), ?key])
+        })
+        (render-ui main {
+          align: center
+          children: [{ type: spinner }, {
+            color: muted
+            content: "Loading related…"
+            type: typography
+            variant: caption
+          }]
+          className: py-8
+          direction: vertical
+          gap: sm
+          type: stack
+        })
       RelatedItemLoaded -> loaded
         (render-ui main {
           children: [{
             align: center
             children: [{ name: link, type: icon }, {
-              content: Related
+              content: @config.title
               type: typography
               variant: h3
             }]
@@ -56,13 +80,23 @@ orbital RelatedItemOrbital {
             fields: []
             look: @config.tableLook
             renderItem: (fn item {
+              align: center
               children: [{
                 content: @item.name
                 type: typography
                 variant: body
+              }, {
+                action: SELECT_RELATED
+                actionPayload: { id: @item.id, name: @item.name }
+                icon: chevron-right
+                label: Open
+                size: sm
+                type: button
+                variant: ghost
               }]
-              direction: vertical
+              direction: horizontal
               gap: xs
+              justify: between
               type: stack
             })
             type: data-list
@@ -107,6 +141,14 @@ orbital RelatedItemOrbital {
           emit: { failure: RelatedItemLoadFailed, success: RelatedItemLoaded }
         })
         (render-ui main { type: spinner })
+      SELECT_RELATED -> loaded
+        (set @entity.id ?id)
+      SHOW_RELATED -> loading
+        (fetch RelatedItem {
+          emit: { failure: RelatedItemLoadFailed, success: RelatedItemLoaded }
+          filter: (or ["=", @config.relationField, ""] ["=", (object/get @entity @config.relationField), ?key])
+        })
+        (render-ui main { type: spinner })
     }
 
     state error {
@@ -122,6 +164,12 @@ orbital RelatedItemOrbital {
           emit: { failure: RelatedItemLoadFailed, success: RelatedItemLoaded }
         })
         (render-ui main { type: spinner })
+      SHOW_RELATED -> loading
+        (fetch RelatedItem {
+          emit: { failure: RelatedItemLoadFailed, success: RelatedItemLoaded }
+          filter: (or ["=", @config.relationField, ""] ["=", (object/get @entity @config.relationField), ?key])
+        })
+        (render-ui main { type: spinner })
     }
 
     emits {
@@ -133,9 +181,23 @@ orbital RelatedItemOrbital {
         @description "Indicates failure to load related items."
         @synonyms "error, failure, problem, unsuccessful"
         @tier "internal"
+      SELECT_RELATED -> external {
+        id : string!
+        name : string
+      }
+        @description "Signals a related item was selected to drive a detail view."
+        @synonyms "select, choose, open, view"
+        @tier "domain"
     }
 
     listens {
+      SELECT_RELATED {
+        id : string!
+        name : string
+      }
+        @description "A related item was selected; the atom records it as the active row."
+        @synonyms "select, choose, open, view"
+        @tier "domain"
       RelatedItemLoadFailed {
         error : string
         code : string
@@ -143,9 +205,23 @@ orbital RelatedItemOrbital {
         @description "Indicates failure to load related items."
         @synonyms "error, failure, problem, unsuccessful"
         @tier "internal"
+      SHOW_RELATED {
+        key : string!
+      }
+        @description "Scopes the related fetch to rows whose relationField equals key."
+        @synonyms "scope, filter, focus, target"
+        @tier "domain"
     }
 
     config {
+      title : string = Related
+        @label "Section title"
+        @description "Heading shown above the related list."
+        @tier "presentation"
+      relationField : string = ""
+        @label "Relation field"
+        @description "RelatedItem field compared against SHOW_RELATED's key to scope the fetch to one parent document; empty renders the full unfiltered collection (default)."
+        @tier "domain"
       tableLook : "dense" | "spacious" | "striped" | "borderless" | "card-rows" = dense
         @label "Table look"
         @description "Layer 2 visual treatment for the data table rendered by this atom."
@@ -153,6 +229,7 @@ orbital RelatedItemOrbital {
     }
   }
 
-  ;; consumer: parent molecule (e.g. std-related-master-detail) listens for SELECT_RELATED to drive a detail panel
+  ;; consumer: parent molecule (e.g. std-related-master-detail) listens for SELECT_RELATED to drive a detail panel; a
+  ;; per-document scope forwards its "opened" event to SHOW_RELATED { key } via a listens override on relationField
   page "/related" as Related -> RelatedItemList
 }

package/behaviors/lolo/ui/core/atoms/std-rich-editor.lolo

@@ -1,5 +1,5 @@
 app std-rich-editor "1.0.0"
-"std-rich-editor — wiki/CMS Notion-style block editor. Browses documents in `browsing`; opens the rich-block-editor on a selected row; persists block edits + publish status."
+"std-rich-editor — wiki/CMS Notion-style block editor. Browses documents in `browsing`; opens the rich-block-editor on a selected row; persists block edits + publish status. `BlockEdit` is a rebindable single-row overlay editor: an organism rebinds it to its own entity (WikiPage, Note, …), passes the row's id + blocksJson via OPEN, and routes the emitted BLOCKS_SAVED into its own persistor — this atom never fetches or persists."
 ;; @capabilities "notes app, note-taking, journal, personal journal entries, document editor, write and organize notes"
 type BlockSpec = { type : string!, content : string, id : string }
 type ObjectSpec = { id : string, label : string, value : string }
@@ -419,5 +419,119 @@ orbital DocumentOrbital {
     }
   }
 
+  trait BlockEdit -> @rebindable Document [interaction, instance] {
+    initial: idle
+
+    state idle {
+      INIT -> idle
+      OPEN -> editing
+        (set @entity.id ?id)
+        (set @entity.blocksJson ?blocksJson)
+        (render-ui modal {
+          children: [{
+            align: center
+            children: [{ name: file-text, type: icon }, {
+              content: @config.title
+              type: typography
+              variant: h3
+            }]
+            direction: horizontal
+            gap: sm
+            type: stack
+          }, { type: divider }, {
+            changeEvent: BLOCKS_CHANGE
+            initialBlocks: @entity.blocksJson
+            placeholder: @config.placeholder
+            showToolbar: true
+            type: rich-block-editor
+          }, {
+            align: center
+            children: [{
+              action: SAVE
+              label: Save
+              type: button
+              variant: primary
+            }, {
+              action: CLOSE
+              label: Cancel
+              type: button
+              variant: ghost
+            }]
+            direction: horizontal
+            gap: sm
+            type: stack
+          }]
+          direction: vertical
+          gap: md
+          type: stack
+        })
+      ;; self-loop on the external emit so the validator sees an in-atom
+      ;; listener — the real consumer is the composing organism's persistor.
+      BLOCKS_SAVED -> idle
+    }
+
+    state editing {
+      BLOCKS_CHANGE -> editing
+        (set @entity.blocksJson ?blocks)
+      SAVE -> idle
+        (render-ui modal null)
+        (emit BLOCKS_SAVED { id: @entity.id, blocksJson: @entity.blocksJson })
+      CLOSE -> idle
+        (render-ui modal null)
+    }
+
+    emits {
+      BLOCKS_SAVED -> external {
+        id : string!
+        blocksJson : [BlockSpec]
+      }
+        @description "Signals a row's block content is ready to persist. This atom never persists — the composing organism routes BLOCKS_SAVED into its own persistor's update event."
+        @synonyms "saved, persist, update, commit"
+        @tier "domain"
+      CLOSE
+        @description "Indicates the block editor overlay is being dismissed."
+        @synonyms "dismiss, hide, cancel, close"
+        @tier "domain"
+      BLOCKS_CHANGE {
+        blocks : [BlockSpec]
+      }
+        @description "Signals that the content of a block has been modified while editing."
+        @synonyms "update, modify, changed, edit"
+        @tier "domain"
+    }
+
+    listens {
+      OPEN {
+        id : string!
+        blocksJson : [BlockSpec]
+      }
+        @description "Requests the block editor overlay open for the given row. The caller supplies the row's id and current blocks — this trait never fetches them itself."
+        @synonyms "show, launch, reveal, edit"
+        @tier "domain"
+      BLOCKS_CHANGE {
+        blocks : [BlockSpec]
+      }
+        @description "Indicates changes to the content of editable blocks while editing."
+        @synonyms "update, modify, edit"
+        @tier "domain"
+      CLOSE
+        @description "Indicates the block editor overlay is being dismissed."
+        @synonyms "dismiss, hide, cancel, close"
+        @tier "domain"
+    }
+
+    config {
+      title : string = "Edit content"
+        @label "Editor heading"
+        @description "Heading shown at the top of the block editor overlay."
+        @tier "presentation"
+      placeholder : string = "Start writing…"
+        @label "Placeholder text"
+        @description "Placeholder shown in the block editor when it is empty."
+        @tier "presentation"
+    }
+  }
+
   page "/documents/edit" as DocumentEditPage -> DocumentEdit
+  page "/documents/block-edit" as BlockEditPage -> BlockEdit
 }

package/behaviors/lolo/ui/core/atoms/std-tag-taxonomy.lolo

@@ -1,5 +1,5 @@
 app std-tag-taxonomy "1.1.0"
-"std-tag-taxonomy — hierarchical category tag tree (parent/child). TagBrowse fetches Tag rows on INIT, renders the active level via data-grid, and on SELECT_TAG drills into a tag's children by binding @entity.id to the chosen parent."
+"std-tag-taxonomy — hierarchical category tag tree (parent/child). TagBrowse fetches root-level Tag rows (parentId = \"\") on INIT and renders the active level via data-grid; SELECT_TAG drills into the chosen tag's children by fetching rows whose parentId matches it, binding @entity.id to that parent so the level is remembered; SHOW_ROOT resets back to the root level, surfaced as a back affordance while drilled in. Flat taxonomies (all parentId \"\") render exactly one level, unchanged. TagSelected is emitted on selection for consumers to filter content by tag."
 orbital TagTaxonomyOrbital {
     type TagLoaded = Event { data : [Tag] } "Fired when the tag collection finishes loading"
 
@@ -10,7 +10,7 @@ orbital TagTaxonomyOrbital {
   entity Tag [persistent: tags] {
     id : string!
     name : string! @description "The descriptive label for this item." @synonyms "label, title, description"
-    parentId : string @description "Reference to the parent tag in the hierarchy." @synonyms "parent, superior, ancestor"
+    parentId : Tag @description "Reference to the parent tag in the hierarchy; empty marks a root." @synonyms "parent, superior, ancestor"
     slug : string @description "A unique, URL-friendly identifier." @synonyms "identifier, key, code"
     color : string @description "A visual identifier, often used for categorization." @synonyms "hue, shade, tint, category color"
     count : number @description "The number of items associated with this entry." @synonyms "quantity, total, size, amount" = 0
@@ -22,7 +22,10 @@ orbital TagTaxonomyOrbital {
 
     state loading {
       INIT -> loading
+        (set @entity.id "")
+        (set @entity.parentId "")
         (fetch Tag {
+          filter: ["=", (object/get @entity parentId), ""]
           emit: { failure: TagLoadFailed, success: TagLoaded }
         })
         (render-ui main {
@@ -41,6 +44,14 @@ orbital TagTaxonomyOrbital {
       TagLoaded -> browsing
         (render-ui main {
           children: [{
+            action: SHOW_ROOT
+            disabled: (if (!= @entity.id "") false true)
+            icon: arrow-left
+            label: "All categories"
+            size: sm
+            type: button
+            variant: ghost
+          }, {
             content: @config.title
             type: typography
             variant: h3
@@ -115,7 +126,10 @@ orbital TagTaxonomyOrbital {
 
     state browsing {
       INIT -> loading
+        (set @entity.id "")
+        (set @entity.parentId "")
         (fetch Tag {
+          filter: ["=", (object/get @entity parentId), ""]
           emit: { failure: TagLoadFailed, success: TagLoaded }
         })
         (render-ui main {
@@ -133,8 +147,10 @@ orbital TagTaxonomyOrbital {
         })
       SELECT_TAG -> editing
         (set @entity.id ?tagId)
+        (set @entity.parentId ?tagId)
         (emit TagSelected { tagId: ?tagId })
         (fetch Tag {
+          filter: ["=", (object/get @entity parentId), ?tagId]
           emit: { failure: TagLoadFailed, success: TagLoaded }
         })
         (render-ui main {
@@ -150,9 +166,37 @@ orbital TagTaxonomyOrbital {
           gap: md
           type: stack
         })
+      SHOW_ROOT -> loading
+        (set @entity.id "")
+        (set @entity.parentId "")
+        (fetch Tag {
+          filter: ["=", (object/get @entity parentId), ""]
+          emit: { failure: TagLoadFailed, success: TagLoaded }
+        })
+        (render-ui main {
+          align: center
+          children: [{ type: spinner }, {
+            color: muted
+            content: "Loading categories…"
+            type: typography
+            variant: caption
+          }]
+          className: py-12
+          direction: vertical
+          gap: md
+          type: stack
+        })
       TagLoaded -> browsing
         (render-ui main {
           children: [{
+            action: SHOW_ROOT
+            disabled: (if (!= @entity.id "") false true)
+            icon: arrow-left
+            label: "All categories"
+            size: sm
+            type: button
+            variant: ghost
+          }, {
             content: @config.title
             type: typography
             variant: h3
@@ -227,7 +271,10 @@ orbital TagTaxonomyOrbital {
 
     state editing {
       INIT -> loading
+        (set @entity.id "")
+        (set @entity.parentId "")
         (fetch Tag {
+          filter: ["=", (object/get @entity parentId), ""]
           emit: { failure: TagLoadFailed, success: TagLoaded }
         })
         (render-ui main {
@@ -245,12 +292,22 @@ orbital TagTaxonomyOrbital {
         })
       SELECT_TAG -> editing
         (set @entity.id ?tagId)
+        (set @entity.parentId ?tagId)
         (emit TagSelected { tagId: ?tagId })
       TagSelected -> editing
         (set @entity.id ?tagId)
+        (set @entity.parentId ?tagId)
       TagLoaded -> browsing
         (render-ui main {
           children: [{
+            action: SHOW_ROOT
+            disabled: (if (!= @entity.id "") false true)
+            icon: arrow-left
+            label: "All categories"
+            size: sm
+            type: button
+            variant: ghost
+          }, {
             content: @config.title
             type: typography
             variant: h3
@@ -325,7 +382,10 @@ orbital TagTaxonomyOrbital {
 
     state error {
       INIT -> loading
+        (set @entity.id "")
+        (set @entity.parentId "")
         (fetch Tag {
+          filter: ["=", (object/get @entity parentId), ""]
           emit: { failure: TagLoadFailed, success: TagLoaded }
         })
         (render-ui main {

package/behaviors/lolo/ui/core/atoms/std-thread.lolo

@@ -1,5 +1,5 @@
 app std-thread "1.3.0"
-"std-thread — forum-style nested replies with collapse + flat-mode toggle. Owns ThreadPost (persistent). flat:true covers 1:1 linear inquiry threads; flat:false renders forum-style nested. INIT fetches, scoped by @config.threadRootId when set (blank = every root, the default). REPLY persists a child post under @payload.parentId, stamped with the real @user identity. Layer 3 variants override `bodyContent` to deliver chat-bubble, email-threaded, or linear-comments UX while inheriting the same trait, state machine, emits, and listens."
+"std-thread — forum-style nested replies with collapse + flat-mode toggle. Owns ThreadPost (persistent). flat:true covers 1:1 linear inquiry threads; flat:false renders forum-style nested. INIT fetches, scoped by @config.threadRootId when set (blank = every root, the default). REPLY persists a child post under @payload.parentId, stamped with the real @user identity. A consumer that mounts this as page comments forwards its own document-opened signal to SET_THREAD_ROOT { rootId }, which stamps the frame and refetches filtered by the payload; the after-create and after-select refetch arms keep filtering by @config.threadRootId, so a mutation re-widens the panel until the consumer re-fires SET_THREAD_ROOT. Layer 3 variants override `bodyContent` to deliver chat-bubble, email-threaded, or linear-comments UX while inheriting the same trait, state machine, emits, and listens."
 orbital ThreadPostOrbital {
   ;; Forward relation: array of child ThreadPost IDs whose parentId === this.id.
   ;; Lowers to `type: "relation", cardinality: "many"` (orbital-lolo lower.rs).
@@ -19,6 +19,8 @@ orbital ThreadPostOrbital {
 
     type ThreadPostCreateFailed = Event { error : string, code : string } "Fired when a new thread-post fails to persist"
 
+    type SetThreadRoot = Event { rootId : string! } "Fired to scope every ThreadPost fetch, and new-reply threadRootId stamping, to the descendants of one document root"
+
   entity ThreadPost [persistent: threadposts] {
     id : string!
     parentId : string @description "Identifier of the parent ThreadPost in a nested thread." @synonyms "parent, ancestor, source"
@@ -52,6 +54,14 @@ orbital ThreadPostOrbital {
           type: alert
           variant: error
         })
+      SET_THREAD_ROOT -> loading
+        (set @entity.threadRootId ?rootId)
+        (fetch ThreadPost {
+          emit: { failure: ThreadPostLoadFailed, success: ThreadPostLoaded }
+          filter: (or ["=", ?rootId, ""] ["=", (object/get @entity threadRootId), ?rootId])
+          include: (replies)
+        })
+        (render-ui main { size: sm, type: spinner })
     }
 
     state browsing {
@@ -73,13 +83,14 @@ orbital ThreadPostOrbital {
           authorName: @user.name
           content: ?content
           parentId: (str/default ?parentNodeId ?parentId)
-          threadRootId: (str/default ?parentNodeId (str/default @config.threadRootId root))
+          threadRootId: (str/default ?parentNodeId (str/default @entity.threadRootId (str/default @config.threadRootId root)))
         } {
           emit: { failure: ThreadPostCreateFailed, success: ThreadPostCreated }
         })
       ;; Reply with no text yet (e.g. an email "Reply" button) opens the composer.
       REPLY -> replying when ["=", (str/default ?content ""), ""]
         (set @entity.parentId (str/default ?parentNodeId ?parentId))
+        (set @entity.threadRootId (str/default ?parentNodeId (str/default @entity.threadRootId (str/default @config.threadRootId root))))
         (render-ui main {
           children: [{
             content: "Write a reply"
@@ -139,6 +150,14 @@ orbital ThreadPostOrbital {
           type: alert
           variant: error
         })
+      SET_THREAD_ROOT -> loading
+        (set @entity.threadRootId ?rootId)
+        (fetch ThreadPost {
+          emit: { failure: ThreadPostLoadFailed, success: ThreadPostLoaded }
+          filter: (or ["=", ?rootId, ""] ["=", (object/get @entity threadRootId), ?rootId])
+          include: (replies)
+        })
+        (render-ui main { size: sm, type: spinner })
     }
 
     state replying {
@@ -165,6 +184,14 @@ orbital ThreadPostOrbital {
           type: alert
           variant: error
         })
+      SET_THREAD_ROOT -> loading
+        (set @entity.threadRootId ?rootId)
+        (fetch ThreadPost {
+          emit: { failure: ThreadPostLoadFailed, success: ThreadPostLoaded }
+          filter: (or ["=", ?rootId, ""] ["=", (object/get @entity threadRootId), ?rootId])
+          include: (replies)
+        })
+        (render-ui main { size: sm, type: spinner })
     }
 
     state error {
@@ -175,6 +202,14 @@ orbital ThreadPostOrbital {
           include: (replies)
         })
         (render-ui main { size: sm, type: spinner })
+      SET_THREAD_ROOT -> loading
+        (set @entity.threadRootId ?rootId)
+        (fetch ThreadPost {
+          emit: { failure: ThreadPostLoadFailed, success: ThreadPostLoaded }
+          filter: (or ["=", ?rootId, ""] ["=", (object/get @entity threadRootId), ?rootId])
+          include: (replies)
+        })
+        (render-ui main { size: sm, type: spinner })
     }
 
     emits {
@@ -295,6 +330,12 @@ orbital ThreadPostOrbital {
         @description "Indicates a failure to create a new thread post."
         @synonyms "error, failure, rejected, invalid"
         @tier "internal"
+      SET_THREAD_ROOT {
+        rootId : string!
+      }
+        @description "Scopes every fetch, and new-reply threadRootId stamping, to the descendants of one document root."
+        @synonyms "scope, focus, set root, document scope, thread scope"
+        @tier "domain"
     }
 
     config {