wuira 0.1.4 → 0.1.6

package/lib/skins/NativeSkin.lua

@@ -0,0 +1,601 @@
+--[[ 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 function __TS__New(target, ...)
+    local instance = setmetatable({}, target.prototype)
+    instance:____constructor(...)
+    return instance
+end
+
+local Set
+do
+    Set = __TS__Class()
+    Set.name = "Set"
+    function Set.prototype.____constructor(self, values)
+        self[Symbol.toStringTag] = "Set"
+        self.size = 0
+        self.nextKey = {}
+        self.previousKey = {}
+        if values == nil then
+            return
+        end
+        local iterable = values
+        if iterable[Symbol.iterator] then
+            local iterator = iterable[Symbol.iterator](iterable)
+            while true do
+                local result = iterator:next()
+                if result.done then
+                    break
+                end
+                self:add(result.value)
+            end
+        else
+            local array = values
+            for ____, value in ipairs(array) do
+                self:add(value)
+            end
+        end
+    end
+    function Set.prototype.add(self, value)
+        local isNewValue = not self:has(value)
+        if isNewValue then
+            self.size = self.size + 1
+        end
+        if self.firstKey == nil then
+            self.firstKey = value
+            self.lastKey = value
+        elseif isNewValue then
+            self.nextKey[self.lastKey] = value
+            self.previousKey[value] = self.lastKey
+            self.lastKey = value
+        end
+        return self
+    end
+    function Set.prototype.clear(self)
+        self.nextKey = {}
+        self.previousKey = {}
+        self.firstKey = nil
+        self.lastKey = nil
+        self.size = 0
+    end
+    function Set.prototype.delete(self, value)
+        local contains = self:has(value)
+        if contains then
+            self.size = self.size - 1
+            local next = self.nextKey[value]
+            local previous = self.previousKey[value]
+            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[value] = nil
+            self.previousKey[value] = nil
+        end
+        return contains
+    end
+    function Set.prototype.forEach(self, callback)
+        for ____, key in __TS__Iterator(self:keys()) do
+            callback(nil, key, key, self)
+        end
+    end
+    function Set.prototype.has(self, value)
+        return self.nextKey[value] ~= nil or self.lastKey == value
+    end
+    Set.prototype[Symbol.iterator] = function(self)
+        return self:values()
+    end
+    function Set.prototype.entries(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, key}}
+            end
+        }
+    end
+    function Set.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 Set.prototype.values(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 Set.prototype.union(self, other)
+        local result = __TS__New(Set, self)
+        for ____, item in __TS__Iterator(other) do
+            result:add(item)
+        end
+        return result
+    end
+    function Set.prototype.intersection(self, other)
+        local result = __TS__New(Set)
+        for ____, item in __TS__Iterator(self) do
+            if other:has(item) then
+                result:add(item)
+            end
+        end
+        return result
+    end
+    function Set.prototype.difference(self, other)
+        local result = __TS__New(Set, self)
+        for ____, item in __TS__Iterator(other) do
+            result:delete(item)
+        end
+        return result
+    end
+    function Set.prototype.symmetricDifference(self, other)
+        local result = __TS__New(Set, self)
+        for ____, item in __TS__Iterator(other) do
+            if self:has(item) then
+                result:delete(item)
+            else
+                result:add(item)
+            end
+        end
+        return result
+    end
+    function Set.prototype.isSubsetOf(self, other)
+        for ____, item in __TS__Iterator(self) do
+            if not other:has(item) then
+                return false
+            end
+        end
+        return true
+    end
+    function Set.prototype.isSupersetOf(self, other)
+        for ____, item in __TS__Iterator(other) do
+            if not self:has(item) then
+                return false
+            end
+        end
+        return true
+    end
+    function Set.prototype.isDisjointFrom(self, other)
+        for ____, item in __TS__Iterator(self) do
+            if other:has(item) then
+                return false
+            end
+        end
+        return true
+    end
+    Set[Symbol.species] = Set
+end
+
+local function __TS__ArraySetLength(self, length)
+    if length < 0 or length ~= length or length == math.huge or math.floor(length) ~= length then
+        error(
+            "invalid array length: " .. tostring(length),
+            0
+        )
+    end
+    for i = length + 1, #self do
+        self[i] = nil
+    end
+    return length
+end
+
+local function __TS__CloneDescriptor(____bindingPattern0)
+    local value
+    local writable
+    local set
+    local get
+    local configurable
+    local enumerable
+    enumerable = ____bindingPattern0.enumerable
+    configurable = ____bindingPattern0.configurable
+    get = ____bindingPattern0.get
+    set = ____bindingPattern0.set
+    writable = ____bindingPattern0.writable
+    value = ____bindingPattern0.value
+    local descriptor = {enumerable = enumerable == true, configurable = configurable == true}
+    local hasGetterOrSetter = get ~= nil or set ~= nil
+    local hasValueOrWritableAttribute = writable ~= nil or value ~= nil
+    if hasGetterOrSetter and hasValueOrWritableAttribute then
+        error("Invalid property descriptor. Cannot both specify accessors and a value or writable attribute.", 0)
+    end
+    if get or set then
+        descriptor.get = get
+        descriptor.set = set
+    else
+        descriptor.value = value
+        descriptor.writable = writable == true
+    end
+    return descriptor
+end
+
+local __TS__DescriptorGet
+do
+    local getmetatable = _G.getmetatable
+    local ____rawget = _G.rawget
+    function __TS__DescriptorGet(self, metatable, key)
+        while metatable do
+            local rawResult = ____rawget(metatable, key)
+            if rawResult ~= nil then
+                return rawResult
+            end
+            local descriptors = ____rawget(metatable, "_descriptors")
+            if descriptors then
+                local descriptor = descriptors[key]
+                if descriptor ~= nil then
+                    if descriptor.get then
+                        return descriptor.get(self)
+                    end
+                    return descriptor.value
+                end
+            end
+            metatable = getmetatable(metatable)
+        end
+    end
+end
+
+local __TS__DescriptorSet
+do
+    local getmetatable = _G.getmetatable
+    local ____rawget = _G.rawget
+    local rawset = _G.rawset
+    function __TS__DescriptorSet(self, metatable, key, value)
+        while metatable do
+            local descriptors = ____rawget(metatable, "_descriptors")
+            if descriptors then
+                local descriptor = descriptors[key]
+                if descriptor ~= nil then
+                    if descriptor.set then
+                        descriptor.set(self, value)
+                    else
+                        if descriptor.writable == false then
+                            error(
+                                ((("Cannot assign to read only property '" .. key) .. "' of object '") .. tostring(self)) .. "'",
+                                0
+                            )
+                        end
+                        descriptor.value = value
+                    end
+                    return
+                end
+            end
+            metatable = getmetatable(metatable)
+        end
+        rawset(self, key, value)
+    end
+end
+
+local __TS__SetDescriptor
+do
+    local getmetatable = _G.getmetatable
+    local function descriptorIndex(self, key)
+        return __TS__DescriptorGet(
+            self,
+            getmetatable(self),
+            key
+        )
+    end
+    local function descriptorNewIndex(self, key, value)
+        return __TS__DescriptorSet(
+            self,
+            getmetatable(self),
+            key,
+            value
+        )
+    end
+    function __TS__SetDescriptor(target, key, desc, isPrototype)
+        if isPrototype == nil then
+            isPrototype = false
+        end
+        local ____isPrototype_0
+        if isPrototype then
+            ____isPrototype_0 = target
+        else
+            ____isPrototype_0 = getmetatable(target)
+        end
+        local metatable = ____isPrototype_0
+        if not metatable then
+            metatable = {}
+            setmetatable(target, metatable)
+        end
+        if not isPrototype and not rawget(metatable, "_isOwnDescriptorMetatable") then
+            local instanceMetatable = {}
+            instanceMetatable._isOwnDescriptorMetatable = true
+            setmetatable(instanceMetatable, metatable)
+            setmetatable(target, instanceMetatable)
+            metatable = instanceMetatable
+        end
+        local value = rawget(target, key)
+        if value ~= nil then
+            rawset(target, key, nil)
+        end
+        if not rawget(metatable, "_descriptors") then
+            metatable._descriptors = {}
+        end
+        metatable._descriptors[key] = __TS__CloneDescriptor(desc)
+        metatable.__index = descriptorIndex
+        metatable.__newindex = descriptorNewIndex
+    end
+end
+-- End of Lua Library inline imports
+local ____exports = {}
+local ____wuira = require("wuira")
+local wuira = ____wuira.wuira
+--- A presentation adapter around a game-owned frame, not a replacement widget.
+____exports.NativeSkin = __TS__Class()
+local NativeSkin = ____exports.NativeSkin
+NativeSkin.name = "NativeSkin"
+function NativeSkin.prototype.____constructor(self, name)
+    self.name = name
+    self.renderPending = false
+    self.rendering = false
+    self.disposed = false
+    self.disposing = false
+    self.hovered = false
+    self.views = {}
+    self.hoverListeners = __TS__New(Set)
+    self.hooked = __TS__New(Set)
+end
+function NativeSkin.prototype.render(self, renderer)
+    if self.disposed or self.disposing then
+        error("Skin is disposed")
+    end
+    for ____, view in ipairs(self.views) do
+        wuira:Unmount(view)
+    end
+    __TS__ArraySetLength(self.views, 0)
+    self.renderer = renderer
+    self.renderPending = true
+    self:watch()
+    return self
+end
+function NativeSkin.prototype.mount(self, view, anchor)
+    if self.disposed or self.disposing then
+        error("Skin is disposed")
+    end
+    if InCombatLockdown() then
+        error("Skin: mount native children outside combat")
+    end
+    local parent = self.Frame
+    if parent == nil then
+        error("Skin: mount inside render() after the native frame is ready")
+    end
+    local mounted = wuira:Mount(view, anchor, parent)
+    if mounted ~= nil then
+        local ____self_views_0 = self.views
+        ____self_views_0[#____self_views_0 + 1] = mounted
+    end
+    return mounted
+end
+function NativeSkin.prototype.OnHover(self, callback)
+    if self.disposed or self.disposing then
+        error("Skin is disposed")
+    end
+    self.hoverListeners:add(callback)
+    self:watch()
+    return function()
+        self.hoverListeners:delete(callback)
+    end
+end
+function NativeSkin.prototype.watch(self)
+    if self.listener == nil then
+        self.listener = CreateFrame("Frame", nil, UIParent)
+        self.listener:RegisterEvent("ADDON_LOADED")
+        self.listener:RegisterEvent("PLAYER_ENTERING_WORLD")
+        self.listener:RegisterEvent("PLAYER_REGEN_ENABLED")
+        self.listener:SetScript(
+            "OnEvent",
+            function() return self:apply() end
+        )
+    end
+    self:apply()
+end
+function NativeSkin.prototype.apply(self)
+    if self.disposing then
+        if not InCombatLockdown() then
+            self:Dispose()
+        end
+        return
+    end
+    if self.disposed or self.rendering or InCombatLockdown() then
+        return
+    end
+    local frame = self.Frame
+    if frame == nil then
+        return
+    end
+    if self.renderPending and self.renderer ~= nil then
+        self.renderPending = false
+        self.rendering = true
+        do
+            local ____try, ____error = pcall(function()
+                self.renderer(self)
+            end)
+            do
+                self.rendering = false
+            end
+            if not ____try then
+                error(____error, 0)
+            end
+        end
+    end
+    if self.hoverListeners.size == 0 then
+        return
+    end
+    local function notify()
+        if self.disposed or self.hoverListeners.size == 0 then
+            return
+        end
+        local hovered = frame:IsMouseOver()
+        if hovered == self.hovered then
+            return
+        end
+        self.hovered = hovered
+        for ____, callback in __TS__Iterator(self.hoverListeners) do
+            callback(hovered)
+        end
+    end
+    local visit
+    visit = function(____, target)
+        if not self.hooked:has(target) then
+            self.hooked:add(target)
+            target:HookScript("OnEnter", notify)
+            target:HookScript("OnLeave", notify)
+        end
+        for ____, child in ipairs({target:GetChildren()}) do
+            visit(nil, child)
+        end
+    end
+    visit(nil, frame)
+end
+function NativeSkin.prototype.Dispose(self)
+    if self.disposed then
+        return
+    end
+    if InCombatLockdown() then
+        self.disposing = true
+        self:watch()
+        return
+    end
+    self.disposed = true
+    self.hoverListeners:clear()
+    local ____opt_1 = self.listener
+    if ____opt_1 ~= nil then
+        ____opt_1:UnregisterAllEvents()
+    end
+    local ____opt_3 = self.listener
+    if ____opt_3 ~= nil then
+        ____opt_3:SetScript("OnEvent", nil)
+    end
+    for ____, view in ipairs(self.views) do
+        wuira:Unmount(view)
+    end
+    __TS__ArraySetLength(self.views, 0)
+end
+__TS__SetDescriptor(
+    NativeSkin.prototype,
+    "Frame",
+    {get = function(self)
+        return _G[self.name]
+    end},
+    true
+)
+return ____exports

package/lib/skins/index.d.ts

@@ -0,0 +1,3 @@
+/// <reference path="../platform/forever.d.ts" />
+export { NativeSkin } from "./NativeSkin";
+export { MicroBar } from "./MicroBar";

package/lib/skins/index.lua

@@ -0,0 +1,11 @@
+--[[ Generated with https://github.com/TypeScriptToLua/TypeScriptToLua ]]
+local ____exports = {}
+do
+    local ____NativeSkin = require("skins.NativeSkin")
+    ____exports.NativeSkin = ____NativeSkin.NativeSkin
+end
+do
+    local ____MicroBar = require("skins.MicroBar")
+    ____exports.MicroBar = ____MicroBar.MicroBar
+end
+return ____exports

package/lib/store/index.lua

@@ -310,6 +310,16 @@ local function __TS__TypeOf(value)
     end
 end
 
+local function __TS__ObjectKeys(obj)
+    local result = {}
+    local len = 0
+    for key in pairs(obj) do
+        len = len + 1
+        result[len] = key
+    end
+    return result
+end
+
 local function __TS__ArrayIsArray(value)
     return type(value) == "table" and (value[1] ~= nil or next(value) == nil)
 end
@@ -687,6 +697,9 @@ local function restore(self, defaults, saved)
     if saved == nil or __TS__TypeOf(saved) ~= __TS__TypeOf(defaults) or saved == nil then
         return copy(nil, defaults)
     end
+    if type(defaults) == "table" and defaults ~= nil and #__TS__ObjectKeys(defaults) == 0 then
+        return copy(nil, saved)
+    end
     if __TS__ArrayIsArray(defaults) then
         local ____Array_isArray_result_0
         if __TS__ArrayIsArray(saved) then

package/lib/ui/Button.d.ts

@@ -0,0 +1,10 @@
+import type { Cell, CellProps } from "./Cell";
+import type { Element } from "./primitives/jsx";
+export type ButtonProps = CellProps & {
+    onClick?: () => void;
+    clickThrough?: false;
+};
+/** A normal UI button for settings and editor controls. */
+export declare function Button(props: Partial<ButtonProps> & {
+    child?: Element;
+}, child?: Element): Cell;

package/lib/ui/Button.lua

@@ -0,0 +1,9 @@
+--[[ Generated with https://github.com/TypeScriptToLua/TypeScriptToLua ]]
+local ____exports = {}
+local ____jsx = require("ui.primitives.jsx")
+local UI = ____jsx.UI
+--- A normal UI button for settings and editor controls.
+function ____exports.Button(self, props, child)
+    return UI:createElement("button", props, props.child or child or ({}))
+end
+return ____exports

package/lib/ui/Cell.d.ts

@@ -14,9 +14,15 @@ export type CellProps = {
     /** Defaults to true: visual cells do not intercept mouse input. */
     clickThrough?: boolean;
     decorations?: Decorations;
+    /** Visual opacity, including live callbacks; does not change secure actions. */
+    alpha?: number | (() => number);
+    /** Called after native configuration. The optional cleanup runs on unmount. */
+    onMount?: (frame: wuiraNativeFrame) => void | (() => void);
+    /** Visibility does not remove the cell's reserved layout slot. */
+    visible?: () => boolean;
 } & Position<ICell>;
 export interface ICell extends Element {
-    kind: "cell" | "flow" | "grid" | "progress";
+    kind: "cell" | "flow" | "grid" | "progress" | "label" | "icon" | "button" | "secureButton";
     props: CellProps;
 }
 export declare function Cell(props: Partial<CellProps> & {

package/lib/ui/FrameMover.d.ts

@@ -0,0 +1,21 @@
+export interface FramePosition {
+    x: number;
+    y: number;
+}
+export interface FrameMoverOptions {
+    label: string;
+    onMove: (position: FramePosition) => void;
+}
+/** A screen-space drag proxy. Protected targets are positioned only outside combat. */
+export declare class FrameMover {
+    private readonly target;
+    private readonly options;
+    readonly Frame: wuiraNativeFrame;
+    private dragging;
+    private last?;
+    private disposed;
+    constructor(target: wuiraNativeFrame, options: FrameMoverOptions);
+    private Update;
+    private Stop;
+    Dispose(): void;
+}