Scite File Browser

wiki

-- SciteFileBrwoser.lua
-- 15.06.2012
-- apasejkin at interzet dot ru

local cmd, dir, pat, up, sep, begPos, endPos

if props['PLAT_WIN'] == '1' then
    cmd = 'dir /b /o /a:-h '
    sep = '\\'
    pat = '\\[^\\]+$'
elseif props['PLAT_GTK'] == '1' then
    cmd = 'ls -1v '
    sep = '/'
    pat = '/[^/]+$'
end
up = '[..]'

local function updateContent()
    if begPos and endPos then
        output:remove(begPos, endPos)
    end
    begPos = output.CurrentPos
    local content = io.popen(cmd..'"'..dir..sep..'"')
    print(dir..sep)
    print(up)
    print(content:read '*a')
    content:close()
    endPos = output.CurrentPos
end

function createContent()
    dir = props['FileDir']
    updateContent()
end

local oldOnDoubleClick = OnDoubleClick or function()end
function OnDoubleClick()
    oldOnDoubleClick()
    local name, path
    name = output:GetCurLine():sub(1, -2)
    if not dir
    or not output.Focus
    or name == '' or name == dir..sep
    or endPos <= output.CurrentPos
    or output.CurrentPos <= begPos then
        return
    end
    if name == up then
        path = dir:gsub(pat, '')
    else
        path = dir..sep..name
    end
    local file = io.open(path)
    local x,err=file:read(1)
    if io.type(file) and err==nil then
        file:close()
        scite.Open(path)
    else
        dir = path
        updateContent()
    end
end

command.name.3.*=FileBrowser
command.mode.3.*=subsystem:lua,savebefore:no
command.3.*=dostring createContent()