Up to [Platon] / vimconfig

Initialization

" Vim configuration file
" Language:        Vim 5.6 script    (with Vim 6.0 features)
" Maintainer:    Lubomir Host <host8@kepler.fmph.uniba.sk>
" Bugs Report:    Lubomir Host <host8@kepler.fmph.uniba.sk>
" Copyright:    GNU GPL
" Last Change:    2001 Sep 19 12:57:22 PM
" Version:        01.09.08
" Language Of Comments:    Slovak

" Settings {{{1
" ... to be secure & Vi nocompatible
:set secure nocompatible
:if version >= 600 
:    syntax enable
":    syntax on
: else
:    syntax on
:endif

" Settings for C language {{{2
:let c_gnu=1
:let c_comment_strings=1
:let c_space_errors=1
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" History and viminfo settings {{{2
:set history=10000
:set viminfo=!,%,'5000,\"10000,:10000,/10000,n~/.vim/viminfo
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Status line settings {{{2
":set ruler
" Display a status-bar.
:set laststatus=2
:set statusline=%<%f%h\ %3*%m%1*%r%0*\ %2*%y%4*%w%0*%=[%b\ 0x%B]\ \ %8l,%10([%c%V/%{strlen(getline(line('.')))}]%)\ %P
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Settings for Explorer script {{{
:let g:explDetailedHelp=1
:let g:explDetailedList=1
:let g:explDateFormat="%d %b %Y %H:%M"
"}}}
" Settings for gcc & make {{{
:let g:cflags="-Wall -pedantic"
:let g:c_debug_flags="-ggdb -DDEBUG"
:let g:makeflags=""
"}}}
" Settings for folding long lines {{{
:let g:fold_long_lines=300
" }}}

" Automatically setting options in various files
:set modeline

" Available TAGS files
:set tags=./TAGS,./tags,tags

" Don't add EOF at end of file!
:set noendofline

:set showfulltag 

:set ch=2 bs=2 tabstop=4
:set incsearch report=0 title
:set showcmd showmatch showmode

" Settings for mouse (gvim under Xwindows)
:set nomousefocus mousehide

" cursor always in the middle of the screen
:set scrolloff=999

" the screen will not be redrawn while executing macros, registers
" and other commands that have not been typed.  To force an update use |:redraw|.
:set lazyredraw

" Vim beeping go to the hell...
:set vb t_vb=

:if version >= 600
":    set foldmethod=expr
":    set foldexpr=strlen(substitute(getline(v:lnum),'^\{300\,}$','x',\"g\"))
:    set foldexpr=FoldLevel(v:lnum)
:endif

"################################################################# }}}1
" Keybord mappings. {{{1
"
" start of line
":noremap <C-A>        i<Home>
:inoremap <C-A>        <Home>
" end of line
:noremap <C-E>        i<End>
:inoremap <C-E>        <End>
" back one word
:inoremap <C-B>    <S-Left>
" forward one word
":inoremap <C-F>    <S-Right>

" prepinanie medzi oknami stlacenim 1x CTRL-X
:noremap <C-X> <C-W><C-W>

:set remap
:map  :split 
:imap  :split 

" diakritika 
":map  :so ~/.vim/diakritika.vim
":imap  :so ~/.vim/diakritika.vim

" Open new window with the file ~/.tcshrc (my shell configuration file)
:map  :split ~/.tcshrc
:imap  :split ~/.tcshrc

" Open new window with file ~/.vimrc (ViM configuration file)
:map  :split ~/.vimrc
:imap  :split ~/.vimrc

" Mappings for folding {{{2
" Open one foldlevel of folds in whole file
" Note: 'Z' works like 'z' but for all lines in file
:noremap Zo mzggvGzo'z
:noremap ZO mzggvGzO'z " same as 'zR' 
:noremap Zc mzggvGzc'z
:noremap ZC mzggvGzC'z
:noremap Zd mzggvGzd'z
:noremap ZD mzggvGzD'z
:noremap Za mzggvGza'z
:noremap ZA mzggvGzA'z
:noremap Zx mzggvGzx'z
:noremap ZX mzggvGzX'z
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
"################################################################# }}}1
" New commands {{{1
:command! -nargs=1 Printf call libcallnr("/lib/libc.so.6", "printf", <args>)
:command! -nargs=0 FoldLongLines call FoldLongLines()
"################################################################# }}}1
" Autocomands {{{1
" Startup autocommands {{{2
:augroup VimStartup
:  autocmd!
":    autocmd VimEnter *    :syntax on
":    autocmd VimEnter *    call OpenAllWin()
":    autocmd BufReadPost *    call SetVimVar()
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocommands WinEnter * {{{2
:augroup VimEnter
:  autocmd!
:    autocmd WinEnter *    :set winheight=100
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocommands for * (all files) {{{2
:augroup AllFiles
:  autocmd!
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocomands for ~/.vimrc {{{2
:augroup VimConfig
:  autocmd!
" Update line 'Last Change:'
:    autocmd BufWritePre,FileWritePre ~/.vimrc    call LastMod("\" Last Change:    ")
" Reread configuration of ViM if file ~/.vimrc is saved
:    autocmd BufWritePost ~/.vimrc    so ~/.vimrc
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocommands for *.c, *.h, *.cc *.cpp {{{2
:augroup C
:  autocmd!
"formatovanie C-zdrojakov
:    autocmd BufEnter            *.c,*.h,*.cc,*.cpp    :map  mfggvG$='f
:    autocmd BufEnter            *.c,*.h,*.cc,*.cpp    :imap  mfggvG$='fi
:    autocmd BufEnter            *.c,*.h,*.cc,*.cpp    :map yii yyp3wdwi
:    autocmd BufEnter            *.c,*.h,*.cc,*.cpp    :map  :call CallProg()
:    autocmd BufLeave            *.c,*.h,*.cc,*.cpp    :unmap 
:    autocmd BufLeave            *.c,*.h,*.cc,*.cpp    :unmap yii
:    autocmd BufLeave            *.c,*.h,*.cc,*.cpp    :iunmap 
:    autocmd BufLeave            *.c,*.h,*.cc,*.cpp    :unmap 
:    autocmd BufRead,BufNewFile  *.c,*.h,*.cc,*.cpp    set cindent
:    autocmd BufRead,BufNewFile  *.c,*.h,*.cc,*.cpp    set cinoptions=>4,e0,n0,f0,{0,}0,^0,:4,=4,p4,t4,c3,+4,(24,u4,)20,*30,g4,h4
:    autocmd BufRead,BufNewFile  *.c,*.h,*.cc,*.cpp    set cinkeys=0{,0},:,0#,!,o,O,e
:    autocmd BufRead,BufNewFile  *.c,*.h,*.cc,*.cpp    setlocal iskeyword+=\.
" vytvaranie hlaviciek novych *.c, *.h suborov
:    autocmd BufNewFile  *.c,*.cc,*.cpp    0r ~/.vim/skelet.c
:    autocmd BufNewFile     *.h    call MakeHeader()
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocommands for *.pl *.pm {{{2
:augroup Perl
:  autocmd!
:    autocmd BufEnter            *.p[lm]    :map  mfggvG$='f
:    autocmd BufEnter            *.p[lm]    :imap  mfggvG$='fi
:    autocmd BufEnter            *.p[lm]    :map  :call CallProg()
:    autocmd BufLeave            *.p[lm]    :unmap 
:    autocmd BufLeave            *.p[lm]    :iunmap 
:    autocmd BufLeave            *.p[lm]    :unmap 
:    autocmd BufRead,BufNewFile  *.p[lm]    :set cindent
:    autocmd BufRead,BufNewFile  *.p[lm]    :set cinoptions=>4,e0,n0,f0,{0,}0,^0,:4,=4,p4,t4,c3,+4,(24,u4,)20,*30,g4,h4
:    autocmd BufRead,BufNewFile  *.p[lm]    :set cinkeys=0{,0},:,0#,!,o,O,e
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocommands for *.pinerc {{{2
:augroup Pine
:  autocmd!
:    autocmd BufRead .pinerc so ~/.vim/pine.vim
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocommands for *.php {{{2
:augroup PHP
:  autocmd!
":    autocmd BufRead *.php so /usr/share/vim/syntax/php3.vim
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocommands for *.html *.cgi {{{2
" toto sa postara o automaticky update datumu poslednej modifikacie
" *.html suborov 
" Podmienka: v subore sa musi vyskytovat riadok "^Last modified: ",
" inac sa datum napise na aktualnom riadku
:augroup HtmlCgi
:  autocmd!
" doplnanie parovej znacky v suboroch *.html
:    autocmd BufEnter                 *.html    :imap QQ </>2F<lywf>f/pF<i
:    autocmd BufLeave                 *.html    :iunmap QQ
:    autocmd BufWritePre,FileWritePre *.html    :call AutoLastMod()
:    autocmd BufEnter                 *.cgi    :imap QQ </>2F<lywf>f/pF<i
:    autocmd BufLeave                 *.cgi    :iunmap QQ
:    autocmd BufWritePre,FileWritePre *.cgi    :call AutoLastMod()
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocommands for *.gz {{{2
:augroup gzip
:  autocmd!
:  autocmd BufReadPre,FileReadPre    *.gz set bin
:  autocmd BufReadPost,FileReadPost    *.gz '[,']!gunzip
:  autocmd BufReadPost,FileReadPost    *.gz set nobin
:  autocmd BufReadPost,FileReadPost    *.gz execute ":doautocmd BufReadPost " . expand("%:r")
:  autocmd BufWritePost,FileWritePost    *.gz !mv <afile> <afile>:r
:  autocmd BufWritePost,FileWritePost    *.gz !gzip <afile>:r
:  autocmd FileAppendPre        *.gz !gunzip <afile>
:  autocmd FileAppendPre        *.gz !mv <afile>:r <afile>
:  autocmd FileAppendPost        *.gz !mv <afile> <afile>:r
:  autocmd FileAppendPost        *.gz !gzip <afile>:r
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocommands for *.bz2 {{{2
:augroup bzip2
:  autocmd!
:  autocmd BufReadPre,FileReadPre    *.bz2 set bin
:  autocmd BufReadPost,FileReadPost    *.bz2 '[,']!bunzip2
:  autocmd BufReadPost,FileReadPost    *.bz2 set nobin
:  autocmd BufReadPost,FileReadPost    *.bz2 execute ":doautocmd BufReadPost " . expand("%:r")
:  autocmd BufWritePost,FileWritePost    *.bz2 !mv <afile> <afile>:r
:  autocmd BufWritePost,FileWritePost    *.bz2 !bzip2 <afile>:r
:  autocmd FileAppendPre        *.bz2 !bunzip2 <afile>
:  autocmd FileAppendPre        *.bz2 !mv <afile>:r <afile>
:  autocmd FileAppendPost        *.bz2 !mv <afile> <afile>:r
:  autocmd FileAppendPost        *.bz2 !bzip2 <afile>:r
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocomands for *.tcl {{{2
:augroup Tcl
:  autocmd!
:    autocmd WinEnter            *.tcl    :map  :call CallProg()
:    autocmd WinLeave            *.tcl    :unmap 
:    autocmd BufRead,BufNewFile  *.tcl    :set autoindent
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocomands for Makefile {{{2
:augroup Makefile
:  autocmd!
:    autocmd BufEnter            [Mm]akefile*    :map  :call CallProg()
:    autocmd BufLeave            [Mm]akefile*    :unmap 
:augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Autocommands for "Diplomovka" {{{2
":augroup Diplomovka
":  autocmd!
":    autocmd BufWritePost,FileWritePost    ~/dipl/xgrafix/src/* !make install
":augroup END
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
"################################################################# }}}1
" Functions {{{1
" Function ChangeFoldMethod() {{{2
" funkcia na zmenu skryvacej metody
"
:if version >= 600
:    fun! ChangeFoldMethod()
:        let choice = confirm("Which folde method?", "&manual\n&indent\n&expr\nma&rker\n&syntax", 2)
:        if choice == 1
:            set foldmethod=manual
:        elseif choice == 2
:            set foldmethod=indent
:        elseif choice == 3
:            set foldmethod=expr
:        elseif choice == 4
:            set foldmethod=marker
:        elseif choice == 5
:            set foldmethod=syntax
:        else
:        endif
:    endfun
:endif
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Function FoldLongLines() {{{2
"
:if version >= 600
:    fun! FoldLongLines()
"        Get screen size:
:        let lines = system("/bin/tcsh -f -c telltc | grep lines | awk '{print \$6-1}'")
:        let info = "[" . lines . ";0HProcessing line "
"        Set mark for return back
:        exec "normal mF"
"        Delete line
:        Printf(&t_dl)
:        exec "1go"
:        let lnum = line(".")
:        let lend = line("$")
:        while lnum <= lend
:            Printf(info . lnum)
"            Skip closed folds
:            if foldclosed(lnum) != -1
:                let lnum = foldclosedend(lnum) + 1
:                continue
:            endif
:            let dlzka = strlen(getline("."))
:            if dlzka >= g:fold_long_lines
"                Create fold for one line
:                exec "normal zfl"
:            endif
:            let lnum = line(".")
"            Move one line down
:            exec "normal OB"
:            if lnum == lend
:                break
:            endif
:        endwhile
:        Printf("  --  OK\n")
"        Skip back to the mark
:        exec "normal 'F"
:        let choice = confirm("Redraw screen?", "&yes\n&no", 1)
:        if choice == 1
:            redraw!
:        endif
:    endfun
:endif
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Function SetVimVar() {{{2
" funkcia podla riadku v 'modelines' VIM_VAR: var1=value1 var2=value2
" nastavi prislusne hodnoty premennych
"
"fun! SetVimVar()
":$-5,$ call SetVimVarFromLine()
"endfun
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Function SetVimVarFromLine() {{{2
" 
"fun! SetVimVarFromLine()
":let matx = ".* VIM_VAR: "
":let curr_line = getline(".")
":if match(curr_line, matx) == 0
":    echo "Match on line " . "|" . curr_line
":    exec ":let " . substitute(curr_line, matx, "", "")
":endif
"endfun
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Function AutoLastMod() {{{2
" funkcia zabezpeci automaticku zmenu datumu suborov *.html
" ak je napr. zec modeline nastavena premmenna autolastmod
" na prislusnu hodnotu
"
fun! AutoLastMod()
:if exists("autolastmod")
:    if autolastmod < 0
:        return 0;
:    elseif autolastmod == 1
:        call LastMod("Last modified: ")
:    endif
:endif
endfun
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Function LastMod() {{{2
" funkcia na automaticku upravu datumu *.html suborov
"
fun! LastMod(text, ...)
:mark d
:let line = a:text . strftime("%Y %b %d %X") " text of changed line
:let find = "g/^" . a:text                   " regexpr to find line
:let matx = "^" . a:text                     " ...if line was found
:exec find
:let curr_line = getline(".")
:if match(curr_line, matx) == 0
:  call setline(line("."), line)
:  exec "'d"
:endif
endfun
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Function MakeHeader() {{{2
" funkcia na pripravu hlavicky *.h suborov
"
fun! MakeHeader() 
" nastavia sa premenne, ze ako budu vyzerat riadky
:let line = "" . bufname("%")
:let line = substitute(line, "\\\.", "_\0", "")
:let line1 = substitute(line, ".*", "#ifndef _\\U\\0", "")
:let line2 = substitute(line, ".*", "#define _\\U\\0", "")
:let line6 = "#endif /* " . line1 . " */"
" vypis nastavenych premmennych
":echo line
" ...
" nastavovanie konkretnych riadkov podla premennych
" v danom subore musi byt dostatocny pocet riadkov, lebo inac setline() zlyha!! 
" append pridava dalsi riadok do suboru, vid :help append
:call setline(1, line1)
:call append(1, line2)
:call append(2, "")
:call append(3, "")
:call append(4, "")
:call append(5, "")
:call setline(6, line6)
:call append(6, "")
endfun
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Function OpenAllWin() {{{2
" Otvaraniem okien pre vsetky subory na prikazovom riadku
" premenna "opened" je pouzita pre test, ci uz boli okna
" pre subory raz otvarane, aby sa predislo opatovnemu 
" otvaraniu okien, ak sa zmeni konfiguracny subor (resp.
" sa znovu nacita)
"
:fun! OpenAllWin()
:let i = 0
:if !exists("opened")
:echo
:while i < argc() - 1
:    echo
:    split
:    n
":    source /usr/local/share/vim/vim60al/scripts.vim
:    let i = i + 1
:endwhile
:endif
:let opened = 1
:endfun
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Function CallProg() {{{2
:fun! CallProg()
:    let choice = confirm("Call:", "&make\nm&ake in cwd\n" .
                        \ "&compile\nc&ompile in cwd\n" .
                        \ "&run\nr&un in cwd")
:    if choice == 1
:        exec ":wall"
:        exec "! cd %:p:h; pwd; make " . g:makeflags
:    elseif choice == 2
:        exec ":wall"
:        exec "! cd " .
                \ getcwd() . "; pwd; make " . g:makeflags
:    elseif choice == 3
:        :call Compile(1)
:    elseif choice == 4
:        :call Compile(0)
:    elseif choice == 5
:        exec "! cd %:p:h; pwd; ./%:t:r"
:    elseif choice == 6
:        exec "! cd " . getcwd() . "; pwd; ./%<"
:    endif
:endfun
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
" Function Compile() {{{2
:fun! Compile(do_chdir)
:    let cmd = ""
:    let filename = ""
:    let filename_ext = ""
:
:    if a:do_chdir == 1
:        let cmd = "! cd %:p:h; pwd; "
:        let filename = "%:t:r"
:        let filename_ext = "%:t"
:    else
:        let cmd = "! cd " . getcwd() . "; pwd; "
:        let filename = "%<"
:        let filename_ext = "%"
:    endif
:
:    let choice = confirm("Call:", 
        \ "&compile\n" .
        \ "compile and &debug\n" .
        \ "compile and &run\n" .
        \ "compile using first &line\n")

:    if choice != 0
:        exec ":wall"
:    endif

:    if choice == 1
        exec cmd . "gcc " . g:cflags . 
            \ " -o " . filename . " " . filename_ext
:    elseif choice == 2
:        exec cmd . "gcc " . g:cflags . " " . g:c_debug_flags . 
            \ " -o " . filename . " " . filename_ext " && gdb " . filename
:    elseif choice == 3
:        exec cmd . "gcc " . g:cflags . 
            \ " -o " . filename . " " . filename_ext " && ./" . filename
:    elseif choice == 4
:        exec cmd . "gcc " . g:cflags . 
            \ " -o " . filename . " " . filename_ext . 
            \ substitute(getline(2), "VIM_GCC", "", "g")
:    endif
:endfun
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2
"################################################################# }}}1
" Gvim settings {{{1
:if &t_Co > 2 || has("gui_running")
:    hi Normal guibg=Black guifg=White
:    hi Cursor guibg=Green guifg=NONE
:    hi NonText guibg=Black
:    hi Constant gui=NONE 
:    hi Special gui=NONE
:endif
"################################################################# }}}1
" Colors {{{1
:set background=dark
:hi User1 term=inverse,bold  cterm=inverse,bold ctermfg=red
:hi User2 term=bold          cterm=bold         ctermfg=yellow
:hi User3 term=inverse,bold  cterm=inverse,bold ctermfg=blue
:hi User4 term=inverse,bold  cterm=inverse,bold ctermfg=lightblue
:hi Folded term=standout   ctermbg=black ctermfg=Blue guifg=DarkBlue
:hi FoldColumn term=standout ctermbg=black ctermfg=DarkBlue guibg=Grey guifg=DarkBlue
" }}}1
" Modeline {{{1
" vim:set ts=4:
" vim600:fdm=marker fdl=0 fdc=3:
"################################################################# }}}1