function FoldSome()
-- CONFIG
local FOLDSTART = 0 -- level to start folding (from 0)
local FOLDDEPTH = 5 -- fold depth; comment out if no limit
-- SCRIPT
FOLDSTART = FOLDSTART + 1024 -- internal counting from 1024
local FOLDEND = FOLDSTART + (FOLDDEPTH or 9999)
if FOLDEND <= FOLDSTART or FOLDEND > 4096 then
FOLDEND = 4096 end
local start, ending, hide
editor:Colourise(0, -1) -- update doc's folding info
for ln = 0, editor.LineCount - 1 do
local foldRaw = editor.FoldLevel[ln]
local foldLvl = math.mod(foldRaw, 4096)
local foldHdr = math.mod(math.floor(foldRaw / 8192), 2) == 1
--~ if ln < 28 then
--~ print(ln+1, "FL", foldRaw, foldLvl, foldHdr) end
-- fold if within limits and is a fold header
if foldHdr and foldLvl >= FOLDSTART and foldLvl < FOLDEND then
local expanded = editor.FoldExpanded[ln]
if foldLvl == FOLDSTART and not start then
-- start fold block
-- fix a hide/show setting for whole doc, for consistency
if hide == nil then hide = expanded end
start = ln + 1 -- remember range
ending = editor:GetLastChild(ln, foldLvl)
end
editor.FoldExpanded[ln] = not hide
end
-- if end of block, perform hide or show operation
if start and ln == ending then
if hide then
editor:HideLines(start, ending)
else
editor:ShowLines(start, ending)
end
start, ending = nil, nil
end
end --for
end
FoldSome()
