#   Programmer:  Franz Steinhaeusler
#   E-mail:      francescoa@users.sourceforge.net
#   Note:        Initial Release 03.11.2004
#
#   Copyright 2004-2005 Franz Steinhaeusler
#
#   Distributed under the terms of the GPL (GNU Public License)
#
#    DrPython is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

#Version: 0.0.0:
# - see changelog.txt

#Version: 0.0.1:
# - see changelog.txt

#Plugin
#CompWord

#This plugin ...

import wx
import drScrolledMessageDialog
import re

def OnAbout(DrFrame):
	CompWord_Verision = "0.0.1"
	NameAndVersion = "CompWord:\n\nVersion: " + CompWord_Verision + "\n"
	AboutString = NameAndVersion + "By Franz Steinhaeusler\n\nReleased under the GPL."
	d = drScrolledMessageDialog.ScrolledMessageDialog(DrFrame, AboutString, "About")
	d.ShowModal()
	d.Destroy()

def OnHelp(DrFrame):
	d = drScrolledMessageDialog.ScrolledMessageDialog(DrFrame, "Complete Word", "Help")
	d.ShowModal()
	d.Destroy()

def Plugin(DrFrame):

	def CollectWords (reduce_dups = False):
		text = DrFrame.txtDocument.GetText()
		curpos = DrFrame.txtDocument.GetCurrentPos()
		DrFrame.CompWord_CurPos = curpos
		a, b = DrFrame.txtDocument.GetSelection()
		if a == b: #nothing selected
			DrFrame.CompWord_part = DrFrame.txtDocument.GetTextRange(DrFrame.txtDocument.WordStartPosition(curpos, 1), curpos)
		else:
			DrFrame.CompWord_part = DrFrame.txtDocument.GetTextRange(DrFrame.txtDocument.WordStartPosition(curpos, 1), a)
		reg = re.compile (r"\b" + DrFrame.CompWord_part +r"\w*\b")
		listtemp = reg.findall(text[:curpos-1])
		
		DrFrame.CompWord_List = []
		#iter = r.finditer('abdaertrtrreaew')		
		#match = listtemp.next()
		#listtemp = []
		#while (match is not None):
			#try:
				#match = matcher.next()
			#except:
				#match = None
			#listtemp.append (match.group)
		
		DrFrame.CompWord_pos = 0
		for i in listtemp:
			if len(i) > len(DrFrame.CompWord_part):
				DrFrame.CompWord_List.append (i)
		if reduce_dups:
				DrFrame.CompWord_List = reduce(lambda d,v:(d.setdefault(v,None),d)[1], DrFrame.CompWord_List, {}).keys()
		DrFrame.CompWord_pos = len (DrFrame.CompWord_List)
		listtemp = reg.findall(text[curpos:])
		for i in listtemp:
			if len(i) > len(DrFrame.CompWord_part):
				DrFrame.CompWord_List.append (i)
		if reduce_dups:
			DrFrame.CompWord_List = reduce(lambda d,v:(d.setdefault(v,None),d)[1], DrFrame.CompWord_List, {}).keys()


	def FirstTimeCompletition (forward = True):
		CollectWords()

		#DrFrame.CompWord_List.extend (reg.findall(text[curpos:]))
		DrFrame.CompWord_Len = len (DrFrame.CompWord_List)
		#print DrFrame.CompWord_Len, DrFrame.CompWord_pos, DrFrame.CompWord_List
		if DrFrame.CompWord_Len > 0:
			if not forward:
				if DrFrame.CompWord_pos > 0:
					DrFrame.CompWord_pos -= 1
			DrFrame.txtDocument.AddText (DrFrame.CompWord_List[DrFrame.CompWord_pos][len(DrFrame.CompWord_part):])
			DrFrame.txtDocument.SetSelection (DrFrame.CompWord_CurPos, DrFrame.CompWord_CurPos + len (DrFrame.CompWord_List[DrFrame.CompWord_pos][len(DrFrame.CompWord_part):]))
			DrFrame.SetStatusText("CompWordNext: %d/%d" % (DrFrame.CompWord_pos + 1, DrFrame.CompWord_Len), 2)
		else:
			DrFrame.SetStatusText("CompWordNext: No Completition found", 2)

	def OnCompWordNext (event):
		#todo: make one function
		a, b = DrFrame.txtDocument.GetSelection()
		if a == b: #nothing selected
			FirstTimeCompletition()
		else:
			a, b = DrFrame.txtDocument.GetSelection()
			if DrFrame.CompWord_Len > 0 and DrFrame.CompWord_CurPos == a:
				DrFrame.CompWord_pos += 1
				if DrFrame.CompWord_pos >= DrFrame.CompWord_Len:
					DrFrame.CompWord_pos = 0
				DrFrame.txtDocument.ReplaceSelection (DrFrame.CompWord_List[DrFrame.CompWord_pos][len (DrFrame.CompWord_part):])
				DrFrame.txtDocument.SetSelection (DrFrame.CompWord_CurPos, DrFrame.CompWord_CurPos + len (DrFrame.CompWord_List[DrFrame.CompWord_pos][len (DrFrame.CompWord_part):]))
				DrFrame.SetStatusText("CompWordNext: %d/%d" % (DrFrame.CompWord_pos + 1, DrFrame.CompWord_Len), 2)
			else:
				DrFrame.SetStatusText("CompWordNext: No Completition found", 2)


	def OnCompWordPrevious (event):
		a, b = DrFrame.txtDocument.GetSelection()
		if a == b: #nothing selected
			FirstTimeCompletition(False)
		else:
			a, b = DrFrame.txtDocument.GetSelection()
			if DrFrame.CompWord_Len > 0 and DrFrame.CompWord_CurPos == a:
				DrFrame.CompWord_pos -= 1
				if DrFrame.CompWord_pos < 0:
					DrFrame.CompWord_pos = DrFrame.CompWord_Len - 1
				DrFrame.txtDocument.ReplaceSelection (DrFrame.CompWord_List[DrFrame.CompWord_pos][len (DrFrame.CompWord_part):])
				DrFrame.txtDocument.SetSelection (DrFrame.CompWord_CurPos, DrFrame.CompWord_CurPos + len (DrFrame.CompWord_List[DrFrame.CompWord_pos][len (DrFrame.CompWord_part):]))
				DrFrame.SetStatusText("CompWordNext: %d/%d" % (DrFrame.CompWord_pos + 1, DrFrame.CompWord_Len), 2)
			else:
				DrFrame.SetStatusText("CompWordNext: No Completition found", 2)

	def CompareLowerCase(n1, n2):
		if (n1.lower() == n2.lower()):
			return 0
		elif (n1.lower() < n2.lower()):
			return -1
		return 1

	def OnCompWordList (event):
		a, b = DrFrame.txtDocument.GetSelection()
		#if a == b: #nothing selected
		if 1:
			CollectWords(True)
			#todo: if selected, get part of none selected
			if len (DrFrame.CompWord_List) > 0:
				DrFrame.CompWord_List.sort(CompareLowerCase)
				d = wx.SingleChoiceDialog(DrFrame, "Select one Word from the list:", "Comp Word List", DrFrame.CompWord_List, wx.OK|wx.CANCEL)
				answer = d.ShowModal()
				d.Destroy()
				if (answer == wx.ID_OK):
					s = d.GetStringSelection()
					DrFrame.txtDocument.ReplaceSelection (s[len (DrFrame.CompWord_part):])
					DrFrame.txtDocument.SetSelection (DrFrame.CompWord_CurPos, DrFrame.CompWord_CurPos + len (s[len (DrFrame.CompWord_part):]))
			else:
				wx.MessageDialog(DrFrame, "No Completions found", "CompWord List", wx.ICON_EXCLAMATION).ShowModal()
		else:
			wx.MessageDialog(DrFrame, "Please clear selection", "CompWord List", wx.ICON_EXCLAMATION).ShowModal()

	ID_COMPWORDNEXT = DrFrame.GetNewId()
	ID_COMPWORDPREVIOUS = DrFrame.GetNewId()
	ID_COMPWORDLIST= DrFrame.GetNewId()


	DrFrame.CompWord_pos = -1
	DrFrame.CompWord_List = []
	DrFrame.CompWord_Len = -1
	DrFrame.CompWord_CurPos = -1
	DrFrame.CompWord_part = ''
	DrFrame.CompWord_current_searchpos = -1


	DrFrame.Bind(wx.EVT_MENU, OnCompWordNext, id = ID_COMPWORDNEXT)
	DrFrame.Bind(wx.EVT_MENU, OnCompWordPrevious, id = ID_COMPWORDPREVIOUS)
	DrFrame.Bind(wx.EVT_MENU, OnCompWordList, id = ID_COMPWORDLIST)

	DrFrame.AddPluginShortcutFunction("CompWord", "CompWord Next", OnCompWordNext)
	DrFrame.AddPluginShortcutFunction("CompWord", "CompWord Previous", OnCompWordPrevious)
	DrFrame.AddPluginShortcutFunction("CompWord", "CompWord List", OnCompWordList)

	DrFrame.AddPluginPopUpMenuFunction("CompWord", "CompWord Next", OnCompWordNext)
	DrFrame.AddPluginPopUpMenuFunction("CompWord", "CompWord Previous", OnCompWordPrevious)
	DrFrame.AddPluginPopUpMenuFunction("CompWord", "CompWord List", OnCompWordList)

	DrFrame.LoadPluginShortcuts('CompWord')
	compwordmenu = wx.Menu()
	compwordmenu.Append(ID_COMPWORDNEXT, DrFrame.GetPluginMenuLabel('CompWord', 'CompWord Next', 'CompWord Next'))
	compwordmenu.Append(ID_COMPWORDPREVIOUS, DrFrame.GetPluginMenuLabel('CompWord', 'CompWord Previous', 'CompWord Previous'))
	compwordmenu.Append(ID_COMPWORDLIST, DrFrame.GetPluginMenuLabel('CompWord', 'CompWord List', 'CompWord List'))
	#remove duplicates and sort

	DrFrame.editmenu.AppendSeparator()
	DrFrame.editmenu.AppendMenu(DrFrame.GetNewId(), "CompWord", compwordmenu)