Code: Select all

function SmartUnindent()
{
   var nIndentSpaces = 4;

   // Execute deletion with key BACKSPACE under following conditions:

   // The active file is opened in hex edit mode.
   if (UltraEdit.activeDocument.hexMode)
   {
      return;  // Do nothing because UltraEdit also does nothing
   }           // on pressing key BACKSPACE in hex edit mode.

   // There is a selection in active file.
   if (UltraEdit.activeDocument.isSel())
   {
      UltraEdit.activeDocument.key("BACKSPACE"); return;
   }

   // The caret is at beginning of a line.
   if (UltraEdit.activeDocument.isColNum(1))
   {
      UltraEdit.activeDocument.key("BACKSPACE"); return;
   }

   // The file extension is whether PY nor PYW.
   if ((!UltraEdit.activeDocument.isExt("py")) && (!UltraEdit.activeDocument.isExt("pyw")))
   {
      UltraEdit.activeDocument.key("BACKSPACE"); return;
   }

   // The character left to caret position is not a space character.
   UltraEdit.activeDocument.key("LEFT ARROW");
   if (!UltraEdit.activeDocument.isChar(" "))
   {
      UltraEdit.activeDocument.deleteText(); return;
   }

   // Smart delete 1 to 4 spaces.
   var nStartColumn = UltraEdit.activeDocument.currentColumnNum + 1;

   var nFirstColumnNumber = 1;
   // The next block is needed only for UltraEdit for Windows < v16.00 and
   // UEStudio < v10.00 on which property currentColumnNum has value 0 for
   // the first column in a line, 1 for second column, and so on.
   if (typeof(UltraEdit.activeDocumentIdx) == "undefined")
   {
      nStartColumn++;
      nFirstColumnNumber = 0;
   }

   var nDeleteSpaces = nIndentSpaces - 1;  // One space is already counted.

   // The loop below is exited before defined number of spaces being counted
   // if caret is already at first column in current line or the character
   // at current position in file is not a space character. In second case
   // are deleted just the spaces up to first non space character. The loop
   // is also exited if the current position of caret in file is at a tab
   // stop value / indent spaces position independent on how many spaces
   // have been already processed for being deleted next.
   do
   {
      if (UltraEdit.activeDocument.isColNum(1)) break;
      if (((UltraEdit.activeDocument.currentColumnNum - nFirstColumnNumber) % nIndentSpaces) == 0) break;
      UltraEdit.activeDocument.key("LEFT ARROW");
      if (!UltraEdit.activeDocument.isChar(" "))
      {
         UltraEdit.activeDocument.key("RIGHT ARROW");
         break;
      }
   }
   while(--nDeleteSpaces);

   UltraEdit.activeDocument.gotoLineSelect(0,nStartColumn);
   UltraEdit.activeDocument.deleteText();
}

if (UltraEdit.document.length > 0)  // Is any file opened?
{
   SmartUnindent();
}