Zeus IDE

Code: Select all

function key_macro()
  -- macro only works for documents
  local document = is_document()

  if (document == 0) then
    -- can't run astyle.exe on current document
    message("This macro can only be run with an open document.")
    beep()
    return
  end

  local line_current = get_line_pos()

  -- get the length of the current line
  local len = string.len(get_line_text(line_current))

  if len == 0 then
    -- check if the file was found last time
    local line_last = get_global_string("LineSearch")

    if (line_last ~= nil) then
      if (line_current == tonumber(line_last)) then
        line_current = line_current + 1
      end
    end
  end

  local line_total = get_line_count()

  -- search the current file for the empty lines
  while line_current < line_total do
      -- get the length of the current line
      local len = string.len(get_line_text(line_current))

      if len == 0 then
        -- place the cursor on the empty line
        set_line_pos(line_current, 0)

        -- save the last line found to the global variable
        set_global_string("LineSearch", line_current)

        message("Found an empty line.")
        return
      end

      -- next line
      line_current = line_current + 1
  end

  -- reset the global variable
  set_global_string("LineSearch", "")

  message("No empty line found.")
end

key_macro() -- run the macro