.vim/vimrc
137
138 function! s:MyDoToHtml(sline,eline)
139
140 if s:myHtmlVer=="htmlfmt_css"
141 let g:html_use_css = 1
142
143 else
144 let g:html_use_css = 0
145 endif
146 if s:myHtmlCmdVer=="htmlcmd_func"
147 exe elvontohtml#Convert2HTML(a:sline,a:eline)
148 else
149 let s:cvtHtmlCmd = a:sline.','.a:eline.'TOhtml'
150 exe s:cvtHtmlCmd
151 endif
152 endfunction
153
154
155 function! s:MyAddHtmlHeader(str)
156 if !empty(s:srcFilename)
157
158 if s:myHtmlVer=="htmlfmt_css"
159 let s:addFileInfoCmd='%s/\(<pre[^<]*>\)/\1<span>'.escape(a:str.'</span>',' /')
160 else
161 let s:addFileInfoCmd='%s/\(<body[^<]*>\)/\1<span>'.escape(a:str.'<br></span>',' /')
162 endif
163 exe s:addFileInfoCmd
164 endif
165 endfunction
166
167
168 function! s:MyToHtml(sline,eline,...)
169 let s:srcFilename = expand("%")
170 let s:tipstr = s:srcFilename
171
172 if a:0 > 0
173 let s:saveFilename = a:1
174 if a:0 > 1
175 let s:tipstr = s:tipstr.'\t['.a:2.']'
176 endif
177 else
178 let s:saveFilename = 0
179 endif
180 call s:MySwitchView("html")
181 call s:MyDoToHtml(a:sline, a:eline)
182
183 call s:MyAddHtmlHeader(s:tipstr)
184
185 if !empty(s:saveFilename)
186
187 if strpart(s:saveFilename, strlen(s:saveFilename) - 1, 1) == "/"
188 let s:saveFilename .=join(split(s:srcFilename,'\W'), '_').'_'.a:sline.'_'.a:eline.'.html'
189 endif
190
191 let s:saveHtmlcmd='wq! '.s:saveFilename
192 exe s:saveHtmlcmd
193 call s:MySwitchView("edit")
194 endif
195 endfunction
196
197
198 "cfg_local"
199 let s:myConsoleCfg = "cfg_remote"
200 "cfg_test"
201
202 if s:myConsoleCfg=="cfg_local"
203 let s:myHtmlCmdVer = "htmlcmd_func"
204 let s:myHtmlVer = "htmlfmt_css"
205 let s:myEditDispVer = "mydisp_black"
206 let s:myHtmlDispVer = "mydisp_black"
207 elseif s:myConsoleCfg=="cfg_remote"
208 let s:myHtmlCmdVer = "htmlcmd_func"
209 let s:myHtmlVer = "htmlfmt_css"
210 let s:myEditDispVer = "mydisp_white"
211 let s:myHtmlDispVer = "mydisp_white"
212 elseif s:myConsoleCfg=="cfg_test"
213 let s:myHtmlCmdVer = "htmlcmd_cmd"
214 let s:myHtmlVer = "htmlfmt_css"
215 let s:myEditDispVer = "mydisp_white"
216 let s:myHtmlDispVer = "mydisp_grey"
217 endif
218
219
220 command! -nargs=+ -range=% -complete=file CvtHtml :call s:MyToHtml(<line1>, <line2>, <f-args>)
221
222
223 nmap <silent> ;bkh :call s:MySwitchView("html")<CR>
224 nmap <silent> ;bkt :call s:MySwitchView("edit")<CR>
225
226
227
228
229 call s:MySwitchView("edit")
230