Nvim-R/ftplugin/rbrowser.vim at master · jeffiar/Nvim-R

357 lines (315 loc) · 9.86 KB
" Vim filetype plugin file
" Language: R Browser (generated by the Nvim-R)
" Maintainer: Jakson Alves de Aquino <jalvesaq@gmail.com>
" Only do this when not yet done for this buffer
if exists("b:did_ftplugin") || !has("nvim")
let b:did_ftplugin = 1
let g:rplugin_upobcnt = 0
let s:cpo_save = &cpo
set cpo&vim
" Source scripts common to R, Rnoweb, Rhelp and rdoc files:
runtime R/common_global.vim
" Some buffer variables common to R, Rnoweb, Rhelp and rdoc file need be
" defined after the global ones:
runtime R/common_buffer.vim
setlocal noswapfile
setlocal buftype=nofile
setlocal nowrap
setlocal iskeyword=@,48-57,_,.
setlocal nolist
if !exists("g:rplugin_hasmenu")
    let g:rplugin_hasmenu = 0
" Popup menu
if !exists("g:rplugin_hasbrowsermenu")
    let g:rplugin_hasbrowsermenu = 0
" Current view of the object browser: .GlobalEnv X loaded libraries
let g:rplugin_curview = "GlobalEnv"
function! UpdateOB(what)
    if a:what == "both"
        let wht = g:rplugin_curview
        let wht = a:what
    if g:rplugin_curview != wht
        return "curview != what"
    if g:rplugin_upobcnt
        echoerr "OB called twice"
        return "OB called twice"
    let g:rplugin_upobcnt = 1
    let rplugin_switchedbuf = 0
    if g:R_tmux_ob == 0
        redir => s:bufl
        silent buffers
        redir END
        if s:bufl !~ "Object_Browser"
            let g:rplugin_upobcnt = 0
            return "Object_Browser not listed"
        endif
        if exists("g:rplugin_curbuf") && g:rplugin_curbuf != "Object_Browser"
            let savesb = &switchbuf
            set switchbuf=useopen,usetab
            sil noautocmd sb Object_Browser
            let rplugin_switchedbuf = 1
        endif
    setlocal modifiable
    let curline = line(".")
    let curcol = col(".")
    if !exists("curline")
        let curline = 3
    if !exists("curcol")
        let curcol = 1
    let save_unnamed_reg = @@
    sil normal! ggdG
    let @@ = save_unnamed_reg 
    if wht == "GlobalEnv"
        let fcntt = readfile(g:rplugin_tmpdir . "/globenv_" . $NVIMR_ID)
        let fcntt = readfile(g:rplugin_tmpdir . "/liblist_" . $NVIMR_ID)
    call setline(1, fcntt)
    call cursor(curline, curcol)
    if bufname("%") =~ "Object_Browser" || b:rplugin_extern_ob
        setlocal nomodifiable
    if rplugin_switchedbuf
        exe "sil noautocmd sb " . g:rplugin_curbuf
        exe "set switchbuf=" . savesb
    let g:rplugin_upobcnt = 0
    return "End of UpdateOB()"
endfunction
function! RBrowserDoubleClick()
    " Toggle view: Objects in the workspace X List of libraries
    if line(".") == 1
        if g:rplugin_curview == "libraries"
            let g:rplugin_curview = "GlobalEnv"
            call UpdateOB("GlobalEnv")
        else
            let g:rplugin_curview = "libraries"
            call UpdateOB("libraries")
        endif
        return
    " Toggle state of list or data.frame: open X closed
    let key = RBrowserGetName(0, 1)
    if g:rplugin_curview == "GlobalEnv"
        call SendToNvimcom("\006" . key)
        let key = substitute(key, '`', '', "g") 
        if key !~ "^package:"
            let key = "package:" . RBGetPkgName() . '-' . key
        endif
        call SendToNvimcom("\006" . key)
endfunction
function! RBrowserRightClick()
    if line(".") == 1
        return
    let key = RBrowserGetName(1, 0)
    if key == ""
        return
    let line = getline(".")
    if line =~ "^   ##"
        return
    let isfunction = 0
    if line =~ "(#.*\t"
        let isfunction = 1
    if g:rplugin_hasbrowsermenu == 1
        aunmenu ]RBrowser
    let key = substitute(key, '\.', '\\.', "g")
    let key = substitute(key, ' ', '\\ ', "g")
    exe 'amenu ]RBrowser.summary('. key . ') :call RAction("summary")<CR>'
    exe 'amenu ]RBrowser.str('. key . ') :call RAction("str")<CR>'
    exe 'amenu ]RBrowser.names('. key . ') :call RAction("names")<CR>'
    exe 'amenu ]RBrowser.plot('. key . ') :call RAction("plot")<CR>'
    exe 'amenu ]RBrowser.print(' . key . ') :call RAction("print")<CR>'
    amenu ]RBrowser.-sep01- <nul>
    exe 'amenu ]RBrowser.example('. key . ') :call RAction("example")<CR>'
    exe 'amenu ]RBrowser.help('. key . ') :call RAction("help")<CR>'
    if isfunction
        exe 'amenu ]RBrowser.args('. key . ') :call RAction("args")<CR>'
    popup ]RBrowser
    let g:rplugin_hasbrowsermenu = 1
endfunction
function! RBGetPkgName()
    let lnum = line(".")
    while lnum > 0
        let line = getline(lnum)
        if line =~ '.*##[0-9a-zA-Z\.]*\t'
            let line = substitute(line, '.*##\(.*\)\t', '\1', "")
            return line
        endif
        let lnum -= 1
    endwhile
    return ""
endfunction
function! RBrowserFindParent(word, curline, curpos)
    let curline = a:curline
    let curpos = a:curpos
    while curline > 1 && curpos >= a:curpos
        let curline -= 1
        let line = substitute(getline(curline), "	.*", "", "")
        let curpos = stridx(line, '[#')
        if curpos == -1
            let curpos = stridx(line, '<#')
            if curpos == -1
                let curpos = a:curpos
            endif
        endif
    endwhile
    if g:rplugin_curview == "GlobalEnv"
        let spacelimit = 3
        if s:isutf8
            let spacelimit = 10
        else
            let spacelimit = 6
        endif
    if curline > 1
        let line = substitute(line, '^.\{-}\(.\)#', '\1#', "")
        let line = substitute(line, '^ *', '', "")
        if line =~ " " || line =~ '^.#[0-9]'
            let line = substitute(line, '\(.\)#\(.*\)$', '\1#`\2`', "")
        endif
        if line =~ '<#'
            let word = substitute(line, '.*<#', "", "") . '@' . a:word
        else
            let word = substitute(line, '.*\[#', "", "") . '$' . a:word
        endif
        if curpos != spacelimit
            let word = RBrowserFindParent(word, line("."), curpos)
        endif
        return word
        " Didn't find the parent: should never happen.
        let msg = "R-plugin Error: " . a:word . ":" . curline
        echoerr msg
    return ""
endfunction
function! RBrowserCleanTailTick(word, cleantail, cleantick)
    let nword = a:word
    if a:cleantick
        let nword = substitute(nword, "`", "", "g")
    if a:cleantail
        let nword = substitute(nword, '[\$@]$', '', '')
        let nword = substitute(nword, '[\$@]`$', '`', '')
    return nword
endfunction
function! RBrowserGetName(cleantail, cleantick)
    let line = getline(".")
    if line =~ "^$"
        return ""
    let curpos = stridx(line, "#")
    let word = substitute(line, '.\{-}\(.#\)\(.\{-}\)\t.*', '\2\1', '')
    let word = substitute(word, '\[#$', '$', '')
    let word = substitute(word, '<#$', '@', '')
    let word = substitute(word, '.#$', '', '')
    if word =~ ' ' || word =~ '^[0-9]'
        let word = '`' . word . '`'
    if (g:rplugin_curview == "GlobalEnv" && curpos == 4) || (g:rplugin_curview == "libraries" && curpos == 3)
        " top level object
        let word = substitute(word, '\$\[\[', '[[', "g")
        let word = RBrowserCleanTailTick(word, a:cleantail, a:cleantick)
        if g:rplugin_curview == "libraries"
            return "package:" . substitute(word, "#", "", "")
        else
            return word
        endif
        if g:rplugin_curview == "libraries"
            if s:isutf8
                if curpos == 11
                    let word = RBrowserCleanTailTick(word, a:cleantail, a:cleantick)
                    let word = substitute(word, '\$\[\[', '[[', "g")
                    return word
                endif
            elseif curpos == 7
                let word = RBrowserCleanTailTick(word, a:cleantail, a:cleantick)
                let word = substitute(word, '\$\[\[', '[[', "g")
                return word
            endif
        endif
        if curpos > 4
            " Find the parent data.frame or list
            let word = RBrowserFindParent(word, line("."), curpos - 1)
            let word = RBrowserCleanTailTick(word, a:cleantail, a:cleantick)
            let word = substitute(word, '\$\[\[', '[[', "g")
            return word
        else
            " Wrong object name delimiter: should never happen.
            let msg = "R-plugin Error: (curpos = " . curpos . ") " . word
            echoerr msg
            return ""
        endif
endfunction
function! SourceObjBrLines()
    exe "source " . substitute(g:rplugin_tmpdir, ' ', '\\ ', 'g') . "/objbrowserInit"
endfunction
function! OnOBBufUnload()
    call SendToNvimcom("\004Stop updating info [OB BufUnload].")
    if b:rplugin_extern_ob
        call SendToOtherNvim("let g:rplugin_ob_port = 0")
endfunction
" Called by Neovim editor in another Tmux pane
function! ExternOBQuit()
    call OnOBBufUnload()
endfunction
nmap <buffer><silent> <CR> :call RBrowserDoubleClick()<CR>
nmap <buffer><silent> <2-LeftMouse> :call RBrowserDoubleClick()<CR>
nmap <buffer><silent> <RightMouse> :call RBrowserRightClick()<CR>
call RControlMaps()
setlocal winfixwidth
setlocal bufhidden=wipe
if has("gui_running")
    runtime R/gui_running.vim
    call RControlMenu()
    call RBrowserMenu()
au BufEnter <buffer> stopinsert
au BufUnload <buffer> call OnOBBufUnload()
if g:R_tmux_ob
    " Fix problems caused by some plugins
    if exists("g:loaded_surround") && mapcheck("ds", "n") != ""
        nunmap ds
    if exists("g:loaded_showmarks ")
        autocmd! ShowMarks
let s:envstring = tolower($LC_MESSAGES . $LC_ALL . $LANG)
if s:envstring =~ "utf-8" || s:envstring =~ "utf8"
    let s:isutf8 = 1
    let s:isutf8 = 0
unlet s:envstring
call setline(1, ".GlobalEnv | Libraries")
call RSourceOtherScripts()
let &cpo = s:cpo_save
unlet s:cpo_save
" vim: sw=4
Provide feedback

Saved searches

Use saved searches to filter your results more quickly

FilesExpand file tree

rbrowser.vim

Latest commit

History

rbrowser.vim

File metadata and controls
