.vimrc

"""blinking cursor fix:
"""autocmd VimEnter * silent !printf '\033[?12l'

filetype plugin on
let g:omni_sql_no_default_maps = 1

let g:csv_mode="off"
function CSV()
  if g:csv_mode ==? "off"
    set filetype="csv"
    set syntax="csv"
    runtime ftplugin/csv.vim
    runtime csv-syntax.vim

    %ArrangeColumn
    let g:csv_mode="on"
  else
    %UnArrangeCol
    let g:csv_mode="off"
    set syntax=""
  endif
endfunction
command CSV call CSV()
command Csv call CSV()

function LoadTemp()
  LoadFileTemplate default
  :normal! Gddgg
endfunction
autocmd! BufNewFile * call LoadTemp()

set hidden
set ofu=syntaxcomplete#Complete
set backspace=2
set uc=0 """no swapfile
set ic
set history=9000
set nocompatible
set nowrap
syntax on

set number

colorscheme solarized
set background=dark
hi Normal ctermfg=green ctermbg=none
hi LineNr ctermfg=blue ctermbg=darkgray

"""detect filetypes"""
au BufRead * call s:isHaskellScript()
function s:isHaskellScript()
  if match(getline(1), '\v#!.*run(ghc|haskell)') >= 0
    set filetype=haskell
  endif
endfunction

" override default ftplugin for python
au BufRead,BufNewFile *.py set shiftwidth=2 tabstop=2 softtabstop=2
""""""

hi TrailingWhitespace ctermbg=red guibg=red
autocmd CursorMoved  * match TrailingWhitespace /\%(\s\+\&\s*\%#\@!\)$/
autocmd CursorMovedI * match TrailingWhitespace /\%(\s\+\&\s*\%#\@!\)$/

set mouse=nicr

set hlsearch
set expandtab
set autoindent
set smarttab
set tabstop=2
set softtabstop=2
set shiftwidth=2
set list
set listchars=tab:››

let g:GPGUseAgent=0

"""keep cursor vertically centered while searching"""
nnoremap n nzz
nnoremap N Nzz
nnoremap * *zz
nnoremap # #zz
nnoremap g* g*zz
nnoremap g# g#zz
""""""

"""word wrap"""
map <C-w><C-w> :s/\v(.{70}[^ ]* *)/\1\r/g<CR>
map <C-w><C-h> :s/\v(.{70}[^ ]* *)/\1\r--/g<CR>
""""""

"""command repeat"""
nmap , @:
""""""

"""Quit"""
nmap <C-X><C-C> :qa!<CR>
imap <C-X><C-C> <Esc>:qa!<CR>

nmap <C-C> :q<CR>
imap <C-C> <Esc>:q<CR>
""""""

"""Next/Prev File"""
nmap <C-N> :n<CR>
imap <C-N> <Esc>:n<CR>
nmap <C-P> :N<CR>
imap <C-P> <Esc>:N<CR>
""""""

"""delete/paste"""
imap <C-D> <Esc>ddli
imap <C-P> <Esc>pli

xmap p "_dp
xmap P "_dP
""""""

"""Undo"""
nmap <C-U>      u
imap <C-U> <Esc>uli

nmap <C-R>      <C-R>
imap <C-R> <Esc><C-R>li
""""""

"""word wrap"""
map <C-w><C-w> :s/\v(.{80}[^ ]*)/\1\r/g<CR>
map <C-w><C-h> :s/\v(.{80}[^ ]*)/\1\r--/g<CR>
""""""

"""Write"""
nmap <F3>      :w<CR>
imap <F3> <Esc>:w<CR>li
vmap <F3> :w<Del><CR>lv
""""""

"""meld"""
nmap <F2>      :Exec cd %:p:h; meld %:p >/dev/null 2>/dev/null &<CR>
imap <F2> <Esc>:Exec cd %:p:h; meld %:p >/dev/null 2>/dev/null &<CR>
""""""

"""git"""
nmap <F4>      :Exec cd %:p:h; term lazygit >/dev/null 2>/dev/null &<CR>
imap <F4> <Esc>:Exec cd %:p:h; term lazygit >/dev/null 2>/dev/null &<CR>
""""""

"""Run"""
nmap <F5> :1wincmd<space>w<CR>:w<CR>:Run<CR>
imap <F5> <ESC>:1wincmd<space>w<CR>:w<CR>:Run<CR>li

nmap <F6>      :w<CR>:Run<Space>
imap <F6> <Esc>:w<CR>:Run<Space>li
""""""

"""Clipboard"""
nmap <F7>      "+y
vmap <F7>      "+y

nmap <F8>      "+p
imap <F8> <ESC>"+pi
vmap <F8>      "+p
""""""

"""Register l"""
nmap <F9>      "ly
imap <F9> <ESC>"lyi
vmap <F9>      "ly

nmap <F10>      "lp
imap <F10> <ESC>"lpi
vmap <F10>      "lp
""""""

"""Register r"""
nmap <F11>      "ry
imap <F11> <ESC>"ryi
vmap <F11>      "ry

nmap <F12>      "rp
imap <F12> <ESC>"rpi
vmap <F12>      "rp
""""""

nnoremap <C-S> :set spell!<CR>
inoremap <C-S> <ESC>:set spell!<CR>li

nnoremap <C-M> :call ToggleRelativeNumber()<CR>

command! -bar -range=% Reverse <line1>,<line2>g/^/m<line1>-1|nohl

" Disable readonly in vimdiff
if &diff
  set noro
endif

""":Exec cmd arg arg ..
" run external commands quietly
command -nargs=1 Exec
\ execute 'silent ! ' . <q-args>
\ | execute 'redraw! '

""":Wc  msg => save, git ci FILENAME -m msg
""":Wcq msg => save, git ci FILENAME -m msg, quit
command -nargs=1 Wc  call Wc(<f-args>, "noquit")
command -nargs=1 Wcq call Wc(<f-args>, "quit")
cabbrev wc  <c-r>=(getcmdtype()==':' && getcmdpos()==1 ? 'Wc'  : 'wc' )<CR>
cabbrev wcq <c-r>=(getcmdtype()==':' && getcmdpos()==1 ? 'Wcq' : 'wcq')<CR>
function Wc(msg, maybeQuit)
    w
    let msg = "'" . substitute(a:msg, "'", "'\\\\''", "g") . "'"
    let cmd = "! git ci % -m " . msg
    execute cmd
    if a:maybeQuit == "quit"
      q
    endif
endfunction

let s:RunHeight = 12
command -nargs=* Run call Run(<f-args>)
function Run(...)
    1wincmd w
    let interpreter = strpart(getline(1),2)
    let abspath = expand("%:p")
    let arguments = join(a:000, " ")
    let call = interpreter . ' "' . abspath . '" ' . arguments

    if winnr("$") == 1
        below new
    endif

    2wincmd w
    execute "resize " . s:RunHeight
    let perlexp = 'print q(RunVimRun)x64 . <> . qq(\n);'
    execute "%! eval \"(".call." | perl -0777 -e '".perlexp."')2>&1\""
    let lines = getbufline(bufnr("%"),1,"$")
    %s/\v\_.*(RunVimRun){64}//

    if winnr("$") == 2
        below vnew
    endif

    3wincmd w
    let i = 1
    for l in lines
        call setline(i, l)
        let i += 1
    endfor
    %s/\v(RunVimRun){64}\_.*//

    1wincmd w
endfunction
command -nargs=* RunHeight call RunHeight(<f-args>)
function RunHeight(height, ...)
  let s:RunHeight = a:height
  call Run(a:000)
endfunction

function ToggleRelativeNumber()
  if &relativenumber
    set norelativenumber
    set number
  else
    set nonumber
    set relativenumber
  endif
endfunction

command -nargs=* BandCampToMusicBrainz call BandCampToMusicBrainz(<f-args>)
function BandCampToMusicBrainz()
  %s/\v^\s+\n//
  %s/\v(\d+)\.\n/\1 /
  %s/\v\s+$//
endfunction

function Inc(...)
  let result = g:i
  let g:i += a:0 > 0 ? a:1 : 1
  return result
endfunction

command -range -nargs=* Num call Num(<line1>, <line2>, <f-args>)
cabbrev num  <c-r>=(getcmdtype()==':' && getcmdpos()==1 ? 'Num'  : 'num' )<CR>
function Num(...)
  let startLine=a:1
  let endLine=a:2
  let numStart=a:0 > 2 ? a:3 : 1

  if startLine == 1 && endLine == 1
    let range = "%"
  else
    let range = startLine . "," . endLine
  endif

  let g:i = numStart
  let fmt = "\\=printf('%04d', Inc())"
  let cmd = range . "s/^/" . fmt . "/"

  execute cmd
endfunction