version 1.4, 2001/09/25 11:15:39 |
version 1.5, 2001/09/25 15:15:44 |
|
|
" Maintainer: Lubomir Host <host8@kepler.fmph.uniba.sk> |
" Maintainer: Lubomir Host <host8@kepler.fmph.uniba.sk> |
" Bugs Report: Lubomir Host <host8@kepler.fmph.uniba.sk> |
" Bugs Report: Lubomir Host <host8@kepler.fmph.uniba.sk> |
" Copyright: GNU GPL |
" Copyright: GNU GPL |
" Last Change: 2001 Sep 19 12:57:22 PM |
" Last Change: 2001 Sep 25 05:15:09 PM |
" Version: 01.09.08 |
" Version: 01.09.08 |
" Language Of Comments: Slovak |
" Language Of Comments: Slovak |
|
|
|
" $Id$ |
" Settings {{{1 |
" Settings {{{1 |
" ... to be secure & Vi nocompatible |
" ... to be secure & Vi nocompatible |
:set secure nocompatible |
:set secure nocompatible |
|
|
:command! -nargs=0 FoldLongLines call FoldLongLines() |
:command! -nargs=0 FoldLongLines call FoldLongLines() |
:command! -nargs=0 Indent call Indent() |
:command! -nargs=0 Indent call Indent() |
:command! -nargs=0 CallProg call CallProg() |
:command! -nargs=0 CallProg call CallProg() |
|
:command! -nargs=0 UnquoteMailbody call UnquoteMailbody() |
"################################################################# }}}1 |
"################################################################# }}}1 |
" Autocomands {{{1 |
" Autocomands {{{1 |
" Startup autocommands {{{2 |
" Startup autocommands {{{2 |
|
|
:if version >= 600 |
:if version >= 600 |
: fun! FoldLongLines() |
: fun! FoldLongLines() |
" Get screen size: |
" Get screen size: |
: let lines = system("/bin/tcsh -f -c telltc | grep lines | awk '{print \$6-1}'") |
: let lines = system("/bin/tcsh -f -c telltc | " . |
|
\ "grep lines | awk '{print \$6-1}'") |
: let info = "[" . lines . ";0HProcessing line " |
: let info = "[" . lines . ";0HProcessing line " |
" Set mark for return back |
" Set mark for return back |
: exec "normal mF" |
: exec "normal mF" |
|
|
: exec "normal mfggvG$='f" |
: exec "normal mfggvG$='f" |
endfun |
endfun |
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2 |
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2 |
|
" Function UnquoteMailbody() {{{2 |
|
" |
|
fun! UnquoteMailbody() |
|
: exec ":%s/\\n> \\?\\([^>]\\)/ \\1/g" |
|
: exec ":%s/^>$//g" |
|
endfun |
|
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" }}}2 |
"################################################################# }}}1 |
"################################################################# }}}1 |
" Gvim settings {{{1 |
" Gvim settings {{{1 |
:if &t_Co > 2 || has("gui_running") |
:if &t_Co > 2 || has("gui_running") |