# 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 #Version: 0.0.2:, 07.04.2007: # update for wxPython 2.8 and DrPython 1.65. #Plugin #CompWord #This plugin ... import wx import drScrolledMessageDialog import re def OnAbout(DrFrame): CompWord_Verision = "0.0.2" NameAndVersion = "CompWord:\n\nVersion: " + CompWord_Verision + "\n" AboutString = NameAndVersion + "By Franz Steinhaeusler\n\nReleased under the GPL." drScrolledMessageDialog.ShowMessage(DrFrame, AboutString, "About") def OnHelp(DrFrame): drScrolledMessageDialog.ShowMessage(DrFrame, "Complete Word", "Help") 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", re.IGNORECASE) 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() #new Set Command? 08.03.2005: 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() if DrFrame.CompWord_pos >= len (DrFrame.CompWord_List):# added 08.03.2005: DrFrame.CompWord_pos = len (DrFrame.CompWord_List) - 1 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 DrFrame.CompWord_List: 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.MessageBox("No Completions found", "CompWord List", wx.ICON_EXCLAMATION) else: wx.MessageBox("Please clear selection", "CompWord List", wx.ICON_EXCLAMATION) 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)