" <F7> File fileformat (dos - <CR> <NL>, unix - <NL>, mac - <CR>)
map <F7>    :execute RotateFileFormat()<CR>
vmap <F7>    <C-C><F7>
imap <F7>    <C-O><F7>
let b:fformatindex=0
function! RotateFileFormat()
    let y = -1
    while y == -1
      let encstring = "#unix#dos#mac#"
      let x = match(encstring,"#",b:fformatindex)
      let y = match(encstring,"#",x+1)
      let b:fformatindex = x+1
      if y == -1
   let b:fformatindex = 0
      else
   let str = strpart(encstring,x+1,y-x-1)
   return ":set fileformat=".str
      endif
    endwhile
endfunction

" <F8> File encoding for open
" ucs-2le - MS Windows unicode encoding
map <F8>    :execute RotateEnc()<CR>
vmap <F8>    <C-C><F8>
imap <F8>    <C-O><F8>
let b:encindex=0
function! RotateEnc()
    let y = -1
    while y == -1
      let encstring = "#koi8-u#cp1251#8bit-cp866#utf-8#ucs-2le#"
      let x = match(encstring,"#",b:encindex)
      let y = match(encstring,"#",x+1)
      let b:encindex = x+1
      if y == -1
   let b:encindex = 0
      else
   let str = strpart(encstring,x+1,y-x-1)
   return ":e ++enc=".str
      endif
    endwhile
endfunction

" <Shift+F8> Force file encoding for open (encoding = fileencoding)
map <S-F8>    :execute ForceRotateEnc()<CR>
vmap <S-F8>    <C-C><S-F8>
imap <S-F8>    <C-O><S-F8>
let b:encindex=0
function! ForceRotateEnc()
    let y = -1
    while y == -1
      let encstring = "#koi8-u#cp1251#8bit-cp866#utf-8#ucs-2le#"
      let x = match(encstring,"#",b:encindex)
      let y = match(encstring,"#",x+1)
      let b:encindex = x+1
      if y == -1
   let b:encindex = 0
      else
   let str = strpart(encstring,x+1,y-x-1)
   :execute "set encoding=".str
   return ":e ++enc=".str
      endif
    endwhile
endfunction

" <Ctrl+F8> File encoding for save (convert)
map <C-F8>    :execute RotateFEnc()<CR>
vmap <C-F8>    <C-C><C-F8>
imap <C-F8>    <C-O><C-F8>
let b:fencindex=0
function! RotateFEnc()
    let y = -1
    while y == -1
      let encstring = "#koi8-u#cp1251#8bit-cp866#utf-8#ucs-2le#"
      let x = match(encstring,"#",b:fencindex)
      let y = match(encstring,"#",x+1)
      let b:fencindex = x+1
      if y == -1
   let b:fencindex = 0
      else
   let str = strpart(encstring,x+1,y-x-1)
   return ":set fenc=".str
      endif
    endwhile
endfunction

set fileencodings=utf-8,cp1251,cp866,koi8-u
set encoding=utf-8
set termencoding=utf-8

set statusline=%<%f%h%m%r%=format=%{&fileformat}\ file=%{&fileencoding}\ enc=%{&encoding}\ %b\ 0x%B\ %l,%c%V\ %P
set laststatus=2