set nocompatible
filetype off

set runtimepath+=~/.vim/bundle/vundle/
call vundle#rc()

Bundle 'L9'
Bundle 'FuzzyFinder'
Bundle 'surround.vim'
Bundle 'kien/ctrlp.vim'
Bundle 'sgur/ctrlp-extensions.vim'
Bundle 'kana/vim-metarw'
Bundle 'kana/vim-metarw-git'
Bundle 'motemen/git-vim'
Bundle 'motemen/vim-guess-abbrev'
Bundle 'motemen/tap-vim'
Bundle 'Lokaltog/vim-easymotion'
Bundle 'wombat256.vim'
Bundle 'desert-warm-256'
Bundle 'vim-coffee-script'
Bundle 'surround.vim'
Bundle 'nginx.vim'
Bundle 'scala.vim'
Bundle 'smartchr'

Bundle 'petdance/vim-perl'

Bundle 'pangloss/vim-javascript'
Bundle 'briancollins/vim-jst'

Bundle 'groenewege/vim-less'

Bundle 'slim-template/vim-slim'

" Bundle 'Valloric/YouCompleteMe'

" Bundle 'ervandew/supertab'

Bundle 'VimClojure'

Bundle 'closetag.vim'

Bundle 'terryma/vim-expand-region'
Bundle 'https://github.com/plasticboy/vim-markdown.git'

Bundle 'kana/vim-textobj-user'
Bundle 'kana/vim-textobj-syntax'
Bundle 'kana/vim-textobj-lastpat'
Bundle 'thinca/vim-textobj-function-perl'
Bundle 'mjbrownie/html-textobjects'

Bundle 'leafgarland/typescript-vim'

Bundle 'motemen/vim-help-random'

Bundle 'motemen/vim-syntax-dockerfile'

Bundle 'gre/play2vim'

" auto-pairs {{{
Bundle 'motemen/auto-pairs'
let g:AutoPairsSkipToNextClosedPair = 0
let g:AutoPairsDisableJustBeforeChar = 1
let g:AutoPairsMapCR = 0
let g:AutoPairsMapSpace = 0
" }}}

Bundle 'editorconfig/editorconfig-vim'

Bundle 'thinca/vim-qfreplace'

""" Go {{{

" if strlen($GOROOT) > 0
"     set runtimepath+=$GOROOT/misc/vim
" endif
" 
" Bundle 'nsf/gocode', {'rtp': 'vim/'}

Bundle 'fatih/vim-go'

""" }}}

" TypeScript {{{
Bundle 'clausreinke/typescript-tools'
let g:TSS = [ expand('~/.vim/bundle/typescript-tools/bin/tss') ]
" }}}

Bundle 'junegunn/fzf'

Bundle 'wellle/targets.vim'

Bundle 'mattn/ctrlp-ghq'

syntax on
filetype plugin indent on

if &term =~ 'screen'
    autocmd BufEnter * if bufname('') !~ '^\[A-Za-z0-9\]*://' | silent! exe '!echo -n "k+' . expand('%:t') . '\\"' | endif
endif

set tabstop=8
set shiftwidth=4
set softtabstop=4
set expandtab
set autoindent
set smartindent
set listchars=tab:▸\ ,trail:$
set list
set virtualedit=block
set scrolloff=1
set isfname+=-
set timeoutlen=400
set noequalalways
set concealcursor=n
set backspace=indent,eol,start
set number
set numberwidth=4
set nobackup
"set backupcopy=no
set hidden
"set switchbuf=useopen,split
set foldmethod=marker
set tags=tags,TAGS
set ignorecase
set smartcase
set incsearch
set hlsearch
set wrapscan
set showmatch
set nowarn
set notagbsearch
set updatetime=400
set path^=lib,modules/*/lib,templates
set wildmode=list:longest,list:full
set wildmenu
set wildignore=*.o,*.hi,*.obj,*.sw?,blib*,cover_db*

set complete-=i
set completeopt=menu,longest

set fileencodings=ucs-bom,utf-8,euc-jp,cp932 ",ucs-2le,utf-16
set fileformats=unix,dos
set termencoding=utf-8
set encoding=utf-8
set ambiwidth=single
set cmdheight=2
set showcmd
set laststatus=2
set cpoptions+=F

set statusline=[%n]%m\ %(%1*%{GitBranch()}%*\ %)%f\ %<%h%w%r%y[%{&fenc!=''?&fenc:&enc}][%{&ff}]%=[%{Cwd()}]\ %l,%c%V\ %4P

set cedit=<C-O>
set history=1000

set shortmess+=A
set splitright
set grepprg=git\ grep\ -n
set pastetoggle=<F10>

nnoremap <silent> cd    :lcd %:p:h<Return>
nnoremap          <C-J> :
vnoremap          <C-J> :

iabbrev shfit  <F10>shift<F10>
iabbrev sfhit  <F10>shift<F10>
iabbrev sfhti  <F10>shift<F10>
iabbrev sfthi  <F10>shift<F10>
iabbrev sefl   <F10>self<F10>
iabbrev sned   <F10>send<F10>
iabbrev arsg   <F10>args<F10>
iabbrev lenght <F10>length<F10>
iabbrev argumetns <F10>arguments<F10>

nnoremap <silent> j gj
nnoremap <silent> k gk
vnoremap <silent> j gj
vnoremap <silent> k gk

nnoremap g<Enter> :redraw!<Enter>:redrawstatus!<Enter>
nnoremap g<C-A> :<C-U>execute 'normal' '^' . v:count . "\<C-A>"<CR>
nnoremap g<C-X> :<C-U>execute 'normal' '^' . v:count . "\<C-X>"<CR>

nnoremap gi :<C-U>!gi
nnoremap gI gi

nnoremap <silent> <ESC>z :pclose<CR>:cclose<CR>

nnoremap <silent> <C-]> <C-]>zt

inoremap <silent> <BS>  <C-G>u<BS>
"inoremap <silent> <C-H> <C-G>u<C-H>
"inoremap <silent> <C-W> <C-G>u<C-W>
"inoremap <silent> <C-U> <C-G>u<C-U>
"inoremap <silent> <C-R> <C-G>u<C-R>
inoremap <silent> <CR>  <C-G>u<CR>
inoremap <silent> <C-F> <Right>
inoremap <silent> <C-B> <Left>

inoremap <C-S> <C-O>:update<CR>

inoremap <expr> <C-L> pumvisible() ? "\<C-L>" : smartchr#one_of('->', '=>')

" inoremap <expr> <C-N> pumvisible() ? "\<Down>" : "\<C-N>"
" inoremap <expr> <C-P> pumvisible() ? "\<Up>"   : "\<C-P>"

cnoremap <C-A>      <Home>
cnoremap <C-B>      <Left>
cnoremap <C-D>      <Del>
cnoremap <C-E>      <End>
cnoremap <C-F>      <Right>
cnoremap <C-N>      <Down>
cnoremap <C-P>      <Up>
cnoremap <Esc>b     <S-Left>
cnoremap <Esc>f     <S-Right>

cnoremap <C-S>      <cword>
cnoremap <C-X>      =expand('%:h').'/'<Enter>
cnoremap <C-CR>     =getcmdtype()=='/'?'/0':''
<Enter>:nohlsearch<Enter>

cnoremap <expr> <C-J>  getcmdline() == '' ? '!' : getcmdline() == '!' ? "\<C-U>TmuxSplitRun " : "\<CR>"

nnoremap <silent> gs0 :echo synIDattr(synID(line('.'), col('.'), 1), 'name')<CR>
nnoremap <silent> gs1 :echo synIDattr(synID(line('.'), col('.'), 0), 'name')<CR>
nnoremap gs <nop>

nnoremap <silent> <TAB>      gt
nnoremap <silent> <S-TAB>    gT
nnoremap <silent>     gT
nnoremap <silent> <C-L>      <C-I>

nnoremap <expr> ^ search('^\s*\%#\S', 'n') ? '0' : '^'

" Q
nnoremap gq q

" QuickFix
nnoremap <ESC>. :cnext<Enter>
nnoremap <ESC>, :cprev<Enter>
nnoremap <ESC>u :update<Enter>
nnoremap <ESC>m :update<Enter>:make<Enter>

nnoremap <ESC> <C-W>

nnoremap <C-Q> :set hlsearch!<Enter>
nnoremap /     :set hlsearch<Enter>/
nnoremap ?     :set hlsearch<Enter>?
nnoremap *     :set hlsearch<Enter>*

nnoremap qo     :botright copen<Enter>
nnoremap qc     :cclose<Enter>
nnoremap qn     :cnext<Enter>
nnoremap qp     :cprev<Enter>
nnoremap qq     :cc<Enter>
nnoremap qf     :cfile<Enter>
nnoremap q      <NOP>

nnoremap Qo     :lopen<Enter>
nnoremap Qn     :lnext<Enter>
nnoremap Qp     :lprev<Enter>
nnoremap Qc     :lclose<Enter>
nnoremap QO     :lopen<Enter>
nnoremap QN     :lnext<Enter>
nnoremap QP     :lprev<Enter>
nnoremap QC     :lclose<Enter>
nnoremap QQ     :ll<Enter>
nnoremap Q      <NOP>

nnoremap Y y$

cnoremap <expr> <C-G> "\<C-U>grep" . (len(@/) ? ' ' . substitute(@/, '^\\<\(.*\)\\>', '-w \1', '') : '')

nmap <Space> [Space]
nmap [Space] <NOP>
let mapleader='0'

" gabbrev {{{
inoremap <silent> <expr> <C-]> gabbrev#i_start()
let g:gabbrev#keyword_ch_pattern = '[[:alnum:]:]'
" }}}

" surround
let g:surround_no_mappings = 1
nmap      ds   <Plug>Dsurround

" fuzzyfinder {{{
let g:fuf_autoPreview = 0
let g:fuf_previewHeight = 5
let g:fuf_smartBs = 0
let g:fuf_keyOpenTabpage = '<C-]>'
let g:fuf_keyPreview = '<C-I>'
let g:fuf_buffer_keyDelete = '<C-L>'
let g:fuf_enumeratingLimit = 300
let g:fuf_maxMenuWidth = 100
let g:fuf_splitPathMatching = 0

nnoremap <silent> <C-S>      :FufFile<CR>
nnoremap <silent> <C-P>      :FufVCSAll<CR>
nnoremap <silent> <C-P><C-P> :FufVCSAll<CR>
nnoremap <silent> g<C-S>     :FufFileWithCurrentBufferDir<CR>
nnoremap <silent> m<C-S>     :FufMruFile<CR>
nnoremap <silent> t<C-S>     :FufTab<CR>
nnoremap <silent> ]<C-S>     :FufTag<CR>
nnoremap <silent> q<C-S>     :FufQuickfix<CR>
nnoremap <silent> <C-B>      :FufBuffer<CR>
cnoremap <silent> <expr> <C-S> getcmdtype() =~ '[/?]' ? "<C-C>:FufLine! " . getcmdline() . "<CR>" : ''

augroup vimrc-fuf
    autocmd!
    autocmd FileType fuf inoremap <buffer> <C-C> <ESC>
    " autocmd FileType fuf inoremap <buffer> <C-D> <C-O>:FufRenewCache<CR><C-X><C-N>
    autocmd FileType fuf inoremap <buffer> <F5>  <C-O>:FufRenewCache<CR><C-X><C-N>
    autocmd FileType fuf inoremap <buffer> <C-S> <C-R>=fuf#launch('coveragefile', '', '') ? '' : ''<CR>
    autocmd FileType fuf inoremap <buffer> <C-D> <C-R>=fuf#file#renewCache() ? '' : ''<CR>
augroup END

if exists('*neocomplcache#disable')
    autocmd BufEnter \[fuf\] silent call neocomplcache#disable()
endif

if exists('*fuf#addMode')
    autocmd VimEnter * call fuf#addMode('tab')
endif

let g:fuf_modesDisable = ['mrucmd','coveragefile','bookmarkfile','bookmarkdir']

autocmd VimEnter * call fuf#addMode('vcsall')
" }}}

" tap.vim {{{
autocmd FileType tap-result nnoremap <buffer> <ESC>m :call tap#prove(b:tap_arg)<CR>
" }}}

noremap K <NOP>
nnoremap <Leader>* *N

nnoremap <C-W><C-U> :update<Enter>
nnoremap <C-W><C-C> <Nop>
nnoremap <ESC>/     :split<CR>/

command! -range=% Source silent split `=tempname()` | silent put=getbufline('#', <line1>, <line2>) | silent write | source % | bwipeout

""" Plugin settings """

" Git
let git_highlight_blame = 1
let git_no_map_default = 1
nnoremap <Leader>gd :GitDiff -M --no-prefix<Enter>
nnoremap <Leader>gD :GitDiff -M --cached --no-prefix<Enter>
nnoremap <Leader>gs :GitStatus<Enter>
nnoremap <Leader>ga :GitAdd<Enter>
nnoremap <Leader>gA :GitAdd -u<Enter>
nnoremap <Leader>gc :GitCommit<Enter>
nnoremap <Leader>gp :GitPullRebase<Enter>

" CtrlP
let g:ctrlp_extensions = ['ghq', 'quickfix', 'cmdline', 'yankring', 'tag', 'perldoc']
let g:ctrlp_prompt_mappings = {
  \ 'PrtBS()':              ['<bs>','<c-h>'],
  \ 'PrtDelete()':          ['<del>'],
  \ 'PrtDeleteWord()':      ['<c-w>'],
  \ 'PrtClear()':           ['<c-u>'],
  \ 'PrtSelectMove("j")':   ['<c-n>', '<down>'],
  \ 'PrtSelectMove("k")':   ['<c-p>', '<up>'],
  \ 'PrtHistory(-1)':       ['<m-p>'],
  \ 'PrtHistory(1)':        ['<m-n>'],
  \ 'AcceptSelection("e")': ['<cr>', '<2-LeftMouse>'],
  \ 'AcceptSelection("h")': ['<c-j>', '<c-cr>', '<c-s>'],
  \ 'AcceptSelection("t")': ['<c-]>', '<MiddleMouse>'],
  \ 'AcceptSelection("v")': ['<c-k>', '<c-q>', '<RightMouse>'],
  \ 'ToggleFocus()':        ['<s-tab>'],
  \ 'ToggleRegex()':        ['<c-r>'],
  \ 'ToggleByFname()':      ['<c-d>'],
  \ 'ToggleType(1)':        ['<c-f>', '<c-up'],
  \ 'ToggleType(-1)':       ['<c-b>', '<c-down>'],
  \ 'PrtExpandDir()':       ['<tab>'],
  \ 'PrtCurStart()':        ['<c-a>'],
  \ 'PrtCurEnd()':          ['<c-e>'],
  \ 'PrtCurLeft()':         ['<left>'],
  \ 'PrtCurRight()':        ['<right>'],
  \ 'PrtClearCache()':      ['<F5>'],
  \ 'PrtDeleteMRU()':       ['<F7>'],
  \ 'CreateNewFile()':      ['<c-y>'],
  \ 'MarkToOpen()':         ['<c-z>'],
  \ 'OpenMulti()':          ['<c-o>'],
  \ 'PrtExit()':            ['<esc>', '<c-g>', '<c-c>'],
  \ }
let g:ctrlp_max_depth = 10
let g:ctrlp_user_command = ['.git/', 'cd %s && git ls-files']
let g:ctrlp_use_caching = 1
let g:ctrlp_clear_cache_on_exit = 1
let g:ctrlp_map = 'g<C-P>'

" lightline {{{
Bundle 'itchyny/lightline.vim'
let g:lightline = {}
let g:lightline.component = { 'filename': '%f' }
let g:lightline.active = {
            \ 'left': [ [ 'mode', 'paste' ],
            \           [ 'bufnum', 'gitbranch' ],
            \           [ 'readonly', 'filename', 'modified' ]
            \         ],
            \ 'right': [ [ 'cwd' ],
            \            [ 'lineinfo' ],
            \            [ 'fileformat', 'fileencoding', 'filetype' ]
            \          ]
            \ }
let g:lightline.inactive = {
            \ 'left': [ [ 'bufnum' ], [ 'filename' ] ]
            \ }
let g:lightline.component_function = {
            \ 'cwd': 'Cwd',
            \ 'gitbranch': 'GitBranch'
            \ }
" }}}

" nnoremap <silent>    :let g:ctrlp_default_input = 0<CR>:CtrlPMixed<CR>
" nnoremap <silent>  :let g:ctrlp_default_input = 0<CR>:CtrlPMixed<CR>
" nnoremap <silent> t  :let g:ctrlp_default_input = 0<CR>:CtrlPTag<CR>
" nnoremap <silent> t  :let g:ctrlp_default_input = 0<CR>:CtrlPTag<CR>
" nnoremap <silent> p  :call ctrlp#init(ctrlp#perldoc#id())<CR>
nnoremap <silent> <C-P>p  :call ctrlp#init(ctrlp#perldoc#id())<CR>
nnoremap <silent> <C-P>g  :call ctrlp#init(ctrlp#ghq#id())<CR>

" override
runtime autoload/ctrlp.vim

redir => sc_names
silent scriptnames
redir END

let s:ctrlp_sid = matchstr(sc_names, '\zs[0-9]\+\ze: \S\+autoload/ctrlp\.vim')

function! ctrlp#buffers(...)
    let ids = sort(filter(range(1, bufnr('$')),
                \ 'getbufvar(v:val, "&bl") && strlen(bufname(v:val))'), '<SNR>'.s:ctrlp_sid.'_compmreb')
    retu a:0 && a:1 == 'id' ? ids : map(ids, 'fnamemodify(bufname(v:val), ":.")')
endf

" easymotion
let g:EasyMotion_keys = 'abcdefghijklmnopqrstuvwxyz0123456789'
let g:EasyMotion_grouping = 1

" syntax/sh.vim
let g:is_bash = 1

" TOhtml
let html_number_lines = 0
let html_use_css = 1

autocmd BufRead *.tt      setfiletype html
autocmd BufNewFile,BufReadPost *.t   setlocal filetype=perl
autocmd BufRead *.psgi    setfiletype perl

""" autocmds """
autocmd BufWritePost,FileWritePost {*.vim,*vimrc} if &autoread | source <afile> | endif
autocmd Filetype html,xml,xsl,xhtml,markdown runtime plugin/closetag.vim | inoremap <silent> <C-_> <C-R>=GetCloseTag()<CR>
autocmd QuickFixCmdPre * silent botright pedit \*preview\* | 99wincmd w | silent enew
autocmd QuickFixCmdPost {make*,grep*,vim*,c*} if len(filter(getqflist(), 'v:val.bufnr')) | else | pclose | endif

autocmd InsertLeave * set nopaste

function! Cwd()
    if exists('b:Cwd') && exists('b:cwd') && b:cwd == getcwd()
        return b:Cwd
    endif
    if !exists('g:statusline_cwd_maxlen')
        let g:statusline_cwd_maxlen = winwidth(0) / 3
    endif
    let delim = has('win32') ? '\' : '/'
    let b:cwd = fnamemodify(getcwd(), ':~')
    let components = split(b:cwd, '[\\/]', 1)

    let cwd = join(components, delim)
    let i = 0
    while len(components) > i && len(cwd) > g:statusline_cwd_maxlen
        let cwd = join(map(components[0:i], 'v:val[0]') + components[i+1:], delim)
        let i += 1
    endwhile

    let b:Cwd = substitute(cwd, '/*$', '', '')
    let t:cwd = b:cwd
    return b:Cwd
endfunction

command! -nargs=1 -complete=file Move file <args> | silent write | call delete(expand('#'))

augroup vimrc-cd-to-project-dir
    autocmd!
    autocmd BufEnter * if !exists('t:cwd') | call s:cd_to_project_dir() | endif

    nnoremap cD :call <SID>cd_to_project_dir()<CR>

    function! s:cd_to_project_dir()
        if len(&buftype)
            return
        endif
        let dir = system('cd "' . expand('%:p:h') . '"; git rev-parse --show-toplevel 2>/dev/null')
        let dir = substitute(dir, '\n', '', '')
        if v:shell_error == 0 && strlen(dir) && isdirectory(dir)
            execute 'lcd' fnameescape(dir)
            if exists('b:git_dir')
                unlet b:git_dir
            endif
        endif
    endfunction
augroup END

function! s:SpacesAsAbove()
    let [lnum, col] = getpos('.')[1:2]
    let line_above  = getline(lnum - 1)
    if col >= len(line_above)
        return "\<C-U>"
    endif
    let string_ahead = matchstr(line_above, '\%' . (col + 1) . 'c\S*\s*')
    let len = strlen(string_ahead)
    return repeat(' ', len + 1)
endfunction

inoremap <expr> <C-E> pumvisible() ? "\<C-E>" : <SID>SpacesAsAbove()

augroup vimrc-auto-mkdir
    autocmd!
    autocmd BufWritePre * call s:auto_mkdir(expand('<afile>:p:h'))
    function! s:auto_mkdir(dir)
        if !isdirectory(a:dir)
            call mkdir(a:dir, 'p')
        endif
    endfunction
augroup END

" tmux
"command! -nargs=* -complete=shellcmd TmuxSplitRun let _cmd = len(<q-args>) ? shellescape(substitute(<q-args> . '; read' , '%', expand('%'), '')) : '' | let tmux_run_command = printf('tmux if-shell "tmux select-pane -t.1" "send-keys ^C" \; if-shell "tmux respawn-pane -t.1 %s" "select-window" "split-window -d -v -p 30 %s"', _cmd, _cmd) | ruby `#{VIM::evaluate('tmux_run_command')}`
command! -nargs=* -complete=shellcmd -bang TmuxSplitRun
            \ let _cmd = len(<q-args>) ? shellescape(substitute(<q-args> . '; read' , '%', expand('%'), '')) : '' |
            \ let tmux_cmd = printf('tmux if-shell "tmux select-pane -t.1" "send-keys ^C" \; if-shell "tmux respawn-pane -t.1 %s" "select-window" "split-window -d -v -p 30 %s"%s', _cmd, _cmd, len('<bang>') ? ' \; resize-pane -Z' : '') |
            \ call system(tmux_cmd)
nnoremap <Leader>! :TmuxSplitRun 

nnoremap <ESC>m :update<Enter>:execute 'TmuxSplitRun' &makeprg<Enter>

augroup vimrc-add-highlights
    autocmd!
    autocmd ColorScheme * call s:add_highlights()
    function! s:add_highlights()
        highlight clear MatchParen
        highlight MatchParen term=bold gui=bold cterm=bold
        highlight CursorLine ctermbg=NONE
        highlight CursorColumn ctermbg=NONE
        highlight Pmenu ctermbg=grey ctermfg=236
        highlight Pmenusel ctermbg=lightblue ctermfg=236
        highlight Pmenuselbar ctermbg=grey
        highlight Folded ctermbg=240 ctermfg=252 cterm=NONE
        highlight TabLine cterm=underline ctermbg=NONE
        highlight Title cterm=underline
        highlight Search ctermbg=cyan ctermfg=black
        highlight Visual cterm=NONE ctermbg=yellow ctermfg=black
        highlight StatusLine ctermbg=236
        highlight StatusLineNC ctermbg=236
        highlight Normal ctermbg=none
        highlight User1 ctermbg=NONE ctermfg=2
        highlight SpecialKey ctermfg=DarkGray
    endfunction
augroup END

colorscheme desert-warm-256

command! -nargs=1 -complete=custom,PerlModules Perldoc new | :call Perldoc(<q-args>)
command! -nargs=* -range GitBrowseRemote !git browse-remote --rev -L<line1>,<line2> <f-args> -- %

" nnoremap <silent> <C-]> :call UpdateCtags()<CR>:normal! \<C-]\><CR>

function! UpdateCtags()
    if stridx(expand('%:p'), getcwd()) != 0
        return 0
    end

    for tagfile in tagfiles()
        if getftime(tagfile) > getftime(expand('%'))
            return 0
        endif
    endfor

    !ctags -R $(git ls-tree --name-only HEAD)
endfunction

function! PerlModules(arg_lead, cmd_line, cursor_ops)
    return system('pm-packages.pl --local')
endfunction

function! Perldoc(args)
    if !&modifiable || &modified || bufname('%') != ''
        throw 'Perldoc: cannot use this buffer'
    endif

    let bufname = '[perldoc ' . a:args . ']'

    if bufexists(bufname)
        execute 'buffer' bufnr(fnameescape(bufname))
        return
    endif

    enew

    let perldoc = 'perldoc'
    if isdirectory('local/lib/perl5')
        let perldoc = 'PERL5OPT=-Ilocal/lib/perl5 ' . perldoc
    end

    setlocal buftype=nofile
    silent execute '0read!' . perldoc . ' -otext -T' a:args

    if v:shell_error
        let message = getline(1)
        bwipeout
        echohl Error
        echo message
        echohl None
    else
        let b:perldoc_args = a:args
        file `=bufname`
        setlocal noswapfile nomodifiable
        setfiletype man
        nnoremap <buffer> s :edit `=system('perldoc -l ' . b:perldoc_args)`<Enter>
        0
    endif
endfunction

augroup pm-autoinsert-package
    autocmd!
    autocmd BufNewFile *.pm call append(0, [
                    \ 'package ' . fnamemodify(expand('%'), ':r:s.^lib/..:gs./.::.') . ';',
                    \ 'use strict;', 'use warnings;'
                \ ])
                \ | call append(line('$'), '1;')
                \ | set modified
augroup END

augroup gemfile-autoinsert-source
    autocmd!
    autocmd BufNewFile Gemfile call append(0, "source 'https://rubygems.org'") | set modified
augroup END

finish