Mercurial > hg > RemoteEditor > vim7

comparison runtime/syntax/hitest.vim @ 0:76efa0be13f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author atsuki
date Sat, 10 Nov 2007 15:07:22 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:76efa0be13f1
1 " Vim syntax file
2 " Language: none; used to see highlighting
3 " Maintainer: Ronald Schild <rs@scutum.de>
4 " Last Change: 2001 Sep 02
5 " Version: 5.4n.1
6
7 " To see your current highlight settings, do
8 " :so $VIMRUNTIME/syntax/hitest.vim
9
10 " save global options and registers
11 let s:hidden = &hidden
12 let s:lazyredraw = &lazyredraw
13 let s:more = &more
14 let s:report = &report
15 let s:shortmess = &shortmess
16 let s:wrapscan = &wrapscan
17 let s:register_a = @a
18 let s:register_se = @/
19
20 " set global options
21 set hidden lazyredraw nomore report=99999 shortmess=aoOstTW wrapscan
22
23 " print current highlight settings into register a
24 redir @a
25 highlight
26 redir END
27
28 " Open a new window if the current one isn't empty
29 if line("$") != 1 || getline(1) != ""
30 new
31 endif
32
33 " edit temporary file
34 edit Highlight\ test
35
36 " set local options
37 setlocal autoindent noexpandtab formatoptions=t shiftwidth=16 noswapfile tabstop=16
38 let &textwidth=&columns
39
40 " insert highlight settings
41 % delete
42 put a
43
44 " remove the colored xxx items
45 g/xxx /s///e
46
47 " remove color settings (not needed here)
48 global! /links to/ substitute /\s.*$//e
49
50 " move linked groups to the end of file
51 global /links to/ move $
52
53 " move linked group names to the matching preferred groups
54 % substitute /^\(\w\+\)\s*\(links to\)\s*\(\w\+\)$/\3\t\2 \1/e
55 global /links to/ normal mz3ElD0#$p'zdd
56
57 " delete empty lines
58 global /^ *$/ delete
59
60 " precede syntax command
61 % substitute /^[^ ]*/syn keyword &\t&/
62
63 " execute syntax commands
64 syntax clear
65 % yank a
66 @a
67
68 " remove syntax commands again
69 % substitute /^syn keyword //
70
71 " pretty formatting
72 global /^/ exe "normal Wi\<CR>\t\eAA\ex"
73 global /^\S/ join
74
75 " find out first syntax highlighting
76 let b:various = &highlight.',:Normal,:Cursor,:,'
77 let b:i = 1
78 while b:various =~ ':'.substitute(getline(b:i), '\s.*$', ',', '')
79 let b:i = b:i + 1
80 if b:i > line("$") | break | endif
81 endwhile
82
83 " insert headlines
84 call append(0, "Highlighting groups for various occasions")
85 call append(1, "-----------------------------------------")
86
87 if b:i < line("$")-1
88 let b:synhead = "Syntax highlighting groups"
89 if exists("hitest_filetypes")
90 redir @a
91 let
92 redir END
93 let @a = substitute(@a, 'did_\(\w\+\)_syn\w*_inits\s*#1', ', \1', 'g')
94 let @a = substitute(@a, "\n\\w[^\n]*", '', 'g')
95 let @a = substitute(@a, "\n", '', 'g')
96 let @a = substitute(@a, '^,', '', 'g')
97 if @a != ""
98 let b:synhead = b:synhead." - filetype"
99 if @a =~ ','
100 let b:synhead = b:synhead."s"
101 endif
102 let b:synhead = b:synhead.":".@a
103 endif
104 endif
105 call append(b:i+1, "")
106 call append(b:i+2, b:synhead)
107 call append(b:i+3, substitute(b:synhead, '.', '-', 'g'))
108 endif
109
110 " remove 'hls' highlighting
111 nohlsearch
112 normal 0
113
114 " add autocommands to remove temporary file from buffer list
115 aug highlighttest
116 au!
117 au BufUnload Highlight\ test if expand("<afile>") == "Highlight test"
118 au BufUnload Highlight\ test bdelete! Highlight\ test
119 au BufUnload Highlight\ test endif
120 au VimLeavePre * if bufexists("Highlight test")
121 au VimLeavePre * bdelete! Highlight\ test
122 au VimLeavePre * endif
123 aug END
124
125 " we don't want to save this temporary file
126 set nomodified
127
128 " the following trick avoids the "Press RETURN ..." prompt
129 0 append
130 .
131
132 " restore global options and registers
133 let &hidden = s:hidden
134 let &lazyredraw = s:lazyredraw
135 let &more = s:more
136 let &report = s:report
137 let &shortmess = s:shortmess
138 let &wrapscan = s:wrapscan
139 let @a = s:register_a
140
141 " restore last search pattern
142 call histdel("search", -1)
143 let @/ = s:register_se
144
145 " remove variables
146 unlet s:hidden s:lazyredraw s:more s:report s:shortmess
147 unlet s:wrapscan s:register_a s:register_se
148
149 " vim: ts=8