Scite Strip Trailings

wiki

SciteCleanDocWhitespace has a similar script.

-----------------------------------------------------

-- Strip Trailing Spaces

-- Filename endings set here or in scite properties:

-- Luax.StripTrailSpaceEnds=.lua|.foo|readme

-- Luax.StripTLeaveEmpties=1   to leave empty lines

-- Luax.StripTReportStrips=1   to report lines stripped in output



local function isTrailingFile()

  

  if props["luax.StripsTrailSpaceEnds"]=="" then

    props["luax.StripsTrailSpaceEnds"]=".lua|.py"

  end



  if not fpatts then

    fpatts={}

    for v in string.gmatch(props["luax.StripsTrailSpaceEnds"] or"" , "[^|\"]+" ) do

      table.insert(fpatts,v)

    end

  end



  local flfnd=props["FilePath"].."\\\\"

  for _,fend in ipairs(fpatts) do

    if string.find(flfnd , fend.."\\\\",1,true) then return true end

  end

end



local function noteSelection()

 

  local c,a=editor.CurrentPos , editor.Anchor



  ntSel =

  { ['topl'] =editor.FirstVisibleLine,

    ['ccol'] =c -editor:PositionFromLine(

              editor:LineFromPosition(c)),

    ['cline']=editor:LineFromPosition(c),

    ['acol'] =a -editor:PositionFromLine(

              editor:LineFromPosition(a)),

    ['aline']=editor:LineFromPosition(a)

  }

end



local function restoreSelection()

  local c=ntSel.ccol+editor:PositionFromLine(ntSel.cline)

  local a=ntSel.acol+editor:PositionFromLine(ntSel.aline)



  if c >editor.LineEndPosition[ntSel.cline]  then

    c = editor.LineEndPosition[ntSel.cline]

  end



  if a >editor.LineEndPosition[ntSel.aline]  then

    a= editor.LineEndPosition[ntSel.aline]

  end

   

  editor.CurrentPos= c

  editor.Anchor= a

  editor.FirstVisibleLine=ntSel.topl

end

  

function stripTrailSpaces()

 

  if not isTrailingFile() then return end



  --(dunno syntax for testing props simply)

  local LeaveEmptyLines=true

  if tonumber(props['luax.StripsTLeaveEmpties'])==0 

  then LeaveEmptyLines=false end

  local ReportStrips=true

  if tonumber(props['luax.StripsTReportStrips'])==0 

  then ReportStrips=false end

  

  noteSelection()



  local e=editor

  local sfound,se,cnt = -1, 0,  0

 

  sfound,se=e:findtext("[\t ]+$", SCFIND_REGEXP, sfound+1 )

  while sfound do



    if LeaveEmptyLines and e:PositionFromLine(e:LineFromPosition(sfound))==sfound

    then

      sfound=se --skip

    else

      e:remove(sfound,se)

      cnt=cnt+1

    end



    sfound,se=e:findtext("[\t ]+$", SCFIND_REGEXP, sfound+1 )

  end



  restoreSelection()

  if ReportStrips and cnt>0 then

    print("- "..cnt.." runs of trailing spaces were stripped")

  end

end

scite_OnBeforeSave( stripTrailSpaces )

--from strainer