[20120114-0021]_vimrc/OctopressにGist-tag貼り付け

_vimrc

func! s:paste_gist_tag()
  let mx = 'http[s]\?://gist.github.com/\([0-9]\+\)'
  " +または"レジスタの中身を検索する
  let regs = [@+,@"]
  for r in regs
    let mlist = matchlist(r, mx)
    if ( len(mlist) > 2 )
      "カーソル行に挿入
      exe "normal! O{% gist " . mlist[1] . " %}"
      return
    endif
  endif
endfunc

"コマンド
command! -nargs=0 PasteGist     call <SID>paste_gist_tag()