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
|
" Author : Aditya Mahajan <adityam [at] umich [dot] edu>
" version : 2011.12.23
" license : Simplified BSD License
" This script is part of the t-vim module for ConTeXt. It is based on 2html.vim.
" Since this script is called by the t-vim module, we assume that Two buffers
" are open. The first buffer is the input buffer, and the second buffer is the
" output buffer. The script parses content line-by-line from the first buffer
" and pastes the modified result on the second buffer.
" Split screen and go to the second buffer, ensure modifiable is set, and the
" buffer is empty.
sblast
set modifiable
%d
" Go to first buffer
wincmd p
" If contextstartline and contextstartline are set, use them.
if exists("contextstartline")
let s:lstart = max([1, min([line("$"), contextstartline]) ])
else
let s:lstart = 1
endif
if exists("contextstopline")
if contextstopline <= 0
let contextstopline = line("$") + contextstopline
endif
let s:lstop = min([line("$"), max([s:lstart, contextstopline]) ])
else
let s:lstop = line("$")
endif
" Set highlight
if !exists("highlight")
let highlight=[]
endif
" Set escapecomments
if !exists("escapecomments")
let escapecomments=0
endif
let s:strip = strlen( matchstr( getline(s:lstart), '^\s*' ) )
" Find the smallest leading white space
if exists("strip") && strip && (s:strip != 0)
echo "Calculating amount of leading whitespace"
for s:lnum in range(s:lstart, s:lstop)
let s:line = getline(s:lnum)
if (match(s:line, '^\s*$')) == -1 " line is not empty
let s:space = matchstr(s:line, '^\s*')
let s:len = strlen(s:space)
" echo s:len
let s:strip = min([s:strip, s:len])
if s:strip == 0
break
end
end
endfor
" echo "Strip amount:" . s:strip
else
let s:strip = 0
endif
let s:lines = []
" Loop over all lines in the original text.
let s:buffer_lnum = 1
let s:lnum = s:lstart
while s:lnum <= s:lstop
" Get the current line
let s:line = getline(s:lnum)
let s:len = strlen(s:line)
let s:new = ''
" Loop over each character in the line
let s:col = s:strip + 1
while s:col <= s:len
let s:startcol = s:col " The start column for processing text
let s:id = synID (s:lnum, s:col, 1)
let s:col = s:col + 1
" Speed loop (it's small - that's the trick)
" Go along till we find a change in synID
while s:col <= s:len && s:id == synID(s:lnum, s:col, 1)
let s:col = s:col + 1
endwhile
" Output the text with the same synID, with class set to {s:id_name}
let s:id = synIDtrans (s:id)
let s:id_name = synIDattr (s:id, "name", "gui")
let s:temp = strpart(s:line, s:startcol - 1, s:col - s:startcol)
" Remove line endings (on unix machines reading windows files)
let s:temp = substitute(s:temp, '\r*$', '', '')
" It might have happened that that one has been the last item in a row, so
" we don't need to print in in that case
if strlen(s:temp) > 0
" Change special TeX characters to escape sequences.
if !(escapecomments && s:id_name == "Comment")
let s:temp = escape( s:temp, '\{}')
endif
if !empty(s:id_name)
let s:temp = '\SYN[' . s:id_name . ']{' . s:temp . '}'
endif
let s:new = s:new . s:temp
endif
" Why will we ever enter this loop
" if s:col > s:len
" break
" endif
endwhile
" Expand tabs
let s:pad = 0
let s:start = 0
let s:idx = stridx(s:line, "\t")
while s:idx >= 0
let s:i = &ts - ((s:start + s:pad + s:idx) % &ts)
" let s:new = substitute(s:new, '\t', strpart(s:expandedtab, 0, s:i), '')
let s:new = substitute(s:new, '\t', '\\tab{' . s:i . '}', '')
let s:pad = s:pad + s:i - 1
let s:start = s:start + s:idx + 1
let s:idx = stridx(strpart(s:line, s:start), "\t")
endwhile
" Remove leading whitespace
" let s:new = substitute(s:new, '^\s\{' . s:strip . '\}', "", "")
" Highlight line, if needed.
if (index(highlight, s:lnum) != -1)
let s:new = '\HGL{' . s:new . '}'
endif
" Add begin and end line markers
let s:new = "\\SYNBOL{}" . s:new . "\\SYNEOL{}"
call add(s:lines, s:new)
" Increment line numbers
let s:lnum = s:lnum + 1
let s:buffer_lnum = s:buffer_lnum + 1
endwhile
" Go to previous buffer
wincmd p
echo s:lines
call setline(1,s:lines)
unlet s:lines
write
|
