Deep Space Window manager 0.0.5

--[[
Author: Etan Reisner
Email: deryni@gmail.com
Summary: Toggle (and create) scratchpads by name.
Version: 0.2
Last Updated: 2007-01-23

Copyright (c) Etan Reisner 2007
--]]

-- Usage: This will create a scratchpad named example_sp
--          kpress(MOD4.."space", "named_scratchpad(_, 'example_sp')")

function named_scratchpad(reg, name)
    local named_sp
    local default_w, default_h = 640, 480
    local scr = reg:screen_of()
    local geom_scr = scr:geom()

    local geom_loc = {
        w = math.min(geom_scr.w, default_w),
        h = math.min(geom_scr.h, default_h),
    }
    geom_loc.x = (geom_scr.w - geom_loc.w) / 2
    geom_loc.y = (geom_scr.h - geom_loc.h) / 2

    named_sp = ioncore.lookup_region(name, "WFrame")

    if not named_sp then
        named_sp = scr:attach_new({
                                   type="WFrame",
                                   name=name,
                                   unnumbered=true,
                                   modal=false,
                                    --pseudomodal=true,
                                   hidden=true,
                                   --layer=2, 
                                   sizepolicy="free",
                                   geom=geom_loc,
                                  })
                              end
    mod_sp.set_shown(named_sp, "toggle")
    --ioncore.exec_on(named_sp, 'urxvt')
    --os.execute("urxvt")
end

-- vim: set expandtab sw=4:

local XA_CARDINAL = 6
local XA_INTEGER = 19

local num_atom = ioncore.x_intern_atom("_NET_NUMBER_OF_DESKTOPS", false)
local idx_atom = ioncore.x_intern_atom("_NET_CURRENT_DESKTOP", false)

local pager_timer = ioncore.create_timer()
local need_pager_update = true

local function update_pager()
    if need_pager_update then
        need_pager_update = false
        local scr = ioncore.find_screen_id(0)
        local num = scr:mx_count()
        local cur = scr:mx_current()
        local idx = scr:get_index(cur)
        local rootwin = scr -- reg:rootwin_of()
        ioncore.x_change_property(rootwin:xid(), num_atom, XA_CARDINAL, 32, "replace", {num})
        ioncore.x_change_property(rootwin:xid(), idx_atom, XA_CARDINAL, 32, "replace", {idx})
    end
    pager_timer:set(250, update_pager)
end

pager_timer:set(250, update_pager)

local function async_update_pager(reg, s)
    need_pager_update = true
    function update_pager()
end

ioncore.get_hook("region_notify_hook"):add(async_update_pager)