phoi_Select items shorter than x ms.lua

reaper.PreventUIRefresh(1)
reaper.Undo_BeginBlock()

local retval, threshold_ms = reaper.GetUserInputs("Select items shorter than x ms", 1, "Selection threshold (ms)", 50)
if not retval then return end
local threshold = threshold_ms * 0.001


--unselect items first
while reaper.CountSelectedMediaItems(0) > 0 do
    local it = reaper.GetSelectedMediaItem(0, 0)
    reaper.SetMediaItemSelected(it, false)
end

for i = 0, reaper.CountMediaItems(0) - 1 do
    local it = reaper.GetMediaItem(0, i)
    local len = reaper.GetMediaItemInfo_Value(it, "D_LENGTH")
    if len < threshold then
        reaper.SetMediaItemSelected(it, true)
    end
end
reaper.Undo_EndBlock("Select items shorter than " .. threshold_ms .. " ms", -1)
reaper.PreventUIRefresh(-1)
reaper.UpdateArrange()