set nocp bs=2 is ruler showcmd mouse=a dy+=lastline
set nofsync noswapfile mps+=<:>
set title
" Install more-gconf-modules and set
" GCONF_PATH=/usr/lib/more-gconv/ to get windows-1252 support on
" Maemo
"set fileencodings=ucs-bom,utf-8,windows-1252
" hey, diablo's iconv claims to know cp1252, but refuses to
" convert *from* it
set fileencodings=ucs-bom,utf-8,windows-1252

let &sbr = nr2char(8618) . ' '
" sadly the font doesn't have '↪'
" how about ↳
""let &sbr = "» "

" useful commands
map ,e :e ~/.vimrc<cr>
map ,s :source ~/.vimrc<cr>
map ,b :call BookMode()<cr>
map ,B :call FBEditCurrentBook()<cr>
map ,bb :set number showbreak=<cr>
map ,, :w<cr>
map ,. <c-^>
map ' `

" nokia n900
imap jj <esc>
imap ,, <esc>
cmap £ <
cmap € >

" make it so that if I accidentally press ^W or ^U in insert mode,
" then <ESC>u will undo just the ^W/^U, and not the whole insert
inoremap <C-W> <C-G>u<C-W>
inoremap <C-U> <C-G>u<C-U>

function! FBEditCurrentBook()
  if filereadable('/home/user/.FBReader/config.changes')
    e ~/.FBReader/config.changes
    $
    ?name="Book"\|<group name="/
  else
    e ~/.FBReader/state.xml
    /<group name="State">
    /name="Book"
  endif
  normal 0f=;ll
  normal vi"y
  let @" = substitute(@", '&apos;', "'", 'g')
  let @" = substitute(@", '&amp;', "\\&", 'g')
  let @" = escape(@", ' \[]''')
  echo 'e ' . @"
  exec 'e ' . @"
endfunction

function! BookMode()
  syn clear
  PoorMansHtml
  PoorMansRtf
  source ~/.vim/book.vim
endfunction

" sometimes I ssh in
map <f2> :w<cr>
imap <f2> <C-O>:w<cr>
map <f3> :noh<cr>
set pastetoggle=<f11>
map <LeftDrag> <LeftMouse>
imap <LeftDrag> <LeftMouse>
vmap <LeftDrag> <LeftMouse>
vmap <LeftMouse> <RightMouse>
" despite these, dblclick enters visual mode :(
map <2-LeftMouse> <LeftMouse>
map <3-LeftMouse> <LeftMouse>
map <2-LeftDrag> <LeftMouse>
map <3-LeftDrag> <LeftMouse>
map <Esc>[1;5D <C-Left>
map! <Esc>[1;5D <C-Left>
map <Esc>[1;5C <C-Left>
map! <Esc>[1;5C <C-Right>
map <Esc>[3;5~ <C-Del>
map! <Esc>[3;5~ <C-Del>

map <C-w><Esc>[1;5D <C-w>h
map <C-w><Esc>[1;5C <C-w>l

" spelling errors
map ,) ]s
map ,n ]s
map ,( [s
map ,p [s
map ,S :set invspell<cr>

" nicer spelling
highlight SpellBad cterm=underline ctermfg=red ctermbg=NONE
highlight SpellCap cterm=underline ctermfg=blue ctermbg=NONE

" fix colors
hi htmlItalic cterm=NONE ctermfg=2     
hi MatchParen ctermbg=NONE ctermfg=magenta
hi SpecialKey ctermbg=NONE ctermfg=yellow
hi NonText ctermbg=NONE ctermfg=brown

" Remember last position in a file
" see :help last-position-jump
au BufReadPost * if line("'\"") > 0 && line("'\"") <= line("$") | exe "normal g'\"" | endif

" html
autocmd BufRead *.html,*.htm map -- s&mdash;<Esc> 
autocmd BufRead *.html,*.htm map ,- s&mdash;<Esc> 
autocmd BufRead *.html,*.htm map ," s&quot;<Esc> 
autocmd BufRead *.html,*.htm map ,2 s&quot;<Esc> 

" rtf
autocmd BufRead *.rtf map -- s\emdash <Esc> 
autocmd BufRead *.rtf map ,- s\emdash <Esc> 
autocmd BufRead *.rtf map ,'( s\lquote <Esc> 
autocmd BufRead *.rtf map ,') s\rquote <Esc> 
autocmd BufRead *.rtf map ,"( s\ldblquote <Esc> 
autocmd BufRead *.rtf map ,") s\rdblquote <Esc> 

" txt
autocmd BufRead *.txt map -- s—<Esc> 
autocmd BufRead *.txt map ,- s—<Esc> 

" help navigation
autocmd FileType help map <buffer> <CR> <C-]>

" syntax
function! PoorMansHtml()
  syn match Tag /<[^>]\+>/ contains=@NoSpell
  hi Tag ctermfg=gray
  syn match Entity /&.\{-};/ contains=@NoSpell
  hi Entity ctermfg=darkgreen
  syn region Comment start=/<!--/ end=/-->/
  hi Comment ctermfg=darkblue
endf
command! -bar PoorMansHtml :call PoorMansHtml()

function! PoorMansRtf()
  syn match Directive /\\[a-zA-Z0-9]\+/ contains=@NoSpell
  syn match Directive /\\[^a-z]/ contains=@NoSpell
  hi Directive ctermfg=magenta
endf
command! -bar PoorMansRtf :call PoorMansRtf()

if globpath(&rtp, "**/syntax.vim") != ""
  syn enable
else
  " rtf syntax
  autocmd BufRead *.rtf PoorMansRtf
  " html syntax
  autocmd BufRead *.html,*.htm PoorMansHtml
endif

" Highlight group debugging					{{{2
command! ShowHighlightGroup echo "hi<" . synIDattr(synID(line("."),col("."),1),"name") . '> trans<' . synIDattr(synID(line("."),col("."),0),"name") . "> lo<" . synIDattr(synIDtrans(synID(line("."),col("."),1)),"name") . ">"

map		<S-F12>		:ShowHighlightGroup<CR>