kata.vim

" Vim filetype plugin
" Language:		VimKata
" Maintainer:		Duane Johnson

" Only do this when not done yet for this buffer
" if exists("b:did_ftplugin")
"   finish
" endif
" let b:did_ftplugin = 1

" preserve user's options
let s:save_cpo = &cpo
set cpo&vim

setlocal commentstring=#%s foldmethod=marker
setlocal nospell nohlsearch

setlocal statusline=Time:\ \ Test

function! s:Renumber() range
  let b:k_count = 1
  exe a:firstline . ',' . a:lastline . "g/^(\\d\\+/s//\\='('.b:k_count/ | let b:k_count += 1"
endfunction

function! s:GroupRenumber()
  let group_boundary = '^\[.\{-}\]$'
  " Locate the boundary of the group we're in
  let firstline  = search(group_boundary,'bnW') + 1
  let lastline   = search(group_boundary, 'nW') - 1
  if lastline < 0
    let lastline = line('$')
  endif
  exe firstline . ',' . lastline 'call s:Renumber()' 
endfunction

function! s:NextQuestion()
  call search("^(\\d\\+)")
  normal j
endfunction

function! s:NextQuestionWithPrep()
  " call s:StopRecording()
  call s:NextQuestion()
  call s:ExecutePreparation()
  " call s:ClockInit("l")
  " call s:StartRecording()
endfunction

function! s:PrevQuestion()
  call s:ThisQuestion()
  normal k
  call s:ThisInput()
endfunction

function! s:ThisQuestion()
  call search("^(\\d\\+)", "bc")
endfunction

function! s:ThisInput()
  call s:ThisQuestion()
  normal j
endfunction

function! s:ThisAnswer()
  call s:ThisQuestion()
  call search("^>")
  normal ll
endfunction

function! s:ThisPreparationLine()
  call s:ThisQuestion()
  let prepline = search("^<", "nW", search("^(\\d\\+)", "nW"))
  return prepline
endfunction

function! s:ExecuteAnswer()
  call s:ThisAnswer()
  exe "normal \"ay$"
  call s:ThisInput()
  exe "normal @a"
endfunction

function! s:ExecutePreparation()
  let prepline = s:ThisPreparationLine()
  if prepline > 0
    exe prepline + "G"
    normal ll
    exe "normal \"ay$"
    call s:ThisInput()
    exe "normal @a"
  else
    call s:ThisInput()
  end
endfunction

" function! s:ClockInit(scope)
"   let l:clock = (strftime("%I") * 3600) + (strftime("%M") * 60) + (strftime("%S"))
"   if a:scope == "g"
"     let s:kata_clock = l:clock
"   elseif a:scope == "l"
"     let s:question_clock = l:clock
"   endif
" endfunction

" function! s:ClockDiff(scope)
"   let l:now = (strftime("%I") * 3600) + (strftime("%M") * 60) + (strftime("%S"))
"   if a:scope == "g"
"     return (l:now - s:kata_clock)
"   elseif a:scope == "l"
"     return (l:now - s:question_clock)
"   end
" endfunction

" function! s:StartRecording()
"   exe "normal qY"
" endfunction

" function! s:StopRecording()
"   exe "normal q"
" endfunction

" function! s:ClearRecording()
"   let @y = ""
" endfunction

" function! CalcCPM()
"   let l:diff = ClockDiff()
"   if l:diff <= 0
"     return 0
"   else
"     let l:cpm = strlen(@y) * 60 / l:diff
"     return l:cpm
"   endif
" endfunction

setlocal updatetime=1000
autocmd! CursorHold * call Timer() 
" autocmd! CursorHoldI * call Timer()
function! Timer() 
  call feedkeys("f\e") 
endfunction 

" maps
if !hasmapto('<Plug>Renumber')
  nmap <unique> <LocalLeader>kr <Plug>Renumber
endif
nnoremap <unique> <buffer> <silent> <script> <Plug>Renumber <SID>Renumber
nnoremap <SID>Renumber ms:1,$ call <SID>Renumber()<CR>`s

if !hasmapto('<Plug>GroupRenumber')
  nmap <unique> <LocalLeader>kgr <Plug>GroupRenumber
endif
nnoremap <unique> <buffer> <silent> <script> <Plug>GroupRenumber <SID>GroupRenumber
nnoremap <SID>GroupRenumber ms:call <SID>GroupRenumber()<CR>`s

if !hasmapto('<Plug>NextQuestionWithPrep')
  nmap <unique> Q <Plug>NextQuestionWithPrep
endif
nnoremap <unique> <buffer> <silent> <script> <Plug>NextQuestionWithPrep <SID>NextQuestionWithPrep
nnoremap <SID>NextQuestionWithPrep :call <SID>NextQuestionWithPrep()<CR>

if !hasmapto('<Plug>NextQuestion')
  nmap <unique> <LocalLeader>kn <Plug>NextQuestion
endif
nnoremap <unique> <buffer> <silent> <script> <Plug>NextQuestion <SID>NextQuestion
nnoremap <SID>NextQuestion :call <SID>NextQuestion()<CR>

if !hasmapto('<Plug>PrevQuestion')
  nmap <unique> <LocalLeader>kp <Plug>PrevQuestion
endif
nnoremap <unique> <buffer> <silent> <script> <Plug>PrevQuestion <SID>PrevQuestion
nnoremap <SID>PrevQuestion :call <SID>PrevQuestion()<CR>

if !hasmapto('<Plug>ThisQuestion')
  nmap <unique> <LocalLeader>kq <Plug>ThisQuestion
endif
nnoremap <unique> <buffer> <silent> <script> <Plug>ThisQuestion <SID>ThisQuestion
nnoremap <SID>ThisQuestion :call <SID>ThisQuestion()<CR>

if !hasmapto('<Plug>ThisInput')
  nmap <unique> <LocalLeader>ki <Plug>ThisInput
endif
nnoremap <unique> <buffer> <silent> <script> <Plug>ThisInput <SID>ThisInput
nnoremap <SID>ThisInput :call <SID>ThisInput()<CR>

if !hasmapto('<Plug>ThisAnswer')
  nmap <unique> <LocalLeader>ka <Plug>ThisAnswer
endif
nnoremap <unique> <buffer> <silent> <script> <Plug>ThisAnswer <SID>ThisAnswer
nnoremap <SID>ThisAnswer :call <SID>ThisAnswer()<CR>

if !hasmapto('<Plug>ExecutePreparation')
  nmap <unique> <LocalLeader>kx <Plug>ExecutePreparation
endif
nnoremap <unique> <buffer> <silent> <script> <Plug>ExecutePreparation <SID>ExecutePreparation
nnoremap <SID>ExecutePreparation :call <SID>ExecutePreparation()<CR>

if !hasmapto('<Plug>ExecuteAnswer')
  nmap <unique> <LocalLeader>ke <Plug>ExecuteAnswer
endif
nnoremap <unique> <buffer> <silent> <script> <Plug>ExecuteAnswer <SID>ExecuteAnswer
nnoremap <SID>ExecuteAnswer :call <SID>ExecuteAnswer()<CR>

" call s:ClockInit("g")
" call s:ClearRecording()
" call s:StartRecording()

" restore user's options
let &cpo = s:save_cpo

" vim:set sw=2: