Vimana
view release on metacpan or search on metacpan
t/data/gist.vim view on Meta::CPAN
"=============================================================================
" File: gist.vim
" Author: Yasuhiro Matsumoto <mattn.jp@gmail.com>
" Last Change: 03-Feb-2010.
" Version: 3.2
" WebPage: http://github.com/mattn/gist-vim/tree/master
" Usage:
"
" :Gist
" post whole text to gist.
"
" :'<,'>Gist
" post selected text to gist.
"
" :Gist -p
" post whole text to gist with private.
"
" :Gist -a
" post whole text to gist with anonymous.
"
" :Gist -m
" post multi buffer to gist.
"
" :Gist -e
" edit the gist. (shoud be work on gist buffer)
" you can update the gist with :w command on gist buffer.
"
" :Gist -d
" delete the gist. (should be work on gist buffer)
" password authentication is needed.
"
" :Gist -e foo.js
" edit the gist with name 'foo.js'. (shoud be work on gist buffer)
"
" :Gist XXXXX
" edit gist XXXXX.
"
" :Gist -c XXXXX.
" get gist XXXXX and put to clipboard.
"
" :Gist -l
" list gists from mine.
"
" :Gist -l mattn
" list gists from mattn.
"
" :Gist -la
" list gists from all.
"
" Tips:
" * if set g:gist_clip_command, gist.vim will copy the gist code
" with option '-c'.
"
" # mac
" let g:gist_clip_command = 'pbcopy'
"
" # linux
" let g:gist_clip_command = 'xclip -selection clipboard'
"
" # others(cygwin?)
" let g:gist_clip_command = 'putclip'
"
" * if you want to detect filetype from gist's filename...
"
" # detect filetype if vim failed auto-detection.
" let g:gist_detect_filetype = 1
"
" # detect filetype always.
" let g:gist_detect_filetype = 2
"
" * if you want to open browser after the post...
"
" let g:gist_open_browser_after_post = 1
"
" * if you want to change the browser...
"
" let g:gist_browser_command = 'w3m %URL%'
"
" or
"
" let g:gist_browser_command = 'opera %URL% &'
"
" on windows, should work with your setting.
"
" Thanks:
" MATSUU Takuto:
" removed carriage return
" gist_browser_command enhancement
" edit support
"
" GetLatestVimScripts: 2423 1 :AutoInstall: gist.vim
" script type: plugin
if &cp || (exists('g:loaded_gist_vim') && g:loaded_gist_vim)
finish
endif
let g:loaded_gist_vim = 1
if (!exists('g:github_user') || !exists('g:github_token')) && !executable('git')
echoerr "Gist: require 'git' command"
finish
endif
if !executable('curl')
echoerr "Gist: require 'curl' command"
finish
endif
if !exists('g:gist_open_browser_after_post')
let g:gist_open_browser_after_post = 0
endif
if !exists('g:gist_browser_command')
if has('win32')
let g:gist_browser_command = "!start rundll32 url.dll,FileProtocolHandler %URL%"
elseif has('mac')
let g:gist_browser_command = "open %URL%"
elseif executable('xdg-open')
t/data/gist.vim view on Meta::CPAN
silent! %s/</\r</g
silent! %g/<pre/,/<\/pre/join!
silent! %g/<span class="date"/,/<\/span/join
silent! %g/^<span class="date"/s/> */>/g
silent! %v/^\(gist:\|<pre>\|<span class="date">\)/d _
silent! %s/<div[^>]*>/\r /g
silent! %s/<\/pre>/\r/g
silent! %g/^gist:/,/<span class="date"/join
silent! %s/<[^>]\+>//g
silent! %s/\r//g
silent! %s/ / /g
silent! %s/"/"/g
silent! %s/&/\&/g
silent! %s/>/>/g
silent! %s/</</g
silent! %s/&#\(\d\d\);/\=nr2char(submatch(1))/g
silent! %g/^gist: /s/ //g
setlocal buftype=nofile bufhidden=hide noswapfile
setlocal nomodified
syntax match SpecialKey /^gist:/he=e-1
exec 'nnoremap <silent> <buffer> <cr> :call <SID>GistListAction()<cr>'
cal cursor(1,1)
setlocal foldmethod=expr
setlocal foldexpr=getline(v:lnum)=~'^gist:'?'>1':'='
setlocal foldtext=getline(v:foldstart)
endfunction
function! s:GistGetFileName(gistid)
let url = 'http://gist.github.com/'.a:gistid
let res = system('curl -s '.url)
let res = substitute(res, '^.*<a href="/raw/[^"]\+/\([^"]\+\)".*$', '\1', '')
if res =~ '/'
return ''
else
return res
endif
endfunction
function! s:GistDetectFiletype(gistid)
let url = 'http://gist.github.com/'.a:gistid
let res = system('curl -s '.url)
let res = substitute(res, '^.*<div class="meta">[\r\n ]*<div class="info">[\r\n ]*<span>\([^>]\+\)</span>.*$', '\1', '')
let res = substitute(res, '.*\(\.[^\.]\+\)$', '\1', '')
if res =~ '^\.'
silent! exec "doau BufRead *".res
else
silent! exec "setlocal ft=".tolower(res)
endif
endfunction
function! s:GistWrite(fname)
if a:fname == expand("%:p")
Gist -e
else
exe "w".(v:cmdbang ? "!" : "")." ".fnameescape(v:cmdarg)." ".fnameescape(a:fname)
endif
endfunction
function! s:GistGet(user, token, gistid, clipboard)
let url = 'http://gist.github.com/'.a:gistid.'.txt'
let winnum = bufwinnr(bufnr('gist:'.a:gistid))
if winnum != -1
if winnum != bufwinnr('%')
exe "normal \<c-w>".winnum."w"
endif
setlocal modifiable
else
exec 'silent split gist:'.a:gistid
endif
filetype detect
exec '%d _'
exec 'silent 0r! curl -s '.url
setlocal buftype=acwrite bufhidden=delete noswapfile
setlocal nomodified
doau StdinReadPost <buffer>
normal! gg
if (&ft == '' && g:gist_detect_filetype == 1) || g:gist_detect_filetype == 2
call s:GistDetectFiletype(a:gistid)
endif
if a:clipboard
if exists('g:gist_clip_command')
exec 'silent w !'.g:gist_clip_command
else
normal! ggVG"+y
endif
endif
au BufWriteCmd <buffer> call s:GistWrite(expand("<amatch>"))
endfunction
function! s:GistListAction()
let line = getline('.')
let mx = '^gist:\(\w\+\).*'
if line =~# mx
let gistid = substitute(line, mx, '\1', '')
call s:GistGet(g:github_user, g:github_token, gistid, 0)
endif
endfunction
function! s:GistUpdate(user, token, content, gistid, gistnm)
if len(a:gistnm) == 0
let name = s:GistGetFileName(a:gistid)
else
let name = a:gistnm
endif
let namemx = '^[^.]\+\(.\+\)$'
let ext = ''
if name =~ namemx
let ext = substitute(name, namemx, '\1', '')
endif
let query = [
\ '_method=put',
\ 'file_ext[gistfile1%s]=%s',
\ 'file_name[gistfile1%s]=%s',
\ 'file_contents[gistfile1%s]=%s',
\ 'login=%s',
\ 'token=%s',
\ ]
let squery = printf(join(query, '&'),
\ s:encodeURIComponent(ext), s:encodeURIComponent(ext),
\ s:encodeURIComponent(ext), s:encodeURIComponent(name),
\ s:encodeURIComponent(ext), s:encodeURIComponent(a:content),
\ s:encodeURIComponent(a:user),
\ s:encodeURIComponent(a:token))
unlet query
let file = tempname()
exec 'redir! > '.file
silent echo squery
redir END
echon " Updating it to gist... "
let quote = &shellxquote == '"' ? "'" : '"'
let url = 'http://gist.github.com/gists/'.a:gistid
let res = system('curl -i -d @'.quote.file.quote.' '.url)
call delete(file)
let res = matchstr(split(res, '\(\r\?\n\|\r\n\?\)'), '^Location: ')
let res = substitute(res, '^.*: ', '', '')
if len(res) > 0 && res =~ '^\(http\|https\):\/\/gist\.github\.com\/'
setlocal nomodified
echo 'Done: '.res
else
t/data/gist.vim view on Meta::CPAN
continue
endif
echo "Creating gist content".index."... "
silent! exec "buffer! ".bufnr
let content = join(getline(1, line('$')), "\n")
let ext = expand('%:e')
let ext = len(ext) ? '.'.ext : ''
let name = expand('%:t')
let squery .= printf(substitute(format, 'gistfile', 'gistfile'.index, 'g'),
\ s:encodeURIComponent(ext),
\ s:encodeURIComponent(name),
\ s:encodeURIComponent(content))
let index = index + 1
endfor
silent! exec "buffer! ".bn
let file = tempname()
exec 'redir! > '.file
silent echo squery
redir END
echo "Posting it to gist... "
let quote = &shellxquote == '"' ? "'" : '"'
let url = 'http://gist.github.com/gists'
let res = system('curl -i -d @'.quote.file.quote.' '.url)
call delete(file)
let res = matchstr(split(res, '\(\r\?\n\|\r\n\?\)'), '^Location: ')
let res = substitute(res, '^.*: ', '', '')
if len(res) > 0 && res =~ '^\(http\|https\):\/\/gist\.github\.com\/'
echo 'Done: '.res
else
echoerr 'Post failed'
endif
return res
endfunction
function! Gist(line1, line2, ...)
if !exists('g:github_user')
let g:github_user = substitute(system('git config --global github.user'), "\n", '', '')
endif
if !exists('g:github_token')
let g:github_token = substitute(system('git config --global github.token'), "\n", '', '')
endif
if strlen(g:github_user) == 0 || strlen(g:github_token) == 0
echoerr "You have no setting for github."
echohl WarningMsg
echo "git config --global github.user your-name"
echo "git config --global github.token your-token"
echo "or set g:github_user and g:github_token in your vimrc"
echohl None
return 0
end
let bufname = bufname("%")
let user = g:github_user
let token = g:github_token
let gistid = ''
let gistls = ''
let gistnm = ''
let private = 0
let multibuffer = 0
let clipboard = 0
let deletepost = 0
let editpost = 0
let listmx = '^\(-l\|--list\)\s*\([^\s]\+\)\?$'
let bufnamemx = '^gist:\([0-9a-f]\+\)$'
let args = (a:0 > 0) ? split(a:1, ' ') : []
for arg in args
if arg =~ '^\(-la\|--listall\)$'
let gistls = '-all'
elseif arg =~ '^\(-l\|--list\)$'
if g:gist_show_privates
let gistls = 'mine'
else
let gistls = g:github_user
endif
elseif arg =~ '^\(-m\|--multibuffer\)$'
let multibuffer = 1
elseif arg =~ '^\(-p\|--private\)$'
let private = 1
elseif arg =~ '^\(-a\|--anonymous\)$'
let user = ''
let token = ''
elseif arg =~ '^\(-c\|--clipboard\)$'
let clipboard = 1
elseif arg =~ '^\(-d\|--delete\)$' && bufname =~ bufnamemx
let deletepost = 1
let gistid = substitute(bufname, bufnamemx, '\1', '')
elseif arg =~ '^\(-e\|--edit\)$' && bufname =~ bufnamemx
let editpost = 1
let gistid = substitute(bufname, bufnamemx, '\1', '')
elseif len(gistnm) == 0
if editpost == 1 || deletepost == 1
let gistnm = arg
elseif len(gistls) > 0
let gistls = arg
else
let gistid = arg
endif
elseif len(arg) > 0
echoerr 'Invalid arguments'
unlet args
return 0
endif
endfor
unlet args
"echo "gistid=".gistid
"echo "gistls=".gistls
"echo "gistnm=".gistnm
"echo "private=".private
"echo "clipboard=".clipboard
"echo "editpost=".editpost
"echo "deletepost=".deletepost
if len(gistls) > 0
call s:GistList(user, token, gistls)
elseif len(gistid) > 0 && editpost == 0 && deletepost == 0
call s:GistGet(user, token, gistid, clipboard)
else
if multibuffer == 1
let url = s:GistPostBuffers(user, token, private)
else
let content = join(getline(a:line1, a:line2), "\n")
if editpost == 1
let url = s:GistUpdate(user, token, content, gistid, gistnm)
elseif deletepost == 1
let url = s:GistDelete(user, token, gistid)
else
let url = s:GistPost(user, token, content, private)
endif
if len(url) > 0 && g:gist_open_browser_after_post
let cmd = substitute(g:gist_browser_command, '%URL%', url, 'g')
if cmd =~ '^!'
silent! exec cmd
else
call system(cmd)
endif
endif
endif
endif
return 1
endfunction
command! -nargs=? -range=% Gist :call Gist(<line1>, <line2>, <f-args>)
" vim:set et:
( run in 3.905 seconds using v1.01-cache-2.11-cpan-84e82930d8c )