"  Motion
nnoremap h <Left>
nnoremap j <Right>
nnoremap k <Up>
nnoremap l <Down>

"nnoremap <End> G
nnoremap OF G

"nnoremap <Home> :0<CR>w
nnoremap OH :0<CR>w

"  Vertical scrolling, cursor on same line, same column in one screen.
nnoremap <BS> <C-Y>
nnoremap <Space> <C-E>

"  Horizontal scrolling, cursor in the same column.
"  A character scroll.
nnoremap 9 z<Left>
nnoremap 0 z<Right>

"  A half-screen scroll.
nnoremap <S-9> z<Left>
nnoremap <S-0> z<Right>

"  End point scroll.
nnoremap 9 zs
nnoremap 0 ze


"  Strip end white space
nnoremap S :%s/\s\+$//<CR>
nnoremap s :s/\s\+$//<CR>

"  Join w/o spaces to end of paragraph.
nnoremap ;j }<UP>mp:'','pj!<CR>


"  Textwidths
nnoremap 0 :set tw=0<CR>
nnoremap 7 :set tw=70<CR>
nnoremap 8 :set tw=80<CR>


"  Remove the help key/F1
map <F1> 
map! <F1> 

"nmap <M-Left> :bp<CR>
"nmap <M-Right> :bn<CR>
nnoremap <F11> :bp<CR>
nnoremap <F12> :bn<CR>

"   File/Buffer Edit/Save/Quit
nnoremap Q :q!<CR>
nnoremap Z :w!<CR>
nnoremap  :redo<CR>

"  From http://greenokapi.net/svn/.vim/_vimrc which itself was picked from
"  http://pdx.pm.org/kwiki/index.cgi?VimRCFile
map q: :q


"  Listchars & breaks
"nnoremap l :set list sbr=\ \ \ \ \ \ \ \ <CR>
"nnoremap n :set nolist sbr=<CR>
nnoremap l :set list! list?<CR>

"  Line Wrap
nnoremap <F1> :set   list sbr=\ \ \ \ \ \ \ \  ai<CR>
nnoremap <F2> :set nolist sbr=                 noai<CR>
nnoremap <F3> :set wrap! wrap?<CR>

imap  <F1> <F1>a
imap  <F2> <F2>a
imap  <F3> <F3>a


"  Search - Clear
nnoremap \ :let @/=""<CR>

"  Search - (Un)Highlight
nnoremap h :set hlsearch! hls?<CR>

"  Search - Yank string matched
nnoremap m :call YankMatched()<CR>

"  Search for match & move line in the middle.
nmap n nzz
"nmap ? ?zz

"  Add line breaks in after given strings/regex
com! -nargs=+ -range -bar NewLine <line1>,<line2>call SuffixNewLine(<f-args>)
"  Intentionally left incomplete to be completed as needed
nnoremap ;nl :NewLine 

"  Insert line breaks in before given strings/regex
com! -nargs=+ -range -bar PreNewLine <line1>,<line2>call PrefixNewLine(<f-args>)
"  Intentionally left incomplete to be completed as needed
nnoremap ;pnl :PreNewLine 


"  Completion - tag
inoremap  <C-x><C-]>
nnoremap  a<C-x><C-]><Esc>


"  Text - Wrap
"nnoremap \ gwj
"nnoremap = gwap
nnoremap \ gqj
nnoremap = gqap

nnoremap E !}/usr/bin/fmt -c -68

"  Paragraph - Delete/Yank
nnoremap d dap<CR>
nnoremap y yap<CR>


"  Clipboard - Paste/Yank to register 'p'
nnoremap  "*p
nnoremap  "*y'p


"  Miscellaneous Toggle
nnoremap  :set number! nu?<CR>
nnoremap e :set expandtab! et?<CR>


"  Create cloumn ruler
"nnoremap R80 :1new Ruler
8i123456789.I:winc j

"  Show directory & filename.
nnoremap ;f  :echo expand( "%:p:~" )<CR>
nnoremap ;d  :echo expand( "%:p:~:h" )<CR>

"  Upcase first character after a comment
nnoremap #U :%s!^\(#\+\s\+\)\([a-z]\)!\1\u\2!
nnoremap #u :'p,.s!^\(#\+\s\+\)\([a-z]\)!\1\u\2!


"  MODIFIED:  <current date>
nnoremap ;mod aMODIFIED:  <Esc>:r!date +'\%b \%d \%Y'<CR><Up>J

"  Tell time
nnoremap tm :!date<CR>
nnoremap tim :!date<CR>
nnoremap dat :!date<CR>
nnoremap cal :!cal<CR>


"  Calculator
nnoremap grpn :!grpn&<CR><CR>
nnoremap dc :!dc<CR>


"  Spell check
nnoremap ;sp :!echo <cword> \| aspell --sug-mode=normal --ignore-case -a -- <return>
nnoremap  :w!<CR>:!aspell --sug-mode=normal --dont-backup --ignore-case check %<CR>:e! %<CR>

"  Sort
nnoremap p :'p,.!sort -bf -k1