As an ex one-liner:
:syn clear Repeat | g/^(.*)
ze\%(.*
)*1$/exe 'syn match Repeat "^' . escape(getline('.'), '".^$*[]') . '$"' | nohlsearch
This uses the Repeat
group to highlight the repeated lines.
Breaking it down:
syn clear Repeat
:: remove any previously found repeats
g/^(.*)
ze\%(.*
)*1$/
:: for any line that is repeated later in the file
- the regex
^(.*)
:: a full line
ze
:: end of match - verify the rest of the pattern, but don't consume the matched text (positive lookahead)
\%(.*
)*
:: any number of full lines
1$
:: a full line repeat of the matched full line
exe 'syn match Repeat "^' . escape(getline('.'), '".^$*[]') . '$"'
:: add full lines that match this to the Repeat
syntax group
exe
:: execute the given string as an ex command
getline('.')
:: the contents of the current line matched by g//
escape(..., '".^$*[]')
:: escape the given characters with backslashes to make a legit regex
syn match Repeat "^...$"
:: add the given string to the Repeat
syntax group
nohlsearch
:: remove highlighting from the search done for g//
Justin's non-regex method is probably faster:
function! HighlightRepeats() range
let lineCounts = {}
let lineNum = a:firstline
while lineNum <= a:lastline
let lineText = getline(lineNum)
if lineText != ""
let lineCounts[lineText] = (has_key(lineCounts, lineText) ? lineCounts[lineText] : 0) + 1
endif
let lineNum = lineNum + 1
endwhile
exe 'syn clear Repeat'
for lineText in keys(lineCounts)
if lineCounts[lineText] >= 2
exe 'syn match Repeat "^' . escape(lineText, '".^$*[]') . '$"'
endif
endfor
endfunction
command! -range=% HighlightRepeats <line1>,<line2>call HighlightRepeats()
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…