+++ /dev/null
-" GNU Info browser
-"
-" Copyright (c) 2001, 2002 Slavik Gorbanyov <rnd@web-drive.ru>
-" All rights reserved.
-"
-" Redistribution and use, with or without modification, are permitted
-" provided that the following conditions are met:
-"
-" 1. Redistributions must retain the above copyright notice, this list
-" of conditions and the following disclaimer.
-"
-" 2. The name of the author may not be used to endorse or promote
-" products derived from this script without specific prior written
-" permission.
-"
-" THIS SCRIPT IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
-" OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-" WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-" DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
-" INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-" (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-" SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
-" STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
-" IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-" POSSIBILITY OF SUCH DAMAGE.
-"
-" $Id: info.vim,v 1.7 2002/11/30 21:59:05 rnd Exp $
-
-let s:infoCmd = 'info --output=-'
-if has('win32')
- let s:infoBufferName = '-Info- '
-else
- let s:infoBufferName = 'Info: '
-endif
-let s:dirPattern = '^\* [^:]*: \(([^)]*)\)'
-let s:menuPattern = '^\* \([^:]*\)::'
-let s:notePattern = '\*[Nn]ote\%(\s\|$\)'
-let s:indexPattern = '^\* [^:]*:\s*\([^.]*\)\.$'
-let s:indexPatternHL = '^\* [^:]*:\s\+[^(]'
-
-command! -nargs=* Info call s:Info(<f-args>)
-
-fun! s:Info(...)
- let file = "(dir)"
- let node = "Top"
- if a:0
- let file = a:1
- if file[0] != '('
- let file = '('.file.')'
- endif
- if a:0 > 1
- let node = a:2
- let arg_idx = 3
- while arg_idx <= a:0
- exe 'let node = node ." ". a:'.arg_idx
- let arg_idx = arg_idx + 1
- endwhile
- endif
- endif
-
- call s:InfoExec(file, node)
- if winheight(2) != -1
- exe 'resize' &helpheight
- endif
-endfun
-
-fun! s:InfoExec(file, node, ...)
- " a:0 != 0 means last node requested
- if a:0
- let line = a:1
- else
- let line = 1
- endif
- if a:0 == 0 && exists('b:info_file')
- let last_file = b:info_file
- let last_node = b:info_node
- let last_line = line('.')
- endif
- let bufname = s:infoBufferName.a:file.a:node
- if buflisted(bufname) && a:0 < 2
- if &ft == 'info'
- silent exe 'b!' escape(bufname, '\ ')
- else
- silent exe 'sb' escape(bufname, '\ ')
- endif
- else
- if &ft == 'info'
- let command = 'e!'
- else
- let command = 'new'
- endif
- silent! exe command "+exe'setlocal''modifiable''noswapfile''buftype=nofile''bufhidden=delete'" escape(bufname, '\ ')
- setf info
-
- let cmd = s:infoCmd." '".a:file.a:node."' 2>/dev/null"
-
- " handle shell redirection portable
- if $OS !~? 'Windows'
- let save_shell = &shell
- set shell=/bin/sh
- endif
- let save_shellredir = &shellredir
- set shellredir=>
- exe "silent 0r!".cmd
- let &shellredir = save_shellredir
- if $OS !~? 'Windows'
- let &shell = save_shell
- endif
-
- call s:InfoBufferInit()
- endif
- let b:info_file = a:file
- let b:info_node = a:node
- if exists('last_file')
- let b:info_last_file = last_file
- let b:info_last_node = last_node
- let b:info_last_line = last_line
- endif
- setlocal nomodifiable
- if s:InfoFirstLine()
- exe line
- else
- echohl ErrorMsg | echo 'Info failed (node not found)' | echohl None
- endif
-endfun
-
-fun! s:InfoBufferInit()
-
- " remove all insert mode abbreviations
- iabc <buffer>
-
- if has("syntax") && exists("g:syntax_on")
- syn case match
- syn match infoMenuTitle /^\* Menu:/hs=s+2,he=e-1
- syn match infoTitle /^[A-Z][0-9A-Za-z `',/&]\{,43}\([a-z']\|[A-Z]\{2}\)$/
- syn match infoTitle /^[-=*]\{,45}$/
- syn match infoString /`[^`]*'/
- exec 'syn match infoLink /'.s:menuPattern.'/hs=s+2'
- exec 'syn match infoLink /'.s:dirPattern.'/hs=s+2'
- exec 'syn match infoLink /'.s:indexPatternHL.'/hs=s+2,he=e-2'
- syn region infoLink start=/\*[Nn]ote/ end=/\(::\|[.,]\)/
-
- if !exists("g:did_info_syntax_inits")
- let g:did_info_syntax_inits = 1
- hi def link infoMenuTitle Title
- hi def link infoTitle Comment
- hi def link infoLink Directory
- hi def link infoString String
- endif
- endif
-
- " FIXME: <h> is move cursor left
- noremap <buffer> h :call <SID>Help()<cr>
- noremap <buffer> <CR> :call <SID>FollowLink()<cr>
- noremap <buffer> <C-]> :call <SID>FollowLink()<cr>
- " FIXME: <l> is move cursor right
-" noremap <buffer> l :call <SID>LastNode()<cr>
- noremap <buffer> ; :call <SID>LastNode()<cr>
- noremap <buffer> <C-T> :call <SID>LastNode()<cr>
- noremap <buffer> <C-S> /
- " FIXME: <n> is go to next match
-" noremap <buffer> n :call <SID>NextNode()<cr>
- noremap <buffer> . :call <SID>NextNode()<cr>
- noremap <buffer> p :call <SID>PrevNode()<cr>
- noremap <buffer> > :call <SID>NextNode()<cr>
- noremap <buffer> < :call <SID>PrevNode()<cr>
- noremap <buffer> u :call <SID>UpNode()<cr>
- noremap <buffer> t :call <SID>TopNode()<cr>
- noremap <buffer> d :call <SID>DirNode()<cr>
- noremap <buffer> s :call <SID>Search()<cr>
- noremap <buffer> <TAB> :call <SID>NextRef()<cr>
- nnoremap <buffer> q :q!<cr>
- noremap <buffer> <Space> <C-F>
- noremap <buffer> <Backspace> <C-B>
-
- runtime info-local.vim
-endfun
-
-fun! s:Help()
- echohl Title
- echo 'Info browser keys'
- echo '-----------------'
- echohl None
- echo '<Space> Scroll forward (page down).'
- echo '<Backspace> Scroll backward (page up).'
- echo '<Tab> Move cursor to next hyperlink within this node.'
- echo '<Enter>,<C-]> Follow hyperlink under cursor.'
- echo ';,<C-T> Return to last seen node.'
- echo '.,> Move to the "next" node of this node.'
- echo 'p,< Move to the "previous" node of this node.'
- echo 'u Move "up" from this node.'
- echo 'd Move to "directory" node.'
- echo 't Move to the Top node.'
- echo '<C-S> Search forward within current node only.'
- echo 's Search forward through all nodes for a specified string.'
- echo 'q Quit browser.'
- echohl SpecialKey
- echo 'Note: "," means "or"'
- echohl None
-endfun
-
-fun! s:InfoFirstLine()
- let b:info_next_node = ''
- let b:info_prev_node = ''
- let b:info_up_node = ''
- let line = getline(1)
- let node_offset = matchend(line, '^File: [^, ]*')
- if node_offset == -1
- return 0
- endif
- let file = strpart(line, 6, node_offset-6)
- if file == 'dir'
- return 1
- endif
-" let file = substitute(file, '\(.*\)\.info\(\.gz\)\=', '\1', '')
- let b:info_next_node = s:GetSubmatch( line, '\s\+Next: \([^,]*\),')
- let b:info_prev_node = s:GetSubmatch( line, '\s\+Prev: \([^,]*\),')
- let b:info_up_node = s:GetSubmatch( line, '\s\+Up: \(.*\)')
- return 1
-endfun
-
-fun! s:GetSubmatch(string, pattern)
- let matched = matchstr(a:string, a:pattern)
- if matched != ''
- let matched = substitute(matched, a:pattern, '\1', '')
- endif
- return matched
-endfun
-
-fun! s:NextNode()
- if exists('b:info_next_node') && b:info_next_node != ''
- \ && match(b:info_next_node, '(.*)') == -1
- call s:InfoExec(b:info_file, b:info_next_node)
- return 1
- else
- echohl ErrorMsg | echo 'This is the last node' | echohl None
- endif
-endfun
-
-fun! s:TopNode()
- if b:info_node == 'Top'
- if b:info_file == '(dir)'
- echohl ErrorMsg | echo 'Already at top node' | echohl None
- return
- endif
- let file = '(dir)'
- let node = b:info_node
- else
- let file = b:info_file
- let node = 'Top'
- endif
- call s:InfoExec(file, node)
-endfun
-
-fun! s:DirNode()
- call s:InfoExec('(dir)', 'Top')
-endfun
-
-fun! s:LastNode()
- if !exists('b:info_last_node')
- echohl ErrorMsg | echo 'No last node' | echohl None
- return
- endif
- call s:InfoExec(b:info_last_file, b:info_last_node, b:info_last_line)
-endfun
-
-fun! s:FollowLink()
- let current_line = getline('.')
- let link = matchstr(current_line, s:notePattern)
- if link == ''
- let link = matchstr(current_line, s:dirPattern)
- if link == ''
- let link = matchstr(current_line, s:menuPattern)
- if link == ''
- let link = matchstr(current_line, s:indexPattern)
- if link == ''
- echohl ErrorMsg | echo 'No link under cursor' | echohl None
- return
- endif
- let successPattern = s:indexPattern
- else
- let successPattern = s:menuPattern
- endif
- let file = b:info_file
- let node = substitute(link, successPattern, '\1', '')
- else
- let successPattern = s:dirPattern
- let file = substitute(link, successPattern, '\1', '')
- let node = 'Top'
- endif
- else
- " we got a `*note' link.
- let successPattern = s:notePattern
- let current_line = current_line.' '.getline(line('.') + 1)
-
- if exists('g:info_debug')
- echo 'current_line:' current_line
- endif
-
- let link_pattern = '\*[Nn]ote [^:.]\+: \([^.,]\+\)\%([,.]\|$\)'
- let link = matchstr(current_line, link_pattern)
- if link == ''
- let link_pattern = '\*[Nn]ote \([^:]\+\)\%(::\)'
- let link = matchstr(current_line, link_pattern)
- if link == ''
- echohl ErrorMsg | echo 'No link under cursor' | echohl None
- return
- endif
- endif
- let node = substitute(link, link_pattern, '\1', '')
- let successPattern = link_pattern
-
- let link_pattern = '^\(([^)]*)\)\=\s*\(.*\)'
- let link = matchstr(node, link_pattern)
- let file = substitute(link, link_pattern, '\1', '')
- let node = substitute(link, link_pattern, '\2', '')
- if file == ''
- let file = b:info_file
- endif
- if node == ''
- let node = 'Top'
- endif
- endif
- let link_start_pos = match(current_line, successPattern)
- let link_end_pos = matchend(current_line, successPattern)
- let cursor_pos = col('.')
- if cursor_pos <= link_start_pos || cursor_pos > link_end_pos
- echohl ErrorMsg | echo 'No link under cursor' | echohl None
- return
- endif
- if exists('g:info_debug')
- echo 'Link:' strpart(current_line, link_start_pos, link_end_pos - link_start_pos)
- echo 'File:' file 'Node:' node
- endif
- call s:InfoExec(file, node)
-endfun
-
-fun! s:NextRef()
- let link_pos = search('\('.s:dirPattern.'\|'.s:menuPattern.'\|'.s:notePattern.'\|'.s:indexPatternHL.'\)', 'w')
- if link_pos == 0
- echohl ErrorMsg | echo 'No hyperlinks' | echohl None
- else
- echo
- endif
-endfun
-
-fun! s:PrevNode()
- if exists('b:info_prev_node') && b:info_prev_node != ''
- \ && match(b:info_prev_node, '(.*)') == -1
- call s:InfoExec(b:info_file, b:info_prev_node)
- return 1
- else
- echohl ErrorMsg | echo 'This is the first node' | echohl None
- endif
-endfun
-
-fun! s:UpNode()
- if exists('b:info_up_node') && b:info_up_node != ''
- \ && match(b:info_up_node, '(.*)') == -1
- call s:InfoExec(b:info_file, b:info_up_node)
- return 1
- else
- echohl ErrorMsg | echo 'This is the top node' | echohl None
- endif
-endfun
-
-" FIXME: there is no way to correctly abort searching.
-" <CTRL-C> messes up the command window and stops at empty buffer.
-fun! s:Search()
- if !exists('s:info_search_string')
- let s:info_search_string = ''
- endif
- let new_search = input('Search all nodes: ', s:info_search_string)
- if new_search == ''
- return
- endif
- let s:info_search_string = new_search
- let start_file = b:info_file
- let start_node = b:info_node
- let start_line = line('.')
- while search(s:info_search_string, 'W') == 0
- if !exists('b:info_next_node') || b:info_next_node == ''
- \ || match(b:info_next_node, '(.*)') != -1
- silent! exe 'bwipe' escape(s:infoBufferName.start_file.start_node, '\ ')
- silent! call s:InfoExec(start_file, start_node, start_line, 'force')
- echohl ErrorMsg | echo "\rSearch pattern not found" | echohl None
- return
- endif
- echo "\rSearching ... ".b:info_file b:info_next_node
- let file = b:info_file
- let node = b:info_next_node
- silent bwipe
- silent call s:InfoExec(file, node, 2)
- endwhile
-endfun
git://git.iain.cx/iain / profile.git / blobdiff