runtime/syntax/hitest.vim

   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