"Vim settings file
"Author: Branislav Sobotka
"Last update: 24.11.2006

"makes vim behave in a more useful way (the default) than the vi-compatible manner.
"Remove the “no” to keep the old vi behavior
set nocompatible

"vim work directory
if has('win32') || has('win32unix') "windows/cygwin 
    let g:work_dir="e:/brano/vim"
else
    let g:work_dir="/home/brano/vim"
endif

"assign name of the edited file to s:fname variable
let s:fname = expand("%")
"assign size of the edited file to s:fsize variable
let s:fsize = getfsize(s:fname)

" Reload settings file everytime its written
function! New_vimrc()
    autocmd! bufwritepost * source $VIM/_vimrc
endfunction
"call New_vimrc()

"source $VIMRUNTIME/vimrc_example.vim

"show completion menu Vim 7.0
"set completeopt = menu
"scan only current buffer next options ,w,b,u,t,i
"set complete = ".,t" 


"makro starter
let maplocalleader = "?"

"behave mswin
source $VIMRUNTIME/mswin.vim
behave mswin

"Settings for version > 6.0
"Enables vim's syntax highlighting for files smaller than 5MB.
if s:fsize < 5000000
    syntax enable
endif

"vmap sp "zdi<span><C-R>z</span><ESC>
"vmap sp <Esc>`>a</span><Esc>`<i<span><ESC>

filetype on
filetype plugin on
filetype indent on

"fileformat dos or unix
if has('win32') || has('win32unix') "windows/cygwin 
    set fileformat=dos
else
    set fileformat=unix
endif

"timeout for map
set timeout timeoutlen=800

"Basic appearance and behavior
colorscheme darkerdesert
set nowrap
set noexpandtab "This makes vim insert tabs as tab characters instead of as a set of spaces.
set ruler 	"This makes vim show the current row and column at the bottom right of the screen.
set number
set ignorecase
set incsearch        "postupne vyhledavani zapnuto

"set showmatch 	"When a bracket is inserted, briefly jump to the matching one.
"set matchtime	"Tenths of a second to show the matching paren, when 'showmatch' is set.
if has('win32') || has('win32unix') "windows/cygwin 
    set guifont=Courier_new:h12:w6.5:b:cEASTEUROPE
else
    set guifont=-adobe-courier-bold-r-normal-*-*-180-*-*-m-*-iso8859-2
endif
"set guifont=-adobe-courier-bold-r-normal-*-*-180-*-*-m-*-iso8859-2

"file name file path
":echo expand("%")
":echo expand("%:t")
":echo expand("%:e")

"set backUp functions and vim's work directory
"Enables vim's backup functions for files smaller than 5MB.
if s:fsize < 5000000
    set backup

    let backup = g:work_dir . "/backup"
    let tmp = backup . "/" . expand("%:e")

    "echo "syntax is" . expand("%:e")
    "echo "tabstop is " . &tabstop
    "echo backup

    if exists("*mkdir")
        if !isdirectory(backup)
            call mkdir(backup)
        endif
        if !isdirectory(tmp)
            call mkdir(tmp)
        endif
    endif     

    let myvar = "set backupdir=" . tmp
    silent execute myvar
    let myvar = strftime("_%y%m%d_%Hh")
    let myvar = "set backupext=_". myvar
    execute myvar
    unlet backup    
endif

let myvar = "set directory=" . g:work_dir   "set swap directory
execute myvar
unlet myvar

"backup command
"cabbrev ba call WriteBackup()<CR>
" A mapping to make a backup of the current file.
"  %:p - return name of script with path
"fun! WriteBackup()
"    let mybackupdir = "backup/"
"    let loc_fname = s:fname . "__" . strftime("(%y%m%d)[%Hh]")
"    execute ":w " . g:work_dir . "/" . mybackupdir . loc_fname
"    echo "Wrote " g:work_dir mybackupdir  loc_fname
"endfun

if has('title')
    "set titlestring=%t%(\ %M%)%(\ (%{expand(\"%:~:.:h\")})%)%(\ %a%)
    set titlestring=%t%(\ [%R%M]%)\ %y\ (%F)%=buffer\ %n
    set titlelen=120
endif

"buffer switching
nmap > :bn<CR>
nmap < :bp<CR>

"with the following code you can hightlight (using cursorline) the current line in insert mode
"autocmd InsertLeave * se nocul
"autocmd InsertEnter * se cul

"vimgrep next previous
map <F3> :cn<CR>
map <F3> :cn<CR>
imap <F3> :cp<CR>
imap <F3> :cp<CR>

"Compare files
set diffexpr=MyDiff()
function! MyDiff()
    let opt = ''
    if &diffopt =~ 'icase' | let opt = opt . '-i ' | endif
    if &diffopt =~ 'iwhite' | let opt = opt . '-b ' | endif
    silent execute '!"F:\Program Files\vim\vim63\diff" -a ' . opt . '"' . v:fname_in . '" "' . v:fname_new . '" > "' . v:fname_out . '"'
endfunction

"TAB config Do not change or read help tabstop
set shiftwidth=4
set tabstop=4
set softtabstop=4
set noexpandtab

"search selected text by * and # 
vnoremap * y/<C-R>"<CR>
vnoremap # y?<C-R>"<CR>

"GUI
"my start
set guioptions=mrh
"maximalized window
:au GUIEnter * simalt ~x
"normal start
"set go=gmrLtT
"highlight Normal  guibg=#015076 guifg=yellow
"highlight Comment guifg=#5889dd

"TIPS
"To count the words in a file: g<ctrl-g>
"# Retrieving last command line command for copy & pasting into text
"<c-r>:
"# Retrieving last Search Command for copy & pasting into text
"<c-r>/
"'gv' reselect the previous visual area
"'gf' stands for "goto file" it opens the file under cursor. it is very useful for opening include files.
":v/^\d/d will delete all lines that don't start with a digit.

"Eliminate empty lines: v/\S/d
"Eliminate spaces at the beginning of each line: %s/^\s\+//
"Eliminate spaces at the end of the each line:%s/\s\+$//


"HELP
":Calendar - details: plugin/calendar.vim
":ColorSel - color selector details: plugin/colorsel.vim
":Asctable - asci table  details: plugin/asciitable.vim
":windo - To do repeat a command in all the windows
":bufdo - Similarly to do repeat a command in all the buffers
"Example :bufdo %s/katka//g
":reg             : display contents of all registers 

"command line abbreviations ****
"save options
cabbrev fi set foldmethod=indent
cabbrev aw set autowrite
cabbrev +b set guioptions +=b
cabbrev -b set guioptions -=b
cabbrev N tabnew
cabbrev sxml set syntax=xml
cabbrev svb set syntax=vb
cabbrev vxml ! cscript D:\bat\vim\xmlvalidate.vbs %
cabbrev vhtml ! D:\bat\vim\tidy.exe %

"Regular expressions for Code Correction
"type=text ---> type="text"
cabbrev reg1 %s/=\([^"][^> ]\{0,40\}\)/="\1"/gc
"<img > ---> <img />
cabbrev reg2 :%s/<img\([a-z ="_0-9/:;\.(){}ìšèøžýáíéùú]*[^/]\)>/<img\1 \/>/gc
"<input > ---> <input />
"cabbrev reg3 :%s/<input\([a-z ="_0-9/:;\.(){}ìšèøžýáíéùú]*[^/]\)>/<input\1 \/>/gc
"pos=1 ---> pos = 1
cabbrev reg3 :%s/\([^ ]\)=\([^ ]\)/\1 = \2/gc
"fun(a,b) ---> fun(a, b)
cabbrev reg4 :%s/\([^ ]\),\([^ ]\)/\1, \2/gc


"delete empty end of lines
cabbrev del1 :%s/\s*$//g
"delte empty lines
cabbrev del2 :g!/^dd/d
"reverse line in file
cabbrev rev1 :g/^/m0

"let g:miniBufExplMapWindowNavVim = 1
"let g:miniBufExplMapWindowNavArrows = 1
"let g:miniBufExplMapCTabSwitchBufs = 1
"let g:miniBufExplModSelTarget = 1 

"GIU
if has("gui")
    nnoremenu My_tools.Set\ language\ to\ "en"\ and\ Spell<Tab><F5>len <Esc>:set spl=en spell<CR>
    inoremenu My_tools.Set\ language\ to\ "en"\ and\ Spell<Tab><F5>len <Esc>:set spl=en spell<CR>
    nnoremenu My_tools.Set\ language\ to\ "cs"\ and\ Spell<Tab><F5>lcs <Esc>:set spl=cs spell<CR>
    inoremenu My_tools.Set\ language\ to\ "cs"\ and\ Spell<Tab><F5>lcs <Esc>:set spl=cs spell<CR>
    nnoremenu My_tools.Set\ language\ to\ "sk"\ and\ Spell<Tab><F5>lsk <Esc>:set spl=sk spell<CR>
    inoremenu My_tools.Set\ language\ to\ "sk"\ and\ Spell<Tab><F5>lsk <Esc>:set spl=sk spell<CR>
    nnoremenu My_tools.Set\ nospell<Tab><F5>offspl <Esc>:set nospell<CR>
    nnoremenu My_tools.Set\ nospell<Tab><F5>offspl <Esc>:set nospell<CR>
    :amenu My_tools.-Sep0-	:
    nnoremenu My_tools.Delete\ empty\ end\ of\ lines<Tab><F5>del1 <Esc>:%s/\s*$//g<CR>
    inoremenu My_tools.Delete\ empty\ end\ of\ lines<Tab><F5>del1 <Esc>:%s/\s*$//g<CR>
    :amenu My_tools.-Sep0-	:
    nnoremenu My_tools.RegExp:\ type=text\ --->\ type="text"<Tab><F5>reg1 <Esc>:%s/=\([^"][^> ]\{0,40\}\)/="\1"/gc<CR>
    inoremenu My_tools.RegExp:\ type=text\ --->\ type="text"<Tab><F5>reg1 <Esc>:%s/=\([^"][^> ]\{0,40\}\)/="\1"/gc<CR>
    nnoremenu My_tools.RegExp:\ img\ >\ --->\ img\ /><Tab><F5>reg2 <Esc>:%s/<img\([a-z ="_0-9/:;\.(){}ìšèøžýáíéùú]*[^/]\)>/<img\1 \/>/gc<CR>
    inoremenu My_tools.RegExp:\ img\ >\ --->\ img\ /><Tab><F5>reg2 <Esc>:%s/<img\([a-z ="_0-9/:;\.(){}ìšèøžýáíéùú]*[^/]\)>/<img\1 \/>/gc<CR>
    nnoremenu My_tools.RegExp:\ pos=1\ --->\ pos\ =\ 1<Tab><F5>reg3 <Esc>:%s/\([^ ]\)=\([^ ]\)/\1 = \2/gc<CR>
    inoremenu My_tools.RegExp:\ pos=1\ --->\ pos\ =\ 1<Tab><F5>reg3 <Esc>:%s/\([^ ]\)=\([^ ]\)/\1 = \2/gc<CR>
    nnoremenu My_tools.RegExp:\ fun(a,b)\ --->\ fun(a,\ b)<Tab><F5>reg4 <Esc>:%s/\([^ ]\),\([^ ]\)/\1, \2/gc<CR>
    inoremenu My_tools.RegExp:\ fun(a,b)\ --->\ fun(a,\ b)<Tab><F5>reg4 <Esc>:%s/\([^ ]\),\([^ ]\)/\1, \2/gc<CR>
endif

"Whenever you type in a ) in insert mode, the cursor will jump to the corresponding (, then jump back 300 milliseconds later.
"imap ) )<esc>%:300sleep m<enter>%a

" change directory to that of current file
nmap <LocalLeader>cd :cd%:p:h<cr>
" change local directory to that of current file
nmap <LocalLeader>lcd :lcd%:p:h<cr>

" justify source code
"nmap <C-M> ggVG=

"moving lines up down
map <C-Up> dd-P
map <C-Down> ddp

"my WEB DLL abbreviations ****
map <F5>xxh iSWlib.RunXmlXsl2Html(CStr(xml),"*.xsl",,pole)<Esc>i
map <F5>sx iSWlib.SQLQuer2XMLStr(sql,"data")<Esc>i
map <F5>msx iSWlib.MultiSQLQuer2XMLStr(sql_pole,0)<Esc>i

"the most useable XSL abbreviations, other are available from xGen menu, xGen.vim ****
map <F6>ch i<xsl:choose><CR><xsl:when test=""><CR><CR></xsl:when><CR><xsl:otherwise><CR><CR></xsl:otherwise><CR></xsl:choose><Esc>i
map <F6>for i<xsl:for-each select=""><CR><CR></xsl:for-each><Esc>i
map <F6>if i<xsl:if test=""><CR></xsl:if><Esc>i
map <F6>se i<xsl:value-of select="" /><Esc>i
map <F6>co i<xsl:copy-of select="" /><Esc>i
map <F6>ss i<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"><CR><CR></xsl:stylesheet><Esc>i
map <F6>ou i<xsl:output method="xml" indent="yes" omit-xml-declaration="yes" /><Esc>i
map <F6>te i<xsl:template match="/"><CR><CR></xsl:template><Esc>i
map <F6>ap i<xsl:apply-templates select=""/><Esc>i
map <F6>at i<xsl:attribute name=""><CR><CR></xsl:attribute><Esc>i
map <F6>ca i<xsl:call-template name=""><CR><CR></xsl:call-template><Esc>i
map <F6>st i<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"><CR><xsl:output method="xml" indent="yes" omit-xml-declaration="yes"/><CR><xsl:template match="/"><CR><CR></xsl:template><CR></xsl:stylesheet><Esc>i
map <F6>va i<xsl:variable name="" select=""><CR></xsl:variable><Esc>ki
map <F6>wi i<xsl:with-param name="" select=""></xsl:with-param><Esc>^f"a


"the most useable HTML abbreviations , other are available from xGen menu or xhtml menu xhtml.vim****
imap <LocalLeader>input <input type="" name="" value="" /><Esc>21hi
imap <LocalLeader>html <html><CR><head><CR><meta http-equiv="content-type" content="text/html" charset="windows-1250" /><CR><title></title><CR></head><CR><body><CR><CR></body><CR></html>
imap <LocalLeader>iframe <iframe height="" width="" scrolling="no" src="" frameborder="0" marginheight="0" marginwidth="0"></iframe>
imap <LocalLeader>tab <table><CR><tr><CR><td></td><CR></tr><CR></table>
imap <LocalLeader>img <img src="" alt="" border="0" /><Esc>20hi
imap <LocalLeader>a <a href=""></a><Esc>5hi
imap <LocalLeader>A <Esc>yiWi<a href="http://<Esc>Ea"></a><Esc>3hP4la
imap <LocalLeader>c <!--  --><Esc>4hi
vmap <LocalLeader>c "zdi<!-- <C-R>z --><ESC>
vmap sb "zdi<b><C-R>z</b><ESC> : wrap <b></b> around VISUALLY selected Text 
imap <F12> <></><Esc>5hdiwp3lpT>i
imap <F11> </><Esc>3hdiwpa <Esc>3la

"Javascript abbreviations ****
map <f8>fn ifunction () {<CR>	var <CR><CR>}<Esc>i
map <F8>bn idocument.getElementsByName("")[0].<Esc>i
map <F8>bid idocument.getElementById("").<Esc>i

"SQL  abbreviations ****
map <F9>se iSELECT   FROM   WHERE<Esc>i
map <F9>up iUPDATE   SET   WHERE<Esc>i

"LINE NUMBERS mapping for F11
"function! NumberNo()
"    set nonumber
"    map <F11> :call NumberYes()<CR>
"    imap <F11> <Esc>:call NumberYes()<CR>
"endfunction
"function! NumberYes()
"    set number
"    map <F11> :call NumberNo()<CR>
"    imap <F11> <Esc>:call NumberNo()<CR>
"endfunction
"Default
"map <F11> :call NumberNo()<CR>
"imap <F11> <Esc>:call NumberNo()<CR>

cabbrev pytab call Pytab()

function! Pytab()
	set ts=8	
    set expandtab
    retab
    set ts=4
    set noexpandtab
    retab!
    echo "python tab tabstop=4 ok"
endfunction


function! HtmlInit()
    set filetype=html
    set autoindent
    set shiftwidth=2
    set softtabstop=2
    "set nowrap
    colorscheme torte
    hi LineNr   guifg=#006666 guibg=black
endfunction

function! XSLInit()
    set filetype=xsl
    set syntax=xsl
    set autoindent
    set shiftwidth=2
    set softtabstop=2
    "set nowrap
    "map <F11> :call NumberYes()<CR>
    "imap <F11> <Esc>:call NumberYes()<CR>
    colorscheme torte
endfunction

function! ASPInit()
    set syntax=aspvbs
    "set autoindent
    "abbreviations
    ab iif iif(,,)<Esc>3ha
    ab hrep html = Replace(html, "", "")<Esc>6ha
    ab ++ <Esc>1hdiw1hpa = <Esc>pa + 1
    "ab -- <Esc>1hdiw1hpa = <Esc>pa - 1

    let myvar = "set dictionary=" . g:work_dir . "/dictionaries/asp.dict"
    silent execute myvar
    unlet myvar
    "inoremap <CR> <C-R>=Quotereturn("asp")<CR>	

    "set nowrap
    "map <F11> :call NumberYes()<CR>
    "imap <F11> <Esc>:call NumberYes()<CR>
    "syntax keyword Type byval
    "colorscheme af
    "colorscheme rootwater
    colorscheme darkerdesert
    "colorscheme murphy
    "hi LineNr   guifg=#006666 guibg=black
endfunction

function! VBInit()
    set autoindent
    set syntax=vb
    "set nowrap
    "inoremap <CR> <C-R>=Quotereturn("asp")<CR>

    "map <F11> :call NumberYes()<CR>
    "imap <F11> <Esc>:call NumberYes()<CR>
    colorscheme murphy
    hi LineNr   guifg=#006666 guibg=black
endfunction

function! JSInit()
    set cindent
    set expandtab
    "set nowrap
    "map <F11> :call NumberYes()<CR>
    "imap <F11> <Esc>:call NumberYes()<CR>
    colorscheme murphy
    hi LineNr   guifg=#006666 guibg=black
endfunction

function! PHPInit()
    set syntax=php
    set cindent
    set expandtab
    "set nowrap
    "map <F11> :call NumberYes()<CR>
    "imap <F11> <Esc>:call NumberYes()<CR>
    colorscheme oceandeep
endfunction

function! LogInit()
    "set nowrap
    colorscheme elflord
    syntax keyword Type INFO
    syntax keyword String WARN
    syntax keyword String WARNING
    syntax keyword Error ERR
    syntax keyword Error ERROR
    "syn keyword cMyItem contained INFO
    "syn cluster cCommentGroup add=cMyItem
    "hi link cMyItem Error
endfunction

function! PyInit()
    set smartindent
    "set cinwords
    set foldmethod=indent
    set foldnestmax=1
    "set nowrap
    "inoremap <CR> <C-R>=Quotereturn("python")<CR>	

    map  <F9> :call ShowPyDoc('<C-R><C-W>', 1)<CR>
    "map <F11> :call NumberYes()<CR>
    "imap <F11> <Esc>:call NumberYes()<CR>
    colorscheme murphy
    hi LineNr   guifg=#006666 guibg=black
endfunction

function! CSSInit()
    set shiftwidth=2
    set softtabstop=2
    "set nowrap
    "map <F11> :call NumberYes()<CR>
    "imap <F11> <Esc>:call NumberYes()<CR>
    set nonumber
    "colorscheme oceandeep
endfunction

function! WMLInit()
    set autoindent
    set shiftwidth=2
    set softtabstop=2
    set nonumber
    colorscheme torte
endfunction

function! RewriteInit()
    syn clear

    syn keyword rewrite_modStatement	RewriteCond RewriteRule RewriteHeader RewriteProxy
    syn keyword rewrite_modStatement	RepeatLimit CacheClockRate  EnableConfig DisableConfig  EnableRewrite DisableRewrite RFStyle
    syn keyword rewrite_modType		URL METHOD VERSION	
    syn keyword rewrite_modType		Accept Accept-Charset Accept-Encoding Accept-Language Authorization Cookie From Host If-Modified-Since If-Match If-None-Match If-Range If-Unmodified-Since Max-Forwards Proxy-Authorization Range Referer User-Agent    		
    syn match   rewrite_modComment	"#.*$" contains=rewrite_modTodo
    syn keyword rewrite_modTodo		TODO FIXME XXX contained
    syn match	String	"\$\d\+"
    syn match	String	"([^()]*)"
    syn match	PreProc	"\[[,IURPLFONSC]*\]"

    if version >= 508 || !exists("did_rewrite_mod_syn_inits")
	if version <= 508
	    let did_rewrite_mod_syn_inits = 1
	    command -nargs=+ HiLink hi link <args>
	else
	    command -nargs=+ HiLink hi def link <args>
	endif

	HiLink rewrite_modStatement	    Statement
	HiLink rewrite_modComment	    Comment
	HiLink rewrite_modTodo	    Todo
	HiLink rewrite_modString	    String
	HiLink rewrite_modType	    Type

	delcommand HiLink
    endif    
endfunction    

"autocommands
au BufNewFile,BufRead httpd.ini call RewriteInit()
au BufNewFile,BufRead *.html,*.htm call HtmlInit()
au BufNewFile,BufRead *.wml call WMLInit()
au BufNewFile,BufRead *.xsl call XSLInit()
au BufNewFile,BufRead *.vbs,*.vb call VBInit()
au BufNewFile,BufRead *.asp,*.obr,*.dat,*.aspx call ASPInit()
au BufNewFile,BufRead *.js call JSInit()
au BufNewFile,BufRead *.log call LogInit()
au BufNewFile,BufRead *.py call PyInit()
au BufNewFile,BufRead *.txt set nonumber
au BufNewFile,BufRead *.php call PHPInit()
au BufNewFile,BufRead *.css call CSSInit()


" If the cursor is in the middle of a quote block when <CR> is pressed
" a quote is added to the end of the line followed by a plus, a <CR>
" and another quote.
function! Quotereturn(lang)
    let before=strpart(getline(line(".")), 0, col(".")-1)
    "let after=strpart(getline(line(".")), col("."))
    if(before =~ '^\([^"]*"\([^"\\]\|\\.\)*"\)*[^"]*"\([^"\\]\|\\.\)*$')
	if a:lang == "asp"
	    return "\" & _\"\<Left>\<CR>\<Tab>\<Right>"
	elseif  a:lang == "python"
	    return "\" \\\"\<Left>\<CR>\<Right>"
	elseif  a:lang == "java"
	    return "\"+\"\<Left>\<CR>\<Tab>\<Right>"
	endif
    else
	return "\<CR>"
    endif
endf

"darker line numbers
hi LineNr   guifg=#006666 guibg=black