MC 1.3

--[[ Midday Commander Color Ver. 1.3
     Created by Dimus & Neo
     No rights reserved ]]
local function SetColor(cl)
  term.setTextColor(cl[1])
  term.setBackgroundColor(cl[2])
end
local NormalCl, PanelCl, SelectCl, WindowCl, AlarmWinCl
NormalCl={colors.white,colors.black}
if term.isColor() then
  PanelCl={colors.white,colors.blue}
  SelectCl={colors.black,colors.cyan}
  WindowCl={colors.white,colors.green}
  AlarmWinCl={colors.white,colors.red}
else
  PanelCl=NormalCl
  SelectCl={colors.black,colors.white}
  WindowCl=NormalCl
  AlarmWinCl=NormalCl
end
local wScr, hScr = term.getSize()
local wPanA = math.ceil(wScr / 2)
if wPanA<16 then wPanA=16 end
local wPanP=wScr-wPanA+1

local Menu
if wScr<27 then
  Menu={'','','','Ed','Cp','Mv','Dr','Dl','','Ex'}
elseif wScr<51 then
  Menu={'Hlp','','','Edt','Cpy','Mov','Dir','Del','','Ext'}
else
  Menu={'Help','','','Edit','Copy','Move','Dir','Del','','Exit'}
end
local help={"Up,Down - Navigation", "Tab - Change panel",
'Enter - Change dir/run program','Ctrl+Enter - Insert into command line',
'F1 - This help','F4 - Edit file','Shift+F4 - Create new file',
'F5 - Copy file/dir','F6 - Move file/dir','F7 - Create directory',
'Alt+F7 - Find file/dir','F8 - Delete file/dir','F10 - Exit from MC'}
local xMenu=-1
for i=1,#Menu do
  if #Menu[i]>0 then xMenu=xMenu+#tostring(i)+#Menu[i]+2 end
end
xMenu=math.ceil((wScr-xMenu) / 2)

local panel ={}
local Active

local cmdstr=''
local curpos=0
local function ShowCmd()
  SetColor(NormalCl)
  term.setCursorPos(1, hScr-1)
  term.clearLine()
  term.write(shell.dir()..'> '..cmdstr)
  term.setCursorPos(term.getCursorPos()-curpos, hScr-1)
end

function panel:ShowFirst()
  local p=self.Path..'/'
  if #p> self.wPan-6 then p='..'..p:sub(#p-self.wPan+7) end
  p=' '..p..' '
  term.setCursorPos(self.X, 1)
  term.write('+'..string.rep('-',self.wPan-2)..'+')
  term.setCursorPos(self.X+(self.wPan-#p)/2,1)
  if self==Active then
    SetColor(SelectCl)
    term.write(p)
    SetColor(PanelCl)
  else
    term.write(p)
  end
end

function panel:ShowLine(Line)
  term.setCursorPos(self.X, Line-self.Shift+2)
  if self.tFiles[Line]~=nil then
    local Name=self.tFiles[Line]
    if self.tSize[Line]=='DIR' then Name='/'..Name end
    if #Name>self.wPan-4 then Name=Name:sub(1,self.wPan-6)..'..' end
    Name=' '..Name..string.rep(' ',self.wPan-#Name-4)..' '
    term.write('|')
    if self==Active and Line==self.CurLine then
      SetColor(SelectCl)
      term.write(Name)
      SetColor(PanelCl)
    else
      term.write(Name)
    end
    term.write('|')
  else
    term.write('|'..string.rep(' ',self.wPan-2)..'|')
  end
end

function panel:ShowLines()
  for i=self.Shift, self.Shift+hScr-5 do
    self:ShowLine(i)
  end
end

function panel:ShowLast()
  term.setCursorPos(self.X, hScr-2)
  term.write('+'..string.rep('-',self.wPan-2)..'+')
  term.setCursorPos(self.X+2, hScr-2)
  write(self.tSize[self.CurLine])
  if self.tSize[self.CurLine]~='DIR' then write(' b') end
end

function panel:Show()
  if self.CurLine>#self.tFiles then self.CurLine=#self.tFiles end
  SetColor(PanelCl)
  self:ShowFirst()
  self:ShowLines()
  self:ShowLast()
end

function panel:GetFiles()
  local Files=fs.list(self.Path)
  table.sort(Files)
  if self.Path=='' then
    self.tFiles={}
    self.tSize={}
  else
    self.tFiles={'..'}
    self.tSize={'DIR'}
  end
  for n,Item in pairs(Files) do
    local sPath=fs.combine(self.Path,Item)
    if fs.isDir(sPath) then
      table.insert(self.tFiles,Item)
      table.insert(self.tSize,'DIR')
    end
  end
  for n,Item in pairs(Files) do
    local sPath=fs.combine(self.Path,Item)
    if not fs.isDir(sPath) then
      table.insert(self.tFiles,Item)
      table.insert(self.tSize,fs.getSize(sPath))
    end
  end
  self:Show()
end

function panel:SetPos(FileName)
  self.Path,FileName=FileName:match('(.-)/?([^/]+)$')
  shell.setDir(self.Path)
  self.CurLine=1
  self.Shift=1
  self:GetFiles()
  for i=1,#self.tFiles do
    if self.tFiles[i]==FileName then
      self.CurLine=i
      break
    end
  end
  if Active.CurLine>hScr-4 then
    Active.Shift=Active.CurLine-hScr+6
  end
end

function panel:new(x,path,wP)
  local obj={X = x, Path =path, tFiles={}, tSize={}, CurLine=1, Shift=1, wPan=wP}
  setmetatable(obj,self)
  self.__index=self
  return obj
end

local Left =panel:new(1,'',wPanP)
local Rght =panel:new(Left.wPan,shell.dir(),wPanA)

Active =Rght

local Fpanel ={}
setmetatable(Fpanel,panel)

function Fpanel:new(x,path,wP)
  local obj=panel:new(x,path,wP)
  setmetatable(obj,self)
  self.__index=self
  return obj
end

local function FindFile(FileName,Path)
  local Result={}
  local Files=fs.list(Path)
  for i=1,#Files do
    if string.match(Files[i],FileName) then
      table.insert(Result,fs.combine(Path,Files[i]))
    end
  end
  for i=1,#Files do
    local sPath=fs.combine(Path,Files[i])
    if fs.isDir(sPath) then
      local Files1=FindFile(FileName,sPath)
      for j=1,#Files1 do table.insert(Result,Files1[j]) end
    end
  end
  return Result
end

function Fpanel:GetFiles()
  local code={{'%.','%%.'},{'*','.-'},{'?','.'}}
  local Templ=self.Path
  for i=1,#code do Templ=Templ:gsub(code[i][1],code[i][2]) end
  self.tFiles=FindFile('^'..Templ..'$','')
  table.insert(self.tFiles,1,'..')
  self.tSize={'DIR'}
  for i=2,#self.tFiles do
    if fs.isDir(self.tFiles[i]) then
      self.tSize[i]='DIR'
    else
      self.tSize[i]=fs.getSize(self.tFiles[i])
    end
  end
  self:Show()
end

function Fpanel:ShowFirst()
  local p='Find:'..self.Path
  if #p> self.wPan-6 then p='..'..p:sub(#p-self.wPan+7) end
  p=' '..p..' '
  term.setCursorPos(self.X, 1)
  term.write('+'..string.rep('-',self.wPan-2)..'+')
  term.setCursorPos(self.X+(self.wPan-#p)/2,1)
  SetColor(SelectCl)
  term.write(p)
  SetColor(PanelCl)
end

local Find =Fpanel:new(1,'',wScr)

local function ShowPanels()
  SetColor(NormalCl)
  term.clear()
  if Active==Find then
    Find:GetFiles()
  else
    Left:GetFiles()
    Rght:GetFiles()
  end
  term.setCursorPos(xMenu, hScr)
  for i=1,#Menu do
    if #Menu[i]>0 then
    SetColor(NormalCl)
    term.write(' F'..i)
    SetColor(SelectCl)
    term.write(Menu[i])
    end
  end
  term.setCursorBlink(true)
end

local function Dialog(cl,Lines,Str,But)
  SetColor(cl)
  local H=#Lines+3
  local CurBut=1
  if Str then H=H+1 CurBut=0 end
  if not But then But={'Ok'} end
  local function Buttons()
    local Butt=''
    for i=1,#But do
      if i==CurBut then
        Butt=Butt..'['..But[i]..']'
      else
        Butt=Butt..' '..But[i]..' '
      end
    end
    return Butt
  end
  local W=#Buttons()
  for i=1,#Lines do
    if #Lines[i]>W then W=#Lines[i] end
  end
  if Str and (#Str>W) then W=#Str end
  W=W+4
  local x= math.ceil((wScr-W)/2)
  local y= math.ceil((hScr-H)/2)
  term.setCursorPos(x, y)
  term.write(string.rep('=',W))
  for i=1,#Lines+2 do
    term.setCursorPos(x, y+i)
    term.write('H'..string.rep(' ',W-2)..'H')
  end
  term.setCursorPos(x, y+H-1)
  term.write(string.rep('=',W))
  for i=1,#Lines do
    term.setCursorPos(x+(W-#Lines[i])/2, y+i)
    term.write(Lines[i])
  end

  while true do
    term.setCursorBlink(CurBut==0)
    term.setCursorPos(x+(W-#Buttons())/2, y+H-2)
    term.write(Buttons())
    if CurBut==0 then
      term.setCursorPos(x+2, y+H-3)
      local S=Str
      if #S>W-4 then S='..'..S:sub(#S-W+7) end
      term.write(S)
    end
    local event,p1=os.pullEvent()
    if event=='key' then
      if p1==keys.enter then
        if CurBut==0 then CurBut=1 end
        return But[CurBut],Str
      elseif p1==keys.left and CurBut~=0 then
        if CurBut>1 then CurBut=CurBut-1 end
      elseif p1==keys.right and CurBut~=0 then
        if CurBut<#But then CurBut=CurBut+1 end
      elseif p1==keys.tab then
        if CurBut<#But then CurBut=CurBut+1
        else CurBut=Str and 0 or 1
        end
      elseif p1==keys.backspace and CurBut==0 and #Str>0 then
        term.setCursorPos(x, y+H-3)
        term.write('H'..string.rep(' ',W-2)..'H')
        Str=Str:sub(1,#Str-1)
      end
    elseif event=='char' and CurBut==0 then
      Str=Str..p1
    end
  end
end

local cmd, Alt, Ok, Name

local function call(...)
  local r,e=pcall(...)
  if not r then Dialog(AlarmWinCl,{e}) end
  return r
end

local function CopyMove(action,func)
  if Active==Find then return end
  Name = ((Active==Rght) and Left or Rght).Path..'/'..cmd
  cmd=Active.Path..'/'..cmd
  Ok,Name=Dialog(WindowCl,{action,cmd,'to:'},Name,{'<Ok>','Cansel'})
  if Ok=='<Ok>' then
    if cmd==Name then
      Dialog(AlarmWinCl,{'Cannot copy/move file to itself!'})
    else
      if fs.exists(Name) then
        if Dialog(AlarmWinCl,{'File already exists!',Name,'Overwrite it?'},nil,{'Yes','No'})=='Yes' then
          if call(fs.delete,Name) then call(func,cmd, Name) end
        end
      else
        call(func,cmd, Name)
      end
    end
  end
  ShowPanels()
end

local work=true
local eventKey={}
eventKey[keys.up]=function()
  if Active.CurLine>1 then
    local Line
    Line,Active.CurLine=Active.CurLine,Active.CurLine-1
    if Active.CurLine<Active.Shift then
      Active.Shift=Active.CurLine
      Active:ShowLines()
    else
      Active:ShowLine(Active.CurLine)
      Active:ShowLine(Line)
    end
    Active:ShowLast()
  end
end

eventKey[keys.down]=function()
  if Active.CurLine<#Active.tFiles then
    local Line
    Line,Active.CurLine=Active.CurLine,Active.CurLine+1
    if Active.CurLine>Active.Shift+hScr-5 then
      Active.Shift=Active.CurLine-hScr+5
      Active:ShowLines()
    else
      Active:ShowLine(Active.CurLine)
      Active:ShowLine(Line)
    end
    Active:ShowLast()
  end
end

eventKey[keys.left]=function()
  if curpos<#cmdstr then curpos=curpos+1 end
end

eventKey[keys.right]=function()
  if curpos>0 then curpos=curpos-1 end
end

eventKey[keys.tab]=function()
  if Active==Find then return end
  if Active==Left then
    Active=Rght
    Rght.wPan=wPanA
    Left.wPan=wPanP
  else
    Active=Left
    Rght.wPan=wPanP
    Left.wPan=wPanA
  end
  Rght.X=Left.wPan
  shell.setDir(Active.Path)
  ShowPanels()
end

eventKey[keys.enter]=function()
  local function exec(cmd)
    SetColor(NormalCl)
    term.clear()
    term.setCursorPos(1,1)
    shell.run(cmd)
    sleep(3)
    ShowPanels()
  end
  curpos=0
  if Alt=='C' then
    cmdstr=cmdstr..cmd..' '
  else
    if cmdstr~='' then
      exec(cmdstr)
      cmdstr=''
      return
    end
    if Active==Find then
      Active=Find.Last
      if cmd~='..' then Active:SetPos(cmd) end
      ShowPanels()
      return
    end
    if Active.tSize[Active.CurLine]=='DIR' then
      if cmd=='..' then  Active:SetPos(Active.Path)
      else  Active:SetPos(shell.resolve(cmd)..'/..')  end
      Active:Show()
    else
      exec(cmd)
    end
  end
end

eventKey[keys.backspace]=function()
  if cmdstr~='' then
    if curpos==0 then cmdstr=cmdstr:sub(1,-2)
    else cmdstr=cmdstr:sub(1,-2-curpos)..cmdstr:sub(-curpos)
    end
  end
end

eventKey[keys.delete]=function()
  if cmdstr~='' then
    if curpos>0 then
      curpos=curpos-1
      if curpos==0 then
        cmdstr=cmdstr:sub(1,-2)
      else
        cmdstr=cmdstr:sub(1,-2-curpos)..cmdstr:sub(-curpos)
      end
    end
  end
end

eventKey[keys['end']]=function() curpos=0 end

eventKey[keys.home]=function() curpos=#cmdstr end

eventKey[keys.leftShift]=function()
  Alt='S'
  os.startTimer(0.5)
end
eventKey[keys.rightShift]=eventKey[keys.leftShift]

eventKey[keys.leftCtrl]=function()
  Alt='C'
  os.startTimer(0.5)
end
eventKey[keys.rightCtrl]=eventKey[keys.leftCtrl]

eventKey[keys.leftAlt]=function()
  Alt='A'
  os.startTimer(0.5)
end
eventKey[keys.rightAlt]=eventKey[keys.leftAlt]

eventKey[keys.f1]=function()
  if Active==Find then return end
  Dialog(SelectCl,help)
  ShowPanels()
end

eventKey[keys.f4]=function()
  if Alt=='S' then
    Alt=''
    Ok,Name=Dialog(WindowCl,{'File name:'},'',{'<Ok>','Cansel'})
    if Ok=='<Ok>' then
      shell.run('/rom/programs/edit '..Name)
    end
  else
    if Active.tSize[Active.CurLine]=='DIR' then
      Dialog(AlarmWinCl,{'Error!', cmd, 'is not a file'})
    else
      shell.run('/rom/programs/edit '..cmd)
    end
  end
  ShowPanels()
end

eventKey[keys.f5]=function()
  CopyMove('Copy file:',fs.copy)
end

eventKey[keys.f6]=function()
  CopyMove('Move file:',fs.move)
end

eventKey[keys.f7]=function()
  if Alt=='A' then
    Alt=''
    Ok,Name=Dialog(WindowCl,{'Find file/dir:','Use ? and * for any char(s)'},'',{'<Ok>','Cansel'})
    if Ok=='<Ok>' then
      Find.Path=Name
      Find.CurLine=1
      Find.Shift=1
      if Active~=Find then
        Find.Last=Active
        Active=Find
      end
    end
  else
    if Active==Find then return end
    Ok,Name=Dialog(WindowCl,{'Directory name:'},'',{'<Ok>','Cansel'})
    if Ok=='<Ok>' then
      if Name=='..' or fs.exists(shell.resolve(Name)) then
        ShowPanels()
        Dialog(AlarmWinCl,{' File exists '})
      else
        fs.makeDir(shell.resolve(Name))
      end
    end
  end
  ShowPanels()
end

eventKey[keys.f8]=function()
  if Active==Find then return end
  if Dialog(AlarmWinCl,{'Do you want to delete', cmd..'?'}, nil, {'Yes','No'})=='Yes' then
    if call(fs.delete,shell.resolve(cmd)) then
--      if Active.CurLine==#Active.tFiles then Active.CurLine=Active.CurLine-1 end
    end
  end
  ShowPanels()
end

eventKey[keys.f10]=function()
  work=false
end

ShowPanels()
ShowCmd()
while work do
  local event,p1=os.pullEvent()
  cmd=Active.tFiles[Active.CurLine]
  if event=='char' then
    if curpos==0 then cmdstr=cmdstr..p1
    else cmdstr=cmdstr:sub(1,-1-curpos)..p1..cmdstr:sub(-curpos)
    end
    ShowCmd()
  elseif event=='key' then
    if eventKey[p1]~=nil then
      SetColor(PanelCl)
      eventKey[p1]()
      ShowCmd()
    end
  elseif event=='timer' then
    Alt=''
  end
end
SetColor(NormalCl)
term.setCursorPos(1, hScr)
term.clearLine()
print('Thank you for using Midday Commander!')