1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
" Vim syntax file
" Language: X Pixmap
" Maintainer: Ronald Schild <rs@scutum.de>
" Last Change: 2023 May 24
" Version: 5.4n.2
" Jemma Nelson added termguicolors support
" Dominique Pellé fixed spelling support
" Christian J. Robinson fixed use of global variables, moved
" loop into a compiled function
" quit when a syntax file was already loaded
if exists("b:current_syntax")
finish
endif
syn spell notoplevel
syn keyword xpmType char
syn keyword xpmStorageClass static
syn keyword xpmTodo TODO FIXME XXX contained
syn region xpmComment start="/\*" end="\*/" contains=xpmTodo,@Spell
syn region xpmPixelString start=+"+ skip=+\\\\\|\\"+ end=+"+ contains=@xpmColors
if has("gui_running") || has("termguicolors") && &termguicolors
def s:CreateSyntax(): void
var color = ""
var chars = ""
var colors = 0
var cpp = 0
var n = 0
var lines = getline(1, '$')
for line in lines # scanning all lines
var s = matchstr(line, '".\{-1,}"')
if s != "" # does line contain a string?
if n == 0 # first string is the Values string
var values = split(s[1 : -2])
# Values string invalid, bail out
if len(values) != 4 && len(values) != 6 && len(values) != 7
return
endif
# get the 3rd value: colors = number of colors
colors = str2nr(values[2])
# get the 4th value: cpp = number of character per pixel
cpp = str2nr(values[3])
# these values must be positive, nonzero
if colors < 1 || cpp < 1
return
endif
# Highlight the Values string as normal string (no pixel string).
# Only when there is no slash, it would terminate the pattern.
if s !~ '/'
exe 'syn match xpmValues /' .. s .. '/'
endif
hi link xpmValues String
n = 1 # n = color index
elseif n <= colors # string is a color specification
# get chars = <cpp> length string representing the pixels
# (first incl. the following whitespace)
chars = substitute(s, '"\(.\{' .. cpp .. '}\s\).*"', '\1', '')
# now get color, first try 'c' key if any (color visual)
color = substitute(s, '".*\sc\s\+\(.\{-}\)\s*\(\(g4\=\|[ms]\)\s.*\)*\s*"', '\1', '')
if color == s
# no 'c' key, try 'g' key (grayscale with more than 4 levels)
color = substitute(s, '".*\sg\s\+\(.\{-}\)\s*\(\(g4\|[ms]\)\s.*\)*\s*"', '\1', '')
if color == s
# next try: 'g4' key (4-level grayscale)
color = substitute(s, '".*\sg4\s\+\(.\{-}\)\s*\([ms]\s.*\)*\s*"', '\1', '')
if color == s
# finally try 'm' key (mono visual)
color = substitute(s, '".*\sm\s\+\(.\{-}\)\s*\(s\s.*\)*\s*"', '\1', '')
if color == s
color = ""
endif
endif
endif
endif
# Vim cannot handle RGB codes with more than 6 hex digits
if color =~ '#\x\{10,}$'
color = substitute(color, '\(\x\x\)\x\x', '\1', 'g')
elseif color =~ '#\x\{7,}$'
color = substitute(color, '\(\x\x\)\x', '\1', 'g')
# nor with 3 digits
elseif color =~ '#\x\{3}$'
color = substitute(color, '\(\x\)\(\x\)\(\x\)', '0\10\20\3', '')
endif
# escape meta characters in patterns
s = escape(s, '/\*^$.~[]')
chars = escape(chars, '/\*^$.~[]')
# now create syntax items
# highlight the color string as normal string (no pixel string)
exe 'syn match xpmCol' .. n .. 'Def /' .. s .. '/ contains=xpmCol' .. n .. 'inDef'
exe 'hi link xpmCol' .. n .. 'Def String'
# but highlight the first whitespace after chars in its color
exe 'syn match xpmCol' .. n .. 'inDef /"' .. chars .. '/hs=s+' .. (cpp + 1) .. ' contained'
exe 'hi link xpmCol' .. n .. 'inDef xpmColor' .. n
# remove the following whitespace from chars
chars = substitute(chars, '.$', '', '')
# and create the syntax item contained in the pixel strings
exe 'syn match xpmColor' .. n .. ' /' .. chars .. '/ contained'
exe 'syn cluster xpmColors add=xpmColor' .. n
# if no color or color = "None" show background
if color == "" || substitute(color, '.*', '\L&', '') == 'none'
exe 'hi xpmColor' .. n .. ' guifg=bg'
exe 'hi xpmColor' .. n .. ' guibg=NONE'
elseif color !~ "'"
exe 'hi xpmColor' .. n .. " guifg='" .. color .. "'"
exe 'hi xpmColor' .. n .. " guibg='" .. color .. "'"
endif
n += 1
else
break # no more color string
endif
endif
endfor
enddef
call s:CreateSyntax()
endif " has("gui_running") || has("termguicolors") && &termguicolors
" Define the default highlighting.
" Only when an item doesn't have highlighting yet
hi def link xpmType Type
hi def link xpmStorageClass StorageClass
hi def link xpmTodo Todo
hi def link xpmComment Comment
hi def link xpmPixelString String
let b:current_syntax = "xpm"
" vim: ts=8:sw=3:noet:
|
