@almadar/std 16.145.0 → 16.147.0

package/behaviors/lolo/ui/core/molecules/ui-import-source-picker.lolo

@@ -0,0 +1,67 @@
+app ui-import-source-picker "1.0.0"
+"ImportSourcePicker — UI factory (1:1 with the @almadar/ui import-source-picker pattern)."
+orbital ImportSourcePickerOrbital {
+  type ImportSourcePickerSourcesItem = {
+    id : string!
+    label : string!
+    description : string
+    icon : icon
+    kind : "action" | "file"
+    accept : string
+    multiple : boolean
+    disabled : boolean
+  }
+
+  entity ImportSourcePickerItem [runtime] {
+    id : string!
+  }
+
+  trait ImportSourcePickerRender -> @rebindable ImportSourcePickerItem [interaction, instance] {
+    initial: idle
+
+    state idle {
+      INIT -> idle
+        (render-ui main {
+          sources: @config.sources
+          onSelect: @config.onSelect
+          title: @config.title
+          moreSources: @config.moreSources
+          className: @config.className
+          type: import-source-picker
+        })
+    }
+
+    emits {
+      @config.onSelect -> external {
+        sourceId : string
+      }
+        @description "Called with the source id when an 'action' option is picked"
+        @tier "essential"
+    }
+
+    config {
+      sources : [ImportSourcePickerSourcesItem] = [{ id: "Id", label: "Label", description: "Description", icon: "circle", kind: action, accept: "Accept", multiple: false, disabled: false }, { id: "Id 2", label: "Label 2", description: "Description 2", icon: "circle", kind: file, accept: "Accept 2", multiple: true, disabled: true }]
+        @label "Sources"
+        @description "Source options to render"
+        @tier "presentation"
+      onSelect : string = "SELECT"
+        @label "On Select"
+        @description "Called with the source id when an 'action' option is picked"
+        @tier "presentation"
+      title : string
+        @label "Title"
+        @description "Optional heading above the options"
+        @tier "presentation"
+      moreSources : node
+        @label "More Sources"
+        @description "Generic slot for additional sources rendered below the options"
+        @tier "presentation"
+      className : string
+        @label "Class Name"
+        @description "Additional CSS classes"
+        @tier "presentation"
+    }
+  }
+
+  page "/import-source-picker" as ImportSourcePickerPage -> ImportSourcePickerRender
+}

package/behaviors/lolo/ui/core/molecules/ui-table-view.lolo

@@ -111,8 +111,6 @@ orbital TableViewOrbital {
           look: @config.look
           type: table-view
         })
-      VIEW -> idle
-        (emit VIEW {})
     }
 
     emits {

package/behaviors/lolo/ui/core/organisms/ui-entity-cards.lolo

@@ -96,8 +96,6 @@ orbital EntityCardsOrbital {
           imageField: @config.imageField
           type: entity-cards
         })
-      VIEW -> idle
-        (emit VIEW {})
     }
 
     emits {

package/behaviors/lolo/ui/core/organisms/ui-entity-list.lolo

@@ -74,8 +74,6 @@ orbital EntityListOrbital {
           fieldNames: @config.fieldNames
           type: entity-list
         })
-      VIEW -> idle
-        (emit VIEW {})
     }
 
     emits {

package/behaviors/lolo/ui/core/organisms/ui-entity-table.lolo

@@ -120,8 +120,6 @@ orbital EntityTableOrbital {
           look: @config.look
           type: entity-table
         })
-      VIEW -> idle
-        (emit VIEW {})
     }
 
     emits {

package/behaviors/lolo/ui/core/organisms/ui-timeline.lolo

@@ -59,8 +59,6 @@ orbital TimelineOrbital {
           look: @config.look
           type: timeline
         })
-      VIEW -> idle
-        (emit VIEW {})
     }
 
     emits {

package/behaviors/lolo/ui/game/atoms/std-dungeon-combat.lolo

@@ -55,11 +55,11 @@ orbital DungeonCombatOrbital {
         (let ((target (array/find @entity.enemies (fn e (== @e.id @payload.targetId)))))
           (let ((newHealth (math/max 0 (- (object/get @target health) @config.attackDamage))))
             (do
-              (set @entity.enemies (array/map @entity.enemies (fn e (if (== @e.id @payload.targetId) (object/merge @e { health: @newHealth, animation: (if (<= @newHealth 0) "death" "hit") }) e))))
+              (set @entity.enemies (array/map @entity.enemies (fn e (if (== @e.id @payload.targetId) (object/merge @e { health: @newHealth, animation: (if (<= @newHealth 0) "death" "hit") }) @e))))
               (if (<= @newHealth 0)
                 (do
                   (set @entity.combatScore (+ @entity.combatScore @config.pointsPerKill))
-                  (emit BURST { particles: (array/map (array/filter @entity.enemies (fn e (== @e.id @payload.targetId))) (fn t { id: (str/concat "fx-kill-" (object/get t id)), type: "explosion", x: (object/get (object/get t position) x), z: (object/get (object/get t position) y), ttl: 5 })) }))
+                  (emit BURST { particles: (array/map (array/filter @entity.enemies (fn e (== @e.id @payload.targetId))) (fn t { id: (str/concat "fx-kill-" (object/get @t id)), type: "explosion", x: (object/get (object/get @t position) x), z: (object/get (object/get @t position) y), ttl: 5 })) }))
                 true))))
 
       MONSTER_TICK -> active when @config.running

package/behaviors/lolo/ui/game/molecules/std-worldmap-board-2d.lolo

@@ -168,7 +168,7 @@ orbital WorldMapBoard2DOrbital {
 
       HERO_MOVE -> playing when (and (== @entity.result "none") (and (!= @entity.selectedHeroId "") (and (grid/in-bounds { x: ?x, y: ?y } @config.gridWidth @config.gridHeight) (and (<= (grid/manhattan-distance (object/get (array/find @entity.units (fn u (== @u.id @entity.selectedHeroId))) position) { x: ?x, y: ?y }) @config.movementRange) (and (== (object/get (array/find @entity.tiles (fn t (and (== (object/get @t x) ?x) (== (object/get @t y) ?y)))) passable) true) (== (array/len (array/filter @entity.units (fn u (and (== (object/get (object/get @u position) x) ?x) (== (object/get (object/get @u position) y) ?y))))) 0))))))
         (emit MOVE { unitId: @entity.selectedHeroId, x: ?x, y: ?y })
-        (if (== (object/get (array/find @config.features (fn f (and (== (object/get f x) ?x) (and (== (object/get f y) ?y) (== (object/get f type) "gold_mine"))))) type) "gold_mine") (emit MINE_HIT { id: "" }) null)
+        (if (== (object/get (array/find @config.features (fn f (and (== (object/get @f x) ?x) (and (== (object/get @f y) ?y) (== (object/get @f type) "gold_mine"))))) type) "gold_mine") (emit MINE_HIT { id: "" }) null)
         (set @entity.selectedHeroId "")
         (set @entity.validMoves [])
 

package/behaviors/lolo/ui/game/organisms/ui-boardgame-board.lolo

@@ -119,7 +119,7 @@ orbital BoardgameBoardOrbital {
         (set @entity.landingIndex (math/min @entity.lastIndex (+ @entity.playerIndex @entity.dice)))
         (set @entity.landingType (object/get (array/nth @config.track @entity.landingIndex) type))
         (set @entity.playerIndex (if (== @entity.landingType "bonus") (math/min @entity.lastIndex (+ @entity.landingIndex 2)) (if (== @entity.landingType "trap") (math/max 0 (- @entity.landingIndex 2)) @entity.landingIndex)))
-        (set @entity.pieces (array/map @entity.pieces (fn p (if (== @p.id "you") (object/merge p { position: { x: (object/get (array/nth @config.track @entity.playerIndex) x), y: (object/get (array/nth @config.track @entity.playerIndex) y) }, trackIndex: @entity.playerIndex }) p))))
+        (set @entity.pieces (array/map @entity.pieces (fn p (if (== @p.id "you") (object/merge @p { position: { x: (object/get (array/nth @config.track @entity.playerIndex) x), y: (object/get (array/nth @config.track @entity.playerIndex) y) }, trackIndex: @entity.playerIndex }) @p))))
         (if (or (== @entity.landingType "bonus") (== @entity.landingType "trap")) (set @entity.effects (array/append @entity.effects { key: @entity.landingType, x: (object/get (array/nth @config.track @entity.landingIndex) x), y: (object/get (array/nth @config.track @entity.landingIndex) y), ttl: 6 })) true)
         (set @entity.result (if (== @entity.playerIndex @entity.lastIndex) "victory" "none"))
         (if (== @entity.result "victory") (emit GAME_END) true)
@@ -218,7 +218,7 @@ orbital BoardgameBoardOrbital {
         (set @entity.landingIndex (math/min @entity.lastIndex (+ @entity.rivalIndex @entity.dice)))
         (set @entity.landingType (object/get (array/nth @config.track @entity.landingIndex) type))
         (set @entity.rivalIndex (if (== @entity.landingType "bonus") (math/min @entity.lastIndex (+ @entity.landingIndex 2)) (if (== @entity.landingType "trap") (math/max 0 (- @entity.landingIndex 2)) @entity.landingIndex)))
-        (set @entity.pieces (array/map @entity.pieces (fn p (if (== @p.id "rival") (object/merge p { position: { x: (object/get (array/nth @config.track @entity.rivalIndex) x), y: (object/get (array/nth @config.track @entity.rivalIndex) y) }, trackIndex: @entity.rivalIndex }) p))))
+        (set @entity.pieces (array/map @entity.pieces (fn p (if (== @p.id "rival") (object/merge @p { position: { x: (object/get (array/nth @config.track @entity.rivalIndex) x), y: (object/get (array/nth @config.track @entity.rivalIndex) y) }, trackIndex: @entity.rivalIndex }) @p))))
         (if (or (== @entity.landingType "bonus") (== @entity.landingType "trap")) (set @entity.effects (array/append @entity.effects { key: @entity.landingType, x: (object/get (array/nth @config.track @entity.landingIndex) x), y: (object/get (array/nth @config.track @entity.landingIndex) y), ttl: 6 })) true)
         (set @entity.result (if (== @entity.rivalIndex @entity.lastIndex) "defeat" "none"))
         (if (== @entity.result "defeat") (emit GAME_END) true)

package/behaviors/lolo/ui/game/organisms/ui-builder-board.lolo

@@ -100,7 +100,7 @@ orbital BuilderBoardOrbital {
           ]
         })
 
-      CHECK -> complete when (== (array/len (array/filter @entity.slots (fn s (!= (object/get s placedComponentId) (object/get s requiredComponentId))))) 0)
+      CHECK -> complete when (== (array/len (array/filter @entity.slots (fn s (!= (object/get @s placedComponentId) (object/get @s requiredComponentId))))) 0)
         (set @entity.attempts (+ @entity.attempts 1))
         (set @entity.result "win")
         (render-ui main {
@@ -112,7 +112,7 @@ orbital BuilderBoardOrbital {
           ]
         })
 
-      CHECK -> playing when (> (array/len (array/filter @entity.slots (fn s (!= (object/get s placedComponentId) (object/get s requiredComponentId))))) 0)
+      CHECK -> playing when (> (array/len (array/filter @entity.slots (fn s (!= (object/get @s placedComponentId) (object/get @s requiredComponentId))))) 0)
         (set @entity.attempts (+ @entity.attempts 1))
         (render-ui main {
           type: game-shell

package/behaviors/lolo/ui/game/organisms/ui-debugger-board.lolo

@@ -74,7 +74,7 @@ orbital DebuggerBoardOrbital {
           ]
         })
       TOGGLE_FLAG -> playing
-        (set @entity.lines (array/map @entity.lines (fn l (if (== (object/get l id) ?lineId) (object/merge l { isFlagged: (not (object/get l isFlagged)) }) l))))
+        (set @entity.lines (array/map @entity.lines (fn l (if (== (object/get @l id) ?lineId) (object/merge @l { isFlagged: (not (object/get @l isFlagged)) }) @l))))
         (render-ui main {
           type: game-shell
           hud: { type: stack, direction: horizontal, gap: md, justify: between, children: [ { type: game-hud, stats: [ { label: "Attempts", value: @entity.attempts }, { label: "Status", value: @entity.result } ] }, { type: stack, direction: horizontal, gap: sm, children: [ { type: button, action: CHECK, label: "Check", variant: primary }, { type: button, action: PLAY_AGAIN, label: "Reset", variant: secondary } ] } ] }
@@ -84,7 +84,7 @@ orbital DebuggerBoardOrbital {
           ]
         })
 
-      CHECK -> complete when (and (== (array/len (array/filter @entity.lines (fn l (and (object/get l isBug) (not (object/get l isFlagged)))))) 0) (== (array/len (array/filter @entity.lines (fn l (and (not (object/get l isBug)) (object/get l isFlagged))))) 0))
+      CHECK -> complete when (and (== (array/len (array/filter @entity.lines (fn l (and (object/get @l isBug) (not (object/get @l isFlagged)))))) 0) (== (array/len (array/filter @entity.lines (fn l (and (not (object/get @l isBug)) (object/get @l isFlagged))))) 0))
         (set @entity.attempts (+ @entity.attempts 1))
         (set @entity.result "win")
         (render-ui main {
@@ -96,7 +96,7 @@ orbital DebuggerBoardOrbital {
           ]
         })
 
-      CHECK -> playing when (or (> (array/len (array/filter @entity.lines (fn l (and (object/get l isBug) (not (object/get l isFlagged)))))) 0) (> (array/len (array/filter @entity.lines (fn l (and (not (object/get l isBug)) (object/get l isFlagged))))) 0))
+      CHECK -> playing when (or (> (array/len (array/filter @entity.lines (fn l (and (object/get @l isBug) (not (object/get @l isFlagged)))))) 0) (> (array/len (array/filter @entity.lines (fn l (and (not (object/get @l isBug)) (object/get @l isFlagged))))) 0))
         (set @entity.attempts (+ @entity.attempts 1))
         (render-ui main {
           type: game-shell

package/behaviors/lolo/ui/game/organisms/ui-physics-sandbox-board.lolo

@@ -141,10 +141,10 @@ orbital PhysicsSandboxBoardOrbital {
 
     ticks {
       gravityTick every 300ms
-      (set @entity.blocks (array/map @entity.blocks (fn b (if (== (object/get b settled) true) b (if (or (== (+ (object/get b y) 1) @entity.gridHeight) (array/some @entity.blocks (fn o (and (== (object/get o settled) true) (and (== (object/get o x) (object/get b x)) (== (object/get o y) (+ (object/get b y) 1))))))) (object/merge b { settled: true }) (object/merge b { y: (+ (object/get b y) 1) }))))))
-      (let ((clearRow (array/find (array/range 0 @entity.gridHeight) (fn r (== (array/len (array/filter @entity.blocks (fn b (and (== (object/get b settled) true) (== (object/get b y) r))))) @entity.gridWidth)))))
+      (set @entity.blocks (array/map @entity.blocks (fn b (if (== (object/get @b settled) true) @b (if (or (== (+ (object/get @b y) 1) @entity.gridHeight) (array/some @entity.blocks (fn o (and (== (object/get @o settled) true) (and (== (object/get @o x) (object/get @b x)) (== (object/get @o y) (+ (object/get @b y) 1))))))) (object/merge @b { settled: true }) (object/merge @b { y: (+ (object/get @b y) 1) }))))))
+      (let ((clearRow (array/find (array/range 0 @entity.gridHeight) (fn r (== (array/len (array/filter @entity.blocks (fn b (and (== (object/get @b settled) true) (== (object/get @b y) @r))))) @entity.gridWidth)))))
         (do
-          (set @entity.blocks (if (!= @clearRow null) (array/map (array/filter @entity.blocks (fn b (!= (object/get b y) @clearRow))) (fn b (if (< (object/get b y) @clearRow) (object/merge b { y: (+ (object/get b y) 1) }) b))) @entity.blocks))
+          (set @entity.blocks (if (!= @clearRow null) (array/map (array/filter @entity.blocks (fn b (!= (object/get @b y) @clearRow))) (fn b (if (< (object/get @b y) @clearRow) (object/merge @b { y: (+ (object/get @b y) 1) }) @b))) @entity.blocks))
           (set @entity.score (if (!= @clearRow null) (+ @entity.score (* 10 @entity.gridWidth)) @entity.score))
           (set @entity.rowsCleared (if (!= @clearRow null) (+ @entity.rowsCleared 1) @entity.rowsCleared))))
       (render-ui main {

package/behaviors/lolo/ui/game/organisms/ui-roguelike-board.lolo

@@ -466,7 +466,7 @@ orbital RoguelikeBoardOrbital {
       enemyAiTick every 1s
         when (and (== @entity.phase "enemy_turn") (== @entity.result "none"))
         (set @entity.enemies (array/map @entity.enemies (fn e (if (> @e.hp 0) (let ((ex @e.x) (ey @e.y) (px (object/get @entity.player x)) (py (object/get @entity.player y))) (let ((adjP (and (== (math/abs (- @ex @px)) 1) (== @ey @py))) (adjQ (and (== @ex @px) (== (math/abs (- @ey @py)) 1)))) (if (or @adjP @adjQ) @e (let ((cnx (math/clamp (+ @ex (math/sign (- @px @ex))) 0 (- @entity.gridWidth 1))) (cny (math/clamp (+ @ey (math/sign (- @py @ey))) 0 (- @entity.gridHeight 1)))) (let ((ntile (array/find @entity.tiles (fn t (and (== (object/get @t x) @cnx) (== (object/get @t y) @cny))))) (occupied (array/find @entity.enemies (fn o (and (!= @o.id @e.id) (and (== @o.x @cnx) (== @o.y @cny))))))) (if (and (and (!= @ntile null) (== (object/get @ntile passable) true)) (and (== @occupied null) (or (!= @cnx @px) (!= @cny @py)))) (object/merge @e { x: @cnx, y: @cny }) @e)))))) @e))))
-        (set @entity.playerHp (let ((adjEnemies (array/filter @entity.enemies (fn e (and (> @e.hp 0) (or (and (== (math/abs (- @e.x (object/get @entity.player x))) 1) (== @e.y (object/get @entity.player y))) (and (== @e.x (object/get @entity.player x)) (== (math/abs (- @e.y (object/get @entity.player y))) 1)))))))) (let ((dmg (if (== (array/len @adjEnemies) 0) 0 (array/reduce @adjEnemies (fn acc e (+ acc @e.attack)) 0)))) (math/max 0 (- @entity.playerHp @dmg)))))
+        (set @entity.playerHp (let ((adjEnemies (array/filter @entity.enemies (fn e (and (> @e.hp 0) (or (and (== (math/abs (- @e.x (object/get @entity.player x))) 1) (== @e.y (object/get @entity.player y))) (and (== @e.x (object/get @entity.player x)) (== (math/abs (- @e.y (object/get @entity.player y))) 1)))))))) (let ((dmg (if (== (array/len @adjEnemies) 0) 0 (array/reduce @adjEnemies (fn acc e (+ @acc @e.attack)) 0)))) (math/max 0 (- @entity.playerHp @dmg)))))
         (set @entity.effects (if (> (array/len (array/filter @entity.enemies (fn e (and (> @e.hp 0) (or (and (== (math/abs (- @e.x (object/get @entity.player x))) 1) (== @e.y (object/get @entity.player y))) (and (== @e.x (object/get @entity.player x)) (== (math/abs (- @e.y (object/get @entity.player y))) 1))))))) 0) (array/append @entity.effects { key: "slash", x: (object/get @entity.player x), y: (object/get @entity.player y), ttl: 4 }) @entity.effects))
         (if (<= @entity.playerHp 0) (do (set @entity.result "lost") (emit GAME_END)) true)
         (set @entity.phase (if (== @entity.result "none") "player_turn" "game_over"))

package/behaviors/lolo/ui/game/organisms/ui-sequencer-board.lolo

@@ -119,7 +119,7 @@ orbital SequencerBoardOrbital {
           ]
         })
 
-      CHECK -> complete when (array/some @entity.solutions (fn sol (== (array/map @entity.slots (fn s (object/get s placedActionId))) sol)))
+      CHECK -> complete when (array/some @entity.solutions (fn sol (== (array/map @entity.slots (fn s (object/get @s placedActionId))) @sol)))
         (set @entity.attempts (+ @entity.attempts 1))
         (set @entity.result "win")
         (set @entity.currentStep -1)

package/behaviors/lolo/ui/learning/atoms/std-algo-heapsort.lolo

@@ -58,9 +58,9 @@ orbital HeapSortEngineOrbital {
             (rc (+ (* 2 @entity.root) 2))
           )
           (let (
-            (afterL (if (and (< lc @entity.heapSize) (> (object/get (array/nth @entity.bars lc) value) (object/get (array/nth @entity.bars @entity.root) value))) lc @entity.root))
+            (afterL (if (and (< @lc @entity.heapSize) (> (object/get (array/nth @entity.bars @lc) value) (object/get (array/nth @entity.bars @entity.root) value))) @lc @entity.root))
           )
-          (if (and (< rc @entity.heapSize) (> (object/get (array/nth @entity.bars rc) value) (object/get (array/nth @entity.bars afterL) value))) rc afterL))))
+          (if (and (< @rc @entity.heapSize) (> (object/get (array/nth @entity.bars @rc) value) (object/get (array/nth @entity.bars @afterL) value))) @rc @afterL))))
         (set @entity.willSwap (not (== @entity.largest @entity.root)))
         (set @entity.buildMore (and (not @entity.willSwap) (== @entity.phase 0) (>= @entity.origin 1)))
         (set @entity.buildDone (and (not @entity.willSwap) (== @entity.phase 0) (== @entity.origin 0)))

package/behaviors/lolo/ui/learning/atoms/std-algo-mst.lolo

@@ -76,7 +76,7 @@ orbital MstEngineOrbital {
                 (let ( (inF (array/includes @entity.inTree (object/get @w from)))
                        (inT (array/includes @entity.inTree (object/get @w to))) )
                   (or (and @inF (not @inT)) (and (not @inF) @inT)))))
-              (fn w (object/get @w w)))))
+              (fn w (object/get @w "w")))))
         (set @entity.chosenFrom
           (object/get
             (array/first
@@ -84,7 +84,7 @@ orbital MstEngineOrbital {
                 (let ( (inF (array/includes @entity.inTree (object/get @w from)))
                        (inT (array/includes @entity.inTree (object/get @w to))) )
                   (and (or (and @inF (not @inT)) (and (not @inF) @inT))
-                       (== (object/get @w w) @entity.minW))))))
+                       (== (object/get @w "w") @entity.minW))))))
             from))
         (set @entity.chosenTo
           (object/get
@@ -93,7 +93,7 @@ orbital MstEngineOrbital {
                 (let ( (inF (array/includes @entity.inTree (object/get @w from)))
                        (inT (array/includes @entity.inTree (object/get @w to))) )
                   (and (or (and @inF (not @inT)) (and (not @inF) @inT))
-                       (== (object/get @w w) @entity.minW))))))
+                       (== (object/get @w "w") @entity.minW))))))
             to))
         (set @entity.treeEdges (array/append @entity.treeEdges { from: @entity.chosenFrom, to: @entity.chosenTo }))
         (set @entity.inTree