Выделить файлы новее текущего

Выделить файлы новее текущего

-- Выделить в активной панели все файлы/папки новее текущего,
-- используя API плагинов (LuaFAR).
Macro {
  description="Выделить в активной панели все файлы/папки новее текущего";
  area="Shell"; key="CtrlM";
  action=function()
    local info = panel.GetPanelInfo(nil,1)
    local curItem = panel.GetCurrentPanelItem(nil,1)
    for i=1,info.ItemsNumber do
      local item = panel.GetPanelItem(nil,1,i)
      if item.LastWriteTime > curItem.LastWriteTime then
        panel.SetSelection(nil,1,i,true)
      end
    end
    panel.RedrawPanel(nil,1)
  end;
}

-- Выделить в активной панели все файлы/папки новее текущего,
-- используя API макросов (LuaFAR + LuaMacro).
Macro {
  description="Выделить в активной панели все файлы/папки новее текущего";
  area="Shell"; key="CtrlM";
  action=function()
    d = Panel.Item(0,0,17)
    for i=1,APanel.ItemCount do
      if Panel.Item(0,i,17) > d then
        Panel.Select(0,1,1,i)
      end
    end
  end;
}