VIM : add extra info while using ToHtml

.vim/vimrc
137 "Convert to HTML command
138 function! s:MyDoToHtml(sline,eline)
139 "let g:html_use_xhtml = 1
140 if s:myHtmlVer=="htmlfmt_css"
141 let g:html_use_css = 1
142 "let g:html_dynamic_folds = 1
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 "insert header to html
155 function! s:MyAddHtmlHeader(str)
156 if !empty(s:srcFilename)
157 "replace string pre xxx> as <pre xxx><span>file name<\span>a
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 "convert file to html
168 function! s:MyToHtml(sline,eline,...)
169 let s:srcFilename = expand("%")
170 let s:tipstr = s:srcFilename
171 "if exist save path param
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 "insert filename to html 
183 call s:MyAddHtmlHeader(s:tipstr)
184 "save html file
185 if !empty(s:saveFilename)
186 "if s:saveFilename is a directory 
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 "create cmd string for save html
191         let s:saveHtmlcmd='wq! '.s:saveFilename
192         exe s:saveHtmlcmd
193 call s:MySwitchView("edit")
194 endif
195 endfunction
196 "-----------------------------------------------------------------------
197 ">>>>>>>>>>>>  MODIFY ConsoleCfg According to Platform <<<<<<<<<<<<<<<<
198 "let s:myConsoleCfg = "cfg_local"
199 let s:myConsoleCfg = "cfg_remote"
200 "let s:myConsoleCfg = "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 "command! -nargs=+ -range=% -complete=file CvtHtml :call s:MyToHtml(<line1>, <line2>, <q-args>)  
222 "-----------------------------------------------------------------------
223 nmap <silent>  ;bkh  :call s:MySwitchView("html")<CR>
224 nmap <silent>  ;bkt  :call s:MySwitchView("edit")<CR>
225 "=======================================================================
226 
227 
228 "======================= Default Configure =============================
229 call  s:MySwitchView("edit")
230 "=======================================================================