wuira 0.1.0 → 0.1.2

package/lib/ui/mount.lua

@@ -0,0 +1,486 @@
+--[[ Generated with https://github.com/TypeScriptToLua/TypeScriptToLua ]]
+-- Lua Library inline imports
+local function __TS__Class(self)
+    local c = {prototype = {}}
+    c.prototype.__index = c.prototype
+    c.prototype.constructor = c
+    return c
+end
+
+local __TS__Symbol, Symbol
+do
+    local symbolMetatable = {__tostring = function(self)
+        return ("Symbol(" .. (self.description or "")) .. ")"
+    end}
+    function __TS__Symbol(description)
+        return setmetatable({description = description}, symbolMetatable)
+    end
+    Symbol = {
+        asyncDispose = __TS__Symbol("Symbol.asyncDispose"),
+        dispose = __TS__Symbol("Symbol.dispose"),
+        iterator = __TS__Symbol("Symbol.iterator"),
+        hasInstance = __TS__Symbol("Symbol.hasInstance"),
+        species = __TS__Symbol("Symbol.species"),
+        toStringTag = __TS__Symbol("Symbol.toStringTag")
+    }
+end
+
+local __TS__Iterator
+do
+    local function iteratorGeneratorStep(self)
+        local co = self.____coroutine
+        local status, value = coroutine.resume(co)
+        if not status then
+            error(value, 0)
+        end
+        if coroutine.status(co) == "dead" then
+            return
+        end
+        return true, value
+    end
+    local function iteratorIteratorStep(self)
+        local result = self:next()
+        if result.done then
+            return
+        end
+        return true, result.value
+    end
+    local function iteratorStringStep(self, index)
+        index = index + 1
+        if index > #self then
+            return
+        end
+        return index, string.sub(self, index, index)
+    end
+    function __TS__Iterator(iterable)
+        if type(iterable) == "string" then
+            return iteratorStringStep, iterable, 0
+        elseif iterable.____coroutine ~= nil then
+            return iteratorGeneratorStep, iterable
+        elseif iterable[Symbol.iterator] then
+            local iterator = iterable[Symbol.iterator](iterable)
+            return iteratorIteratorStep, iterator
+        else
+            return ipairs(iterable)
+        end
+    end
+end
+
+local Map
+do
+    Map = __TS__Class()
+    Map.name = "Map"
+    function Map.prototype.____constructor(self, entries)
+        self[Symbol.toStringTag] = "Map"
+        self.items = {}
+        self.size = 0
+        self.nextKey = {}
+        self.previousKey = {}
+        if entries == nil then
+            return
+        end
+        local iterable = entries
+        if iterable[Symbol.iterator] then
+            local iterator = iterable[Symbol.iterator](iterable)
+            while true do
+                local result = iterator:next()
+                if result.done then
+                    break
+                end
+                local value = result.value
+                self:set(value[1], value[2])
+            end
+        else
+            local array = entries
+            for ____, kvp in ipairs(array) do
+                self:set(kvp[1], kvp[2])
+            end
+        end
+    end
+    function Map.prototype.clear(self)
+        self.items = {}
+        self.nextKey = {}
+        self.previousKey = {}
+        self.firstKey = nil
+        self.lastKey = nil
+        self.size = 0
+    end
+    function Map.prototype.delete(self, key)
+        local contains = self:has(key)
+        if contains then
+            self.size = self.size - 1
+            local next = self.nextKey[key]
+            local previous = self.previousKey[key]
+            if next ~= nil and previous ~= nil then
+                self.nextKey[previous] = next
+                self.previousKey[next] = previous
+            elseif next ~= nil then
+                self.firstKey = next
+                self.previousKey[next] = nil
+            elseif previous ~= nil then
+                self.lastKey = previous
+                self.nextKey[previous] = nil
+            else
+                self.firstKey = nil
+                self.lastKey = nil
+            end
+            self.nextKey[key] = nil
+            self.previousKey[key] = nil
+        end
+        self.items[key] = nil
+        return contains
+    end
+    function Map.prototype.forEach(self, callback)
+        for ____, key in __TS__Iterator(self:keys()) do
+            callback(nil, self.items[key], key, self)
+        end
+    end
+    function Map.prototype.get(self, key)
+        return self.items[key]
+    end
+    function Map.prototype.has(self, key)
+        return self.nextKey[key] ~= nil or self.lastKey == key
+    end
+    function Map.prototype.set(self, key, value)
+        local isNewValue = not self:has(key)
+        if isNewValue then
+            self.size = self.size + 1
+        end
+        self.items[key] = value
+        if self.firstKey == nil then
+            self.firstKey = key
+            self.lastKey = key
+        elseif isNewValue then
+            self.nextKey[self.lastKey] = key
+            self.previousKey[key] = self.lastKey
+            self.lastKey = key
+        end
+        return self
+    end
+    Map.prototype[Symbol.iterator] = function(self)
+        return self:entries()
+    end
+    function Map.prototype.entries(self)
+        local function getFirstKey()
+            return self.firstKey
+        end
+        local items = self.items
+        local nextKey = self.nextKey
+        local key
+        local started = false
+        return {
+            [Symbol.iterator] = function(self)
+                return self
+            end,
+            next = function(self)
+                if not started then
+                    started = true
+                    key = getFirstKey(nil)
+                else
+                    key = nextKey[key]
+                end
+                return {done = not key, value = {key, items[key]}}
+            end
+        }
+    end
+    function Map.prototype.keys(self)
+        local function getFirstKey()
+            return self.firstKey
+        end
+        local nextKey = self.nextKey
+        local key
+        local started = false
+        return {
+            [Symbol.iterator] = function(self)
+                return self
+            end,
+            next = function(self)
+                if not started then
+                    started = true
+                    key = getFirstKey(nil)
+                else
+                    key = nextKey[key]
+                end
+                return {done = not key, value = key}
+            end
+        }
+    end
+    function Map.prototype.values(self)
+        local function getFirstKey()
+            return self.firstKey
+        end
+        local items = self.items
+        local nextKey = self.nextKey
+        local key
+        local started = false
+        return {
+            [Symbol.iterator] = function(self)
+                return self
+            end,
+            next = function(self)
+                if not started then
+                    started = true
+                    key = getFirstKey(nil)
+                else
+                    key = nextKey[key]
+                end
+                return {done = not key, value = items[key]}
+            end
+        }
+    end
+    Map[Symbol.species] = Map
+end
+
+local function __TS__New(target, ...)
+    local instance = setmetatable({}, target.prototype)
+    instance:____constructor(...)
+    return instance
+end
+
+local function __TS__ArrayMap(self, callbackfn, thisArg)
+    local result = {}
+    for i = 1, #self do
+        result[i] = callbackfn(thisArg, self[i], i - 1, self)
+    end
+    return result
+end
+-- End of Lua Library inline imports
+local ____exports = {}
+local ____measureLayout = require("ui.layout.measureLayout")
+local measureLayout = ____measureLayout.measureLayout
+local ____Background = require("ui.decorations.Background")
+local Background = ____Background.Background
+local ____Border = require("ui.decorations.Border")
+local Border = ____Border.Border
+local ____statusBarTextures = require("ui.decorations.statusBarTextures")
+local resolveStatusBarTexture = ____statusBarTextures.resolveStatusBarTexture
+local mountedFrames = __TS__New(Map)
+local mountedTrees = __TS__New(Map)
+function ____exports.unmount(self, frame)
+    local tree = mountedTrees:get(frame)
+    if tree == nil then
+        return
+    end
+    for ____, decoration in ipairs(tree.decorations) do
+        decoration:dispose()
+    end
+    for ____, child in ipairs(tree.frames) do
+        child:UnregisterAllEvents()
+        child:SetScript("OnEvent", nil)
+        child:Hide()
+    end
+    for ____, cell in ipairs(tree.cells) do
+        mountedFrames:delete(cell.props)
+    end
+    mountedTrees:delete(frame)
+end
+--- Creates the tree before resolving anchors. Positive y moves down.
+function ____exports.mount(self, element, parent, rootAnchor)
+    if parent == nil then
+        parent = UIParent
+    end
+    local frames = __TS__New(Map)
+    local pending = {}
+    local function create(self, measured, parent, placement)
+        local ____measured_0 = measured
+        local cell = ____measured_0.cell
+        local width = ____measured_0.width
+        local height = ____measured_0.height
+        if frames:has(cell.props) or mountedFrames:has(cell.props) then
+            error("A Cell can only be mounted once at a time")
+        end
+        local frame = cell.kind == "progress" and CreateFrame("StatusBar", nil, parent) or CreateFrame("Frame", nil, parent)
+        frame:Hide()
+        local ____frame_EnableMouse_2 = frame.EnableMouse
+        local ____cell_props_clickThrough_1 = cell.props.clickThrough
+        if ____cell_props_clickThrough_1 == nil then
+            ____cell_props_clickThrough_1 = true
+        end
+        ____frame_EnableMouse_2(frame, not ____cell_props_clickThrough_1)
+        frames:set(cell.props, frame)
+        pending[#pending + 1] = {
+            cell = cell,
+            width = width,
+            height = height,
+            margin = measured.margin,
+            frame = frame,
+            parent = parent,
+            placement = placement
+        }
+        frame:SetSize(width, height)
+        do
+            local index = 0
+            while index < #measured.children do
+                local ____create_6 = create
+                local ____measured_children_index_5 = measured.children[index + 1]
+                local ____opt_3 = measured.placements
+                ____create_6(nil, ____measured_children_index_5, frame, ____opt_3 and ____opt_3[index + 1])
+                index = index + 1
+            end
+        end
+        return frame
+    end
+    local rootProps = element.props
+    local root = create(
+        nil,
+        measureLayout(
+            nil,
+            element,
+            {
+                width = rootProps.width == "inherit" and parent:GetWidth() or nil,
+                height = rootProps.height == "inherit" and parent:GetHeight() or nil
+            }
+        ),
+        parent
+    )
+    local anchors = __TS__New(Map)
+    for ____, item in ipairs(pending) do
+        local position = item.cell.props
+        if item.placement ~= nil then
+            anchors:set(item.frame, item.parent)
+        elseif position.mode == "absolute" then
+            anchors:set(item.frame, UIParent)
+        else
+            local target = position.relativeTo == nil and item.parent or frames:get(position.relativeTo.props)
+            if target == nil then
+                error("relativeTo must reference a Cell in the same mounted tree")
+            end
+            if target == item.frame then
+                error("A Cell cannot anchor to itself")
+            end
+            anchors:set(item.frame, target)
+        end
+    end
+    for ____, item in ipairs(pending) do
+        local target = anchors:get(item.frame)
+        while target ~= nil do
+            if target == item.frame then
+                error("Cell positioning contains an anchor cycle")
+            end
+            target = anchors:get(target)
+        end
+    end
+    local tree = {
+        frames = __TS__ArrayMap(
+            pending,
+            function(____, item) return item.frame end
+        ),
+        cells = __TS__ArrayMap(
+            pending,
+            function(____, item) return item.cell end
+        ),
+        decorations = {}
+    }
+    mountedTrees:set(root, tree)
+    do
+        local function ____catch(failure)
+            ____exports.unmount(nil, root)
+            error(failure, 0)
+        end
+        local ____try, ____hasReturned = pcall(function()
+            for ____, item in ipairs(pending) do
+                local position = item.cell.props
+                local target = anchors:get(item.frame)
+                local ____opt_7 = item.placement
+                local x = ____opt_7 and ____opt_7.x or (position.mode == "absolute" and position.x or position.offset.x)
+                local ____opt_9 = item.placement
+                local y = ____opt_9 and ____opt_9.y or (position.mode == "absolute" and position.y or position.offset.y)
+                local ____temp_11
+                if item.frame == root then
+                    ____temp_11 = rootAnchor
+                else
+                    ____temp_11 = nil
+                end
+                local overrideAnchor = ____temp_11
+                local anchor = overrideAnchor or (item.placement ~= nil and "TOPLEFT" or (position.anchor or "TOPLEFT"))
+                local relativeAnchor = overrideAnchor or (item.placement ~= nil and "TOPLEFT" or (position.relativeAnchor or anchor))
+                item.frame:SetPoint(
+                    anchor,
+                    target,
+                    relativeAnchor,
+                    x + item.margin.left,
+                    -(y + item.margin.top)
+                )
+                if item.cell.kind == "progress" then
+                    local props = item.cell.props
+                    local bar = item.frame
+                    local ____opt_12 = props.foreground
+                    local color = ____opt_12 and ____opt_12.color or props.color
+                    local ____bar_SetStatusBarTexture_17 = bar.SetStatusBarTexture
+                    local ____resolveStatusBarTexture_16 = resolveStatusBarTexture
+                    local ____opt_14 = props.foreground
+                    ____bar_SetStatusBarTexture_17(
+                        bar,
+                        ____resolveStatusBarTexture_16(nil, ____opt_14 and ____opt_14.texture or props.texture or "solid")
+                    )
+                    bar:SetStatusBarColor(color and color.r or 1, color and color.g or 1, color and color.b or 1, color and color.a or 1)
+                    if props.foreground ~= nil then
+                        local fill = bar:GetStatusBarTexture()
+                        local ____fill_SetHorizTile_27 = fill.SetHorizTile
+                        local ____props_foreground_tileX_26 = props.foreground.tileX
+                        if ____props_foreground_tileX_26 == nil then
+                            ____props_foreground_tileX_26 = false
+                        end
+                        ____fill_SetHorizTile_27(fill, ____props_foreground_tileX_26)
+                        local ____fill_SetVertTile_29 = fill.SetVertTile
+                        local ____props_foreground_tileY_28 = props.foreground.tileY
+                        if ____props_foreground_tileY_28 == nil then
+                            ____props_foreground_tileY_28 = false
+                        end
+                        ____fill_SetVertTile_29(fill, ____props_foreground_tileY_28)
+                        fill:SetBlendMode(props.foreground.blendMode or "BLEND")
+                        local uv = props.foreground.texCoords or ({0, 1, 0, 1})
+                        fill:SetTexCoord(uv[1], uv[2], uv[3], uv[4])
+                    end
+                    bar:SetOrientation(props.orientation == "vertical" and "VERTICAL" or "HORIZONTAL")
+                    local ____bar_SetReverseFill_31 = bar.SetReverseFill
+                    local ____props_reverse_30 = props.reverse
+                    if ____props_reverse_30 == nil then
+                        ____props_reverse_30 = false
+                    end
+                    ____bar_SetReverseFill_31(bar, ____props_reverse_30)
+                    bar:SetMinMaxValues(props.min or 0, props.max or 100)
+                    local source = item.cell.source or props.source
+                    if source ~= nil then
+                        source:BindTo(bar, {min = props.min, max = props.max, current = props.current or props.value})
+                    else
+                        bar:SetValue(props.current or props.value or 0)
+                    end
+                end
+                local decorations = item.cell.props.decorations
+                local function attach(self, decoration)
+                    if decoration ~= nil then
+                        decoration:mount(item.frame, item.width, item.height)
+                        local ____tree_decorations_32 = tree.decorations
+                        ____tree_decorations_32[#____tree_decorations_32 + 1] = decoration
+                    end
+                end
+                local progress = item.cell.kind == "progress" and item.cell.props or nil
+                local ____attach_40 = attach
+                local ____temp_39
+                if (progress and progress.background) == false then
+                    ____temp_39 = nil
+                else
+                    ____temp_39 = (progress and progress.background) ~= nil and __TS__New(Background, progress.background) or decorations and decorations.background
+                end
+                ____attach_40(nil, ____temp_39)
+                local ____attach_48 = attach
+                local ____temp_47
+                if (progress and progress.backdrop) == false then
+                    ____temp_47 = nil
+                else
+                    ____temp_47 = (progress and progress.backdrop) ~= nil and __TS__New(Border, progress.backdrop) or decorations and decorations.border
+                end
+                ____attach_48(nil, ____temp_47)
+                attach(nil, decorations and decorations.glow)
+                mountedFrames:set(item.cell.props, item.frame)
+                item.frame:Show()
+            end
+        end)
+        if not ____try then
+            ____catch(____hasReturned)
+        end
+    end
+    return root
+end
+return ____exports

package/lib/ui/primitives/jsx.d.ts

@@ -0,0 +1,38 @@
+import type { CellProps } from "../Cell";
+import type { FlowLayoutProps } from "../FlowLayout";
+import type { GridLayoutProps } from "../GridLayout";
+import type { ProgressBarProps } from "../ProgressBar";
+import type { ProgressSource } from "../../datasources/ProgressSource";
+/** Declarative UI description; native frames are created by mount. */
+export interface Element {
+    kind: string;
+    props: object;
+    child?: Element;
+    children?: Element[];
+    source?: ProgressSource;
+}
+export type Component<P extends object> = (props: P, child?: Element) => Element;
+export declare namespace UI {
+    function Fragment(): Element;
+    function createElement<P extends object>(component: Component<P> | "cell" | "flow" | "grid" | "progress", props: P | undefined, ...children: (Element | Element[])[]): Element;
+    namespace JSX {
+        type Element = import("./jsx").Element;
+        interface ElementChildrenAttribute {
+            child: {};
+        }
+        interface IntrinsicElements {
+            cell: Partial<CellProps> & {
+                child?: Element;
+            };
+            flow: Partial<FlowLayoutProps> & {
+                child?: Element | Element[];
+            };
+            grid: Partial<GridLayoutProps> & {
+                child?: Element | Element[];
+            };
+            progress: Partial<ProgressBarProps> & {
+                child?: Element;
+            };
+        }
+    }
+}

package/lib/ui/primitives/jsx.lua

@@ -0,0 +1,66 @@
+--[[ Generated with https://github.com/TypeScriptToLua/TypeScriptToLua ]]
+-- Lua Library inline imports
+local function __TS__ArrayIsArray(value)
+    return type(value) == "table" and (value[1] ~= nil or next(value) == nil)
+end
+
+local function __TS__ObjectAssign(target, ...)
+    local sources = {...}
+    for i = 1, #sources do
+        local source = sources[i]
+        if type(source) == "table" then
+            for key in pairs(source) do
+                target[key] = source[key]
+            end
+        end
+    end
+    return target
+end
+-- End of Lua Library inline imports
+local ____exports = {}
+____exports.UI = {}
+local UI = ____exports.UI
+do
+    function UI.Fragment(self)
+        return {kind = "empty", props = {}}
+    end
+    function UI.createElement(self, component, props, ...)
+        local children = {...}
+        local elements = {}
+        for ____, child in ipairs(children) do
+            if __TS__ArrayIsArray(child) then
+                for ____, element in ipairs(child) do
+                    elements[#elements + 1] = element
+                end
+            else
+                elements[#elements + 1] = child
+            end
+        end
+        local properties = props or ({})
+        if type(component) == "string" then
+            local input = properties
+            local resolved = __TS__ObjectAssign(
+                {},
+                properties,
+                {width = input.width or (input.sizing == "content" and 0 or "inherit"), height = input.height or (input.sizing == "content" and 0 or "inherit"), mode = input.mode or "relative"},
+                input.mode == "absolute" and ({x = input.x or 0, y = input.y or 0}) or ({offset = input.offset or ({x = 0, y = 0})}),
+                component == "flow" and ({direction = input.direction or "vertical"}) or ({}),
+                component == "grid" and ({columns = input.columns or 1}) or ({})
+            )
+            if component == "flow" or component == "grid" then
+                return {kind = component, props = resolved, children = elements}
+            end
+            if #elements > 1 then
+                error("Cell accepts at most one child; use FlowLayout for multiple children", 0)
+            end
+            return {kind = component, props = resolved, child = elements[1], source = properties.source}
+        end
+        local componentProps = #children == 0 and properties or __TS__ObjectAssign({}, properties, {child = #elements == 1 and elements[1] or elements})
+        if component == UI.Fragment and #elements ~= 0 then
+            error("Only empty fragments are supported for now", 0)
+        end
+        return component(nil, componentProps, elements[1])
+    end
+    UI.JSX = {}
+end
+return ____exports

package/lib/wuira.d.ts

@@ -0,0 +1,8 @@
+import type { Cell } from "./ui/Cell";
+import type { Anchor } from "./types/Position";
+/** Public entry point for mounting JSX UI trees. */
+export declare class wuira {
+    private constructor();
+    static Mount(frame: Cell | void | (() => Cell | void), anchor?: Anchor, parent?: wuiraNativeFrame): wuiraNativeFrame | undefined;
+    static Unmount(frame: wuiraNativeFrame): void;
+}

package/lib/wuira.lua

@@ -0,0 +1,36 @@
+--[[ Generated with https://github.com/TypeScriptToLua/TypeScriptToLua ]]
+-- Lua Library inline imports
+local function __TS__Class(self)
+    local c = {prototype = {}}
+    c.prototype.__index = c.prototype
+    c.prototype.constructor = c
+    return c
+end
+-- End of Lua Library inline imports
+local ____exports = {}
+local ____mount = require("ui.mount")
+local mount = ____mount.mount
+local unmount = ____mount.unmount
+--- Public entry point for mounting JSX UI trees.
+____exports.wuira = __TS__Class()
+local wuira = ____exports.wuira
+wuira.name = "wuira"
+function wuira.prototype.____constructor(self)
+end
+function wuira.Mount(self, frame, anchor, parent)
+    local ____temp_0
+    if type(frame) == "function" then
+        ____temp_0 = frame(nil)
+    else
+        ____temp_0 = frame
+    end
+    local view = ____temp_0
+    if view == nil or view.kind == "empty" then
+        return nil
+    end
+    return mount(nil, view, parent, anchor)
+end
+function wuira.Unmount(self, frame)
+    unmount(nil, frame)
+end
+return ____exports