Vim插件：显示当前Perl子例程

Question

我正在尝试制作一个Vim插件，可以在加载时分割窗口并在终端顶部模拟信息栏。我已经有了一些成果，但我认为我要么达到了我的Vim语法知识的极限，要么我的代码存在逻辑问题。

期望的效果是从活动缓冲区中搜索任何Perl子例程声明，并在顶部缓冲区显示该行。我还试图使其在使用Ctrl-R切换缓冲区时跳过该缓冲区。到目前为止，我尝试使用嵌套的if语句实现此功能。

无论如何，这里是代码。我非常感谢任何人提供的反馈。

let s:current_function_bufname = 'Current\ Function\/Subroutine'
function! s:get_current_function_name(no_echo)
    let lnum = line(".")
    let col = col(".")
    if a:no_echo
        let s:current_function_name = getline(search("^[^s]*sub .*$", 'bW'))
    else
        echohl ModeMsg
        echo getline(search("^[^s]*sub .*$", 'bW'))
        "echo getline(search("^[^ \t#/]\\{2}.*[^:]\s*$", 'bW'))
        echohl None
    endif
endfunction

let s:previous_winbufnr = 1
let s:current_function_name = ''
let s:current_function_buffer_created = 0
let s:current_function_bufnr = 2
function! s:show_current_function()
    let total_buffers = winnr('$')
    let current_winbufnr = winnr()
    if s:previous_winbufnr != current_winbufnr
        if bufname(current_winbufnr) == s:current_function_bufname
            if s:previous_winbufnr < current_winbufnr
                let i = current_winbufnr + 1
                if i > total_buffers
                    let i = 1
                endif
                if i == s:current_function_bufnr
                    let i = i + 1
                endif
                if i > total buffers
                    let i = 1
                endif
                exec i.'wincmd w'
            else
                let i = current_winbufnr - 1
                if i < 1
                    let i = total_buffers
                endif
                if i == s:current_function_bufnr
                    let i = i - 1
                endif
                if i < 1
                    let i = total_buffers
                endif
                try
                    exec i.'wincmd w'
                finally
                    exec total_buffers.'wincmd w'
                endtry
            endif
        endif
        let s:previous_winbufnr = current_winbufnr
        return 1
    endif

    if s:current_function_buffer_created == 0
        exec 'top 1 split '.s:current_function_bufname
        call s:set_as_scratch_buffer()
        let s:current_function_buffer_created = 1
        let s:current_function_bufnr = winnr()
    endif

    call s:activate_buffer_by_name(s:current_function_bufname)
    setlocal modifiable

    call s:get_current_function_name(1)
    call setline(1, s:current_function_name)

    setlocal nomodifiable
    call s:activate_buffer_by_name(bufname(current_winbufnr))
endfunction

function! s:set_as_scratch_buffer()
   setlocal noswapfile
   setlocal nomodifiable
   setlocal bufhidden=delete
   setlocal buftype=nofile
   setlocal nobuflisted
   setlocal nonumber
   setlocal nowrap
   setlocal cursorline
endfunction

function! s:activate_buffer_by_name(name)
   for i in range(1, winnr('$'))
      let name = bufname(winbufnr(i))
      let full_name = fnamemodify(bufname(winbufnr(i)), ':p')
      if name == a:name || full_name == a:name
         exec i.'wincmd w'
         return 1
      endif
   endfor
   return 0
endfunction

set laststatus=2
autocmd! CursorMoved,CursorMovedI,BufWinEnter * call s:show_current_function()

类似于问题VIM：在窗口顶部显示自定义参考栏和Vim技巧维基页面在C程序中显示当前函数名称。

- Andrew Sohn

---

我不是vim的用户，所以我无法评价你的代码，但这可能与你想要做的事情有关：http://blogs.perl.org/users/ovid/2011/01/show-perl-subname-in-vim-statusline.html - Prakash K

你可能会对vim-perl项目感兴趣：https://github.com/vim-perl/vim-perl。这是Vim中所有Perl支持的地方。然后，这些改进将被折叠回主要的vim发布版本中。 - Andy Lester

Answer 1

在查看由@Prakash建议的http://blogs.perl.org/users/ovid/2011/01/show-perl-subname-in-vim-statusline.html上的代码后，我决定分享我的脚本改进。

我在他的网站上玩了一会儿代码，并进行了改进。如果你在子程序外部，它将显示N/A。如果你的闭合括号缩进与子声明缩进不匹配，你可能需要修改$indent部分。玩得开心！

.vimrc：

syntax on
setlocal laststatus=2
setlocal statusline=\ %{HasPaste()}%F%m%r%h\ %w\ \ CWD:\ %r%{CurDir()}%h\ \ \ Position:\ %p%%\ %l/%L,%c
if has("autocmd")
    autocmd BufReadPost * if &syntax == 'perl' | source ~/.vim/perl_current_subroutine | endif
endif

.vim/perl_current_subroutine：

if ! exists("b:did_perl_statusline") && &syntax == 'perl'
    setlocal statusline+=%(\ \ \ Subroutine:\ %{StatusLineIndexLine()}%)
    let b:did_perl_statusline = 1
endif

if has('perl')
perl << EOP
    use strict;
    sub current_perl_subroutine {
        my $curwin = $main::curwin;
        my $curbuf = $main::curbuf;
        my $sub_name = 'N/A';

        #search up from cursor line to find a declaration of a subroutine
        my $line_number = ($curwin->Cursor)[0];
        my $line = $curbuf->Get($line_number);
        my $indent = '';
        if ($line !~ /^(\s*)sub\s+(\w+)\b/) {
            $line = $curbuf->Get($line_number) while ($line_number-- > 0 && $line !~ /^(\s*)sub\s+(\w+)\b/);
            ($indent, $sub_name) = ($1, $2);
        } else {
            $line_number--;
            ($indent, $sub_name) = ($1, $2);
        }

        #if found, (try to) find the end of the subroutine
        if ($sub_name ne 'N/A') {
            my $end = $curbuf->Count();
            $line = $curbuf->Get($line_number);
            if ($line !~ /}\s*$/) {
                $line = $curbuf->Get($line_number) while ($line_number++ < $end && $line !~ /^($indent)?}\s*$/);
                $line_number--;
            }
            $sub_name = 'N/A' if ($line =~ /^($indent)?}\s*$/ && ($curwin->Cursor)[0] > $line_number);
        }

        VIM::DoCommand("let current_perl_subroutine_name='$sub_name'");
    }
EOP

    function! StatusLineIndexLine()
        perl current_perl_subroutine()
        return current_perl_subroutine_name
    endfunction
endif

- Andrew Sohn