[SciTE] 문서 내에서 같은 단어 찾아 표시하기

커서 위치의 단어와 동일한 단어를 문서 전체에서 찾아 표시해준다. 특히 함수 등에서 특정 변수가 어디 어디에 쓰이고 있는지 분석할 때 아주 유용하다. SciteMarkWord에서 가져와 extman에 등록해서 사용할 수 있도록 수정했다.

SciTE_MarkWord.lua

1. -- Scite Mark Word
   
2. -- You can use this to mark all occurrences of a word in the document.
   
3. -- From http://lua-users.org/wiki/SciteMarkWord
   
4. 
   
5. scite_Command {
   
6.     'Mark Occurences|markOccurrences|Ctrl+,',
   
7.     'Clear Occurences|clearOccurrences|Alt+,',
   
8. }
   
9. 
   
10. function clearOccurrences()
    
11.     scite.SendEditor(SCI_INDICATORCLEARRANGE, 0, editor.Length)
    
12. end
    
13. 
    
14. function markOccurrences()
    
15.     clearOccurrences()
    
16.     scite.SendEditor(SCI_INDICSETSTYLE, 0, INDIC_ROUNDBOX)
    
17.     scite.SendEditor(SCI_INDICSETFORE, 0, 255)
    
18.     local txt = GetCurrentWord()
    
19.     local flags = SCFIND_WHOLEWORD
    
20.     local s,e = editor:findtext(txt,flags,0)
    
21.     while s do
    
22.         scite.SendEditor(SCI_INDICATORFILLRANGE, s, e - s)
    
23.         s,e = editor:findtext(txt,flags,e+1)
    
24.     end
    
25. end
    
26. 
    
27. function isWordChar(char)
    
28.     local strChar = string.char(char)
    
29.     local beginIndex = string.find(strChar, '%w')
    
30.     if beginIndex ~= nil then
    
31.         return true
    
32.     end
    
33.     if strChar == '_' or strChar == '$' then
    
34.         return true
    
35.     end
    
36. 
    
37.     return false
    
38. end
    
39. 
    
40. function GetCurrentWord()
    
41.     local beginPos = editor.CurrentPos
    
42.     local endPos = beginPos
    
43.     if editor.SelectionStart ~= editor.SelectionEnd then
    
44.         return editor:GetSelText()
    
45.     end
    
46.     while isWordChar(editor.CharAt[beginPos-1]) do
    
47.         beginPos = beginPos - 1
    
48.     end
    
49.     while isWordChar(editor.CharAt[endPos]) do
    
50.         endPos = endPos + 1
    
51.     end
    
52.     return editor:textrange(beginPos,endPos)
    
53. end