" This script is used for po (GNU gettext) file editing.
" Language:	po (GNU gettext)
" Maintainer:	Слободан Средојевић <ssl@uns.ns.ac.yu>
" Last Change:	14.09.2003
" The original script was written by Sung-Hyun Nam <namsh@kldp.org>.

" find a non-translated msg string /forward
imap<F9> <ESC>:call FindNonTransMsgFw()<CR>z.$i

" find a non-translated msg string /backward
imap<C-F9> <ESC>:call FindNonTransMsgBw()<CR>z.$i

" remove fuzzy
imap<F4> <ESC>?#,fuzzy\\|#, fuzzy<CR>:let @/ = ""<CR>ddi

" insert fuzzy
imap<F5> <ESC>{:let @/ = ""<CR>o#, fuzzy<ESC>i

" find next fuzzy
imap<F2> <ESC>/#,fuzzy\\|#, fuzzy<CR>:let @/ = ""<CR>/msgstr<CR>:let @/ = ""<CR>z.$i

" find previous fuzzy
imap<F1> <ESC>{?#,fuzzy\\|#, fuzzy<CR>:let @/ = ""<CR>/msgstr<CR>:let @/ = ""<CR>z.$i

" fill last-translator,language team and content-type 
imap<F7> <ESC>/Last-Translator:<CR>f:ld$a<ESC>:put = name_and_email<CR>kJ/Language-Team:<CR>f:ld$a<ESC>:put = lang_team<CR>kJ/Content-Type:<CR>f:ld$a<ESC>:put = content_type<CR>kJi

" change po revision date
imap<F6> <ESC>/PO-Revision-Date:<CR>f:ld$a <C-R>=strftime("%Y-%m-%d %H:%M%z")<CR>\n"<ESC>i

" show statistics
imap<F12> <ESC>:w<CR>:!msgfmt --statistics %<CR>

" put original msgid string into msgstr quotes "".
imap<F11> <ESC> ?^msgstr<CR>d}o<ESC>?^msgid<CR>:let @/ = ""<CR>f"ly}}imsgstr "<ESC>p}k$i

" erase the translated message
imap<F3> <ESC> }?^msgstr<CR>:let @/ = ""<CR>f"lc}"<ESC>i

function! FindNonTransMsgFw()
  let lnum = line(".") + 1
  let enum = line("$")
  let found = 0
  while lnum < enum
    let line = getline(lnum)
    let lnum = lnum + 1
    if line == "msgstr \"\""
      let blank = getline(lnum)
      if blank == ""
        let found = found + 1
        exec "normal " . lnum . "ggk"
        let lnum = enum
      endif
      let lnum = lnum + 1
    endif
  endwhile
  if found < 1
    echo "Cannot find non-translated msg"
  endif
endfun


function! FindNonTransMsgBw()
  exec "normal k"
  exec "normal ?msgstr \"\"\<CR>"
  exec "normal " "j"
  let myblank = getline(".")
    if myblank == ""
      exec "normal " "k"
     else
      call FindNonTransMsgBw()
    endif 
endfun