help.lua

local expect = require "cc.expect"
local fs = require "fs"

local help = {}
local path = "/usr/share/man/*:/usr/local/share/man/*"

function help.path()
    return path
end

function help.setPath(newPath)
    expect(1, newPath, "string")
    path = newPath
end

function help.lookup(topic)
    expect(1, topic, "string")
    for p in path:gmatch "[^:]+" do
        local t = fs.find(fs.combine(p, topic .. ".*"))
        if #t > 0 then return table.unpack(t) end
    end
    return nil
end

function help.topics()
    local retval = {}
    for p in path:gmatch "[^:]+" do
        for dir in ipairs(fs.find(p)) do
            for _, v in ipairs(fs.list(dir)) do
                retval[#retval+1] = v:gsub("%..*$", "")
            end
        end
    end
    return retval
end

function help.completeTopic(topic)
    expect(1, topic, "string")
    local retval = {}
    for p in path:gmatch "[^:]+" do
        for _, v in ipairs(fs.find(fs.combine(p, topic .. "*"))) do
            retval[#retval+1] = v:match(topic .. "([^/%.]+)%.?[^/]*$")
        end
    end
    return retval
end

return help