vim - insert html

HTML_insert.vim

" Version 1.2
" Script create :IMG command, whitch insert HTML IMG tag
" with fill atributes width and height.
"
" It's need _identify_ utility from ImageMagic!
"
" (c) Petr Mach <[email protected]>, 2003
" http://iglu.cz/wraith/
"
" Call it without parameter for file browser for selecting image.
"
" ver1.0 - 12. 02. 2003: HTML_loadImg()
" ver1.1 - 13. 02. 2003: bugfix by Patrick Mairif [email protected] 
"                        (path=1 => path=a:1)
" ver1.2 - 16. 02. 2003: big improvements
"                        rename HTML_loadImg() to HTML_insertImg()
"                          and fix insertet tag for XHTML compatibility
"                        create HTML_insertHref()
"                        create Absolute2Relative() for:
"                          HTML_insert*() make path relative for 
"                          files in up directory

function Absolute2Relative(path)
  let pat=a:path
  let cur=getcwd().'/'
  let lPat=strlen(pat)
  let lCur=strlen(cur)
  let i=0
  let beg=0
  while(i<lPat && i<lCur)
    if(pat[i]==cur[i])
      if(cur[i]=='/')
        let beg=i+1
      endif  
      let i=i+1
      continue
    else
      break
    endif 
  endwhile
  let rel=''
  while(i<lCur)
    if(cur[i]=='/')
      let rel=rel.'../'
    endif
    let i=i+1
  endwhile
  return rel.strpart(pat, beg)
endfunction

function HTML_insertHref(...)
  if(a:0>0)
    let path=a:1
  else  
    if(has("browse"))
      let path=browse('', 'Get file for <a href="">', '.', '')
    else
      echo "Your VIM not supported cmd :browse, insert file path manualy."
      return
    endif  
  endif  
  if(path[0]=='/')
    let path=Absolute2Relative(path)
  endif  
  let old_x=@x
  let @x='<a href="'.path.'">'.path.'</a>'
  normal "xp4hT>vt<
  let@x=old_x
endfunction
command -nargs=? -complete=file HREF call HTML_insertHref(<f-args>)

function HTML_insertImg(...)
if(a:0>0)
  let path=a:1
else  
  if(has("browse"))
    let path=browse('', 'Get image file for <img>', '.', '')
  else
    echo "Your VIM not supported cmd :browse, insert image path manualy."
    return
  endif  
endif  
  let theWH=substitute(system('identify -format %wx%h "'.path.'"'),'\n','','')
  if(path[0]=='/')
    let path=Absolute2Relative(path)
  endif  
  let theWH=substitute(theWH,'\([0-9]*\)x\([0-9]*\)','<img src="'.path.'" width="\1" height="\2" alt="" />','')
  let old_x=@x
  let @x=theWH
  "if(data==@x)
    "echo "VIM: Error, I can not detect geometry of image!\n" . @x
    "return
  "endif  
  normal "xp
  "normal "xp3h
  let@x=old_x
  startinsert
endfunction
command -nargs=? -complete=file IMG call HTML_insertImg(<f-args>)