|
39
|
1 " Vim script to fix duplicate words in a .dic file vim: set ft=vim:
|
|
|
2 "
|
|
|
3 " Usage: Edit the .dic file and source this script.
|
|
|
4
|
|
|
5 let deleted = 0
|
|
|
6
|
|
|
7 " Start below the word count.
|
|
|
8 let lnum = 2
|
|
|
9 while lnum <= line('$')
|
|
|
10 let word = getline(lnum)
|
|
|
11 if word !~ '/'
|
|
|
12 if search('^' . word . '/', 'w') != 0
|
|
|
13 let deleted += 1
|
|
|
14 exe lnum . "d"
|
|
|
15 continue " don't increment lnum, it's already at the next word
|
|
|
16 endif
|
|
|
17 endif
|
|
|
18 let lnum += 1
|
|
|
19 endwhile
|
|
|
20
|
|
|
21 if deleted == 0
|
|
|
22 echomsg "No duplicate words found"
|
|
|
23 elseif deleted == 1
|
|
|
24 echomsg "Deleted 1 duplicate word"
|
|
|
25 else
|
|
|
26 echomsg printf("Deleted %d duplicate words", deleted)
|
|
|
27 endif
|
