lite-xl/data/core/commands/files.lua

41 lines
1.0 KiB
Lua
Raw Normal View History

local core = require "core"
local command = require "core.command"
local function mkdirp(path)
local segments = {}
local pos = 1
while true do
local s, e = string.find(path, "[/\\]+", pos)
if not s then break end
table.insert(segments, string.sub(str, pos, s - 1))
pos = e + 1
end
table.insert(segments, string.sub(str, pos))
if segments[#segments] == '' then
table.remove(segments)
end
for i = 1, #segments do
local p = table.concat(segments, PATHSEP, 1, i)
local stat = system.get_file_info(p)
if stat and stat.type == "file" then
return nil, "path exists", p
end
local success, err = system.mkdir(p)
if not success then
return nil, err, p
end
end
end
command.add(nil, {
["files:create-directory"] = function()
core.command_view:enter("New directory name", function(text)
local success, err, path = mkdirp(text)
if not success then
core.error("cannot create directory %q: %s", path, err)
end
end)
end,
})