acSendKeys("^c")
local recentCopyText = acGetClipboardText()
addClipItem(recentCopyText)

local res = renderCopyPopup()
local swnd = acFindWindow("STROKESPLUS",nil)
acActivateWindow(swnd)
acDelay(100)
acPostMessage(swnd, 0x0000, 0, 0) 
acDelay(100)
acCreatePopupMenu(gex,gey, res, ",","popupMenuForCopy")

pattern = "||"
fileToBeStored = "temp.txt"
lines = {}
function file_exists(file)
  local f = io.open(file, "r")
  if f then f:close() end
  return f ~= nil
end

function lines_from(file)
  if not file_exists(file) then return {} end
  local matchCountAry = {}
  local fi = io.open("temp.txt","r")
  local completeStr = fi:read("*all")
  fi:close()
  
  for i in string.gmatch(completeStr, "([^"..pattern.."]+)") do
	matchCountAry[#matchCountAry + 1] = i
  end
	    --acMessageBox(matchCountAry[2])
  return matchCountAry
end

function addClipItem(item) 
  if string.len(item) <= 0 then 
    return
  end
  for k,v in pairs(lines) do
	if v == item then 
      return 
    end 
  end
 if #lines >= 15 then
   for index = 2,15 do
     lines[index] = lines[index-1] 
   end
   lines[15] = item
 else
	lines[#lines+1] = item  
 end

local writingStr = ""
for k,v in pairs(lines) do
 if string.len(v) > 0 then
  writingStr = writingStr..v..pattern
 end
end

local fi = io.open("temp.txt","w")
if string.len(writingStr) > 0 then
fi:write(writingStr)
end
fi:close()
end  -- end of clipItem method

function popupMenuForCopy(id) 
  acActivateWindow(acGetOwnerWindowByPoint(gsx, gsy))
  local itemVal = lines[id]

  if itemVal then
   local prevCopyVal = acGetClipboardText()
   acSetClipboardText(itemVal) 
   acSendKeys("{DELAY 100}^v")
   acSetClipboardText(prevCopyVal)
  end	
end

function renderCopyPopup()
  local result = ""
  for k,v in pairs(lines) do
    v = string.sub(v,0,20)
    result = result..v..","
  end 
  return result
end

function sp_init()
   lines = lines_from(fileToBeStored)
end

lines = lines_from(fileToBeStored)

function popupMenuForCopy(id) 
  acActivateWindow(acGetOwnerWindowByPoint(acGetMouseLocationX(), acGetMouseLocationY()))
  local itemVal = lines[id]

  if itemVal then
   local prevCopyVal = acGetClipboardText()
   acSetClipboardText(itemVal) 
   acSendKeys("{DELAY 100}^v")
   acSetClipboardText(prevCopyVal)
  end	
end

function popupMenuForCopy(id) 
  acActivateWindow(acGetOwnerWindowByPoint(acGetMouseLocationX(), acGetMouseLocationY()))
  acDelay(50)
  local itemVal = lines[id]

  if itemVal then
   local prevCopyVal = acGetClipboardText()
   acSetClipboardText(itemVal) 
   acSendKeys("{DELAY 100}^v")
   acSetClipboardText(prevCopyVal)
  end	
end

function renderCopyPopup()
  local result = ""
  local delim = ""
  for k,v in pairs(lines) do
    v = string.sub(v,0,20)
	result = result..delim..v
	delim = ","
  end 
  return result
end

local fi = io.open("temp.txt","w")
fi:write("")
fi:close()

lines = {}--clear the lines in the variable since S+ is running