Simple Diatheke plugin for Vim

" Author:    Ivan Guillermo Castro B. <ivan@ibgf.cl>
" Version:    1.6 Dec 12, 2013 // english translation
" Version:    1.5 May 09, 2012 // rango de busquedas
" Version:    1.4 Mar 29, 2012
" Version:    1.3 Oct 11, 2011
" Version:    1.2 Aug 13, 2011
" Version:    1.1 Aug 10, 2011
" Version:    1.0 Aug 16, 2008


" Diatheke
vmap B y :call Biblia()<CR>

function Biblia()

    "Default Bible version (Always the zero [0] option)
    let vers_bib = "SpaRV60"
    "Encoding
    let encoding = "UTF8"
    "Some extra stuff
    let search_type = ""
    let extra_op = "-o nx"
    let cita = @"
    let rango = ""

    "Menu
    echo " [0]  Reina Valera 1960 (default)"
    echo " [1]  La Biblia de las Américas"
    echo " [2]  King James Version"
    echo " [m]  Multiword Search (default Bible)"
    echo " [x]  RegEx Search (default Bible)"
    echo ""


    let sel_bib = input ("Select number or hit enter (default 0): ")

    if (sel_bib == "1")
        let vers_bib = "SpaLBA"

    elseif (sel_bib == "2")
        let vers_bib = "KJV"

    elseif (sel_bib == "x" || sel_bib == "X" || sel_bib == "m" || sel_bib == "M")
        let extra_op = ""
        let rango = input ("Search range (Example: Mat-Joh -or empty for no range-): ")

        if (sel_bib == "x" || sel_bib == "X")
            let search_type = "-s regex"
            let cita = input ("RegEx: (Example: paral*): ")
        else
            let search_type = "-s multiword"
            let cita = input ("Keywords (Separated by spaces): ")
        endif

    endif

    if (rango != "")
        let rango = "-r " . rango
    endif

    if (search_type != "")
        let hint = system('diatheke -e '. encoding .' ' . search_type . ' -l es -b '. vers_bib .' '. rango .' -k "' . cita .'"')
        let hint = substitute(expand(hint), 'Verses containing .*"' , '&\r\r', 'g')
        let hint = substitute(expand(hint), '-- [1-9]* matches total.*', '', 'g')
        let hint = substitute(expand(hint), '--', '', 'g')
        let hint = substitute(expand(hint), ';', '\r', 'g')
        let vers_bib = "Results_for"
    else
        let hint = substitute(system('diatheke -e '. encoding .' '. search_type .' '. extra_op .' -f plain -l es -b '. vers_bib .' -k "' . cita .'"'), "$", "\r", "g")
    endif

    wincmd s
    enew!

    setlocal buftype=nofile
    setlocal bufhidden=wipe
    setlocal noswapfile
    setlocal wrap
    setlocal nobuflisted

    let cita = substitute(cita, ' ', '_', 'g')
    let cita = substitute(cita, '|', 'OR', 'g')
    let cita = substitute(cita, '&', 'AND', 'g')

    execute "silent file ". vers_bib . "_" . cita
    execute "silent normal i".hint."\<cr>\<esc>gg"
    execute "silent normal :%s\/^\\s*\/\/g\<cr>\<esc>\\\\gg"

    redraw!

endfunction