iframe-proxy | Sunbelt Computer Software

210 lines (190 loc) · 6.15 KB
--@ module = true
local dialogs = require('gui.dialogs')
local gui = require('gui')
local overlay = require('plugins.overlay')
local specs = reqscript('internal/confirm/specs')
local utils = require('utils')
local widgets = require("gui.widgets")
------------------------
function get_state()
    return specs.config.data
function set_enabled(id, enabled)
    for _, conf in pairs(specs.config.data) do
        if conf.id == id then
            if conf.enabled ~= enabled then
                conf.enabled = enabled
                specs.config:write()
            break
        end
------------------------
local function get_contexts()
    local contexts, contexts_set = {}, {}
    for id, conf in pairs(specs.REGISTRY) do
        if not contexts_set[id] then
            contexts_set[id] = true
            table.insert(contexts, conf.context)
        end
    return contexts
ConfirmOverlay = defclass(ConfirmOverlay, overlay.OverlayWidget)
ConfirmOverlay.ATTRS{
    desc='Detects dangerous actions and prompts with confirmation dialogs.',
    default_pos={x=1,y=1},
    default_enabled=true,
    full_interface=true,  -- not player-repositionable
    hotspot=true,       -- need to reset pause when we're not in target contexts
    overlay_onupdate_max_freq_seconds=300,
    viewscreens=get_contexts(),
function ConfirmOverlay:init()
    for id, conf in pairs(specs.REGISTRY) do
        if conf.intercept_frame then
            self:addviews{
                widgets.Panel{
                    view_id=id,
                    frame=copyall(conf.intercept_frame),
                    frame_style=conf.debug_frame and gui.FRAME_INTERIOR or nil,
        end
    self.paused_confs = {}
function ConfirmOverlay:preUpdateLayout()
    local interface_rect = gui.get_interface_rect()
    self.frame.w, self.frame.h = interface_rect.width, interface_rect.height
    -- reset frames if any of them have been pushed out of position
    for id, conf in pairs(specs.REGISTRY) do
        if conf.intercept_frame then
            self.subviews[id].frame = copyall(conf.intercept_frame)
        end
function ConfirmOverlay:overlay_onupdate()
    for conf in pairs(self.paused_confs) do
        if not dfhack.gui.matchFocusString(conf.context,
                dfhack.gui.getDFViewscreen(true))
        then
            self.paused_confs[conf] = nil
        end
    if not next(self.paused_confs) then
        self.overlay_onupdate_max_freq_seconds = 300
function ConfirmOverlay:matches_conf(conf, keys, scr)
    local matched_keys = false
    for _, key in ipairs(conf.intercept_keys) do
        if keys[key] then
            matched_keys = true
            break
        end
    if not matched_keys then return false end
    local mouse_offset
    if keys._MOUSE_L and conf.intercept_frame then
        local mousex, mousey = self.subviews[conf.id]:getMouseFramePos()
        if not mousex then
            return false
        end
        mouse_offset = xy2pos(mousex, mousey)
    if not dfhack.gui.matchFocusString(conf.context, scr) then return false end
    return not conf.predicate or conf.predicate(keys, mouse_offset)
function ConfirmOverlay:onInput(keys)
    if self.simulating then
        return false
    local scr = dfhack.gui.getDFViewscreen(true)
    for id, conf in pairs(specs.REGISTRY) do
        if specs.config.data[id].enabled and self:matches_conf(conf, keys, scr) then
            if self.paused_confs[conf] then
                return false
            local mouse_pos = xy2pos(dfhack.screen.getMousePos())
            local propagate_fn = function(pause)
                if conf.on_propagate then
                    conf.on_propagate()
                if pause then
                    self.paused_confs[conf] = true
                    self.overlay_onupdate_max_freq_seconds = 0
                if keys._MOUSE_L then
                    df.global.gps.mouse_x = mouse_pos.x
                    df.global.gps.mouse_y = mouse_pos.y
                self.simulating = true
                gui.simulateInput(scr, keys)
                self.simulating = false
            local pause_fn = conf.pausable and curry(propagate_fn, true) or nil
            dialogs.showYesNoPrompt(conf.title, utils.getval(conf.message):wrap(45), COLOR_YELLOW,
                propagate_fn, nil, pause_fn, curry(dfhack.run_script, 'gui/confirm', tostring(conf.id)))
            return true
        end
function ConfirmOverlay:render(dc)
    if gui.blink_visible(500) then
        return
    ConfirmOverlay.super.render(self, dc)
OVERLAY_WIDGETS = {
    overlay=ConfirmOverlay,
------------------------
local function do_list()
    print('Available confirmation prompts:')
    local confs, max_len = {}, 10
    for id, conf in pairs(specs.REGISTRY) do
        max_len = math.max(max_len, #id)
        table.insert(confs, conf)
    table.sort(confs, function(a,b) return a.id < b.id end)
    for _, conf in ipairs(confs) do
        local fmt = '%' .. tostring(max_len) .. 's: %s %s'
        print((fmt):format(conf.id,
            specs.config.data[conf.id].enabled and '(enabled) ' or '(disabled)',
            conf.title))
local function do_enable_disable(args, enable)
    if args[1] == 'all' then
        for id in pairs(specs.REGISTRY) do
            set_enabled(id, enable)
        end
        for _, id in ipairs(args) do
            if not specs.REGISTRY[id] then
                qerror('confirmation prompt id not found: ' .. tostring(id))
            set_enabled(id, enable)
        end
local function main(args)
    local command = table.remove(args, 1)
    if not command or command == 'list' then
        do_list()
    elseif command == 'enable' or command == 'disable' then
        do_enable_disable(args, command == 'enable')
    elseif command == 'help' then
        print(dfhack.script_help())
        dfhack.printerr('unknown command: ' .. tostring(command))
if not dfhack_flags.module then
    main{...}
Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

confirm.lua

Latest commit

History

confirm.lua

File metadata and controls
