mirror of
https://github.com/neovim/neovim.git
synced 2024-12-26 06:05:06 -07:00
ba2e94d223
Here I use a negative number to decide whether the count has been explicitly set. I think it unlikely that negative sections will ever be created given that negative numbers complicate argument handling: ``` $ man -1 foo man: invalid option -- '1' ``` and given that there's already precedence for alphanumeric sections like `3p`, `3x`, `n`, etc. --- This does work, though: ``` $ man -S -3 baz ``` With `man baz.-3` and `man 'baz(-3)'`, (GNU) man *might* consider `-3` internally as a section, but in the end reports as if the whole argument was the name of a topic: ``` $ man 'baz(-3)' No manual entry for baz(-3) ``` --- Closes #13411.
457 lines
13 KiB
VimL
457 lines
13 KiB
VimL
" Maintainer: Anmol Sethi <hi@nhooyr.io>
|
|
|
|
if exists('s:loaded_man')
|
|
finish
|
|
endif
|
|
let s:loaded_man = 1
|
|
|
|
let s:find_arg = '-w'
|
|
let s:localfile_arg = v:true " Always use -l if possible. #6683
|
|
let s:section_arg = '-S'
|
|
|
|
function! man#init() abort
|
|
try
|
|
" Check for -l support.
|
|
call s:get_page(s:get_path('', 'man'))
|
|
catch /command error .*/
|
|
let s:localfile_arg = v:false
|
|
endtry
|
|
endfunction
|
|
|
|
function! man#open_page(count, mods, ...) abort
|
|
if a:0 > 2
|
|
call s:error('too many arguments')
|
|
return
|
|
elseif a:0 == 0
|
|
let ref = &filetype ==# 'man' ? expand('<cWORD>') : expand('<cword>')
|
|
if empty(ref)
|
|
call s:error('no identifier under cursor')
|
|
return
|
|
endif
|
|
elseif a:0 ==# 1
|
|
let ref = a:1
|
|
else
|
|
" Combine the name and sect into a manpage reference so that all
|
|
" verification/extraction can be kept in a single function.
|
|
" If a:2 is a reference as well, that is fine because it is the only
|
|
" reference that will match.
|
|
let ref = a:2.'('.a:1.')'
|
|
endif
|
|
try
|
|
let [sect, name] = s:extract_sect_and_name_ref(ref)
|
|
if a:count >= 0
|
|
let sect = string(a:count)
|
|
endif
|
|
let path = s:verify_exists(sect, name)
|
|
let [sect, name] = s:extract_sect_and_name_path(path)
|
|
catch
|
|
call s:error(v:exception)
|
|
return
|
|
endtry
|
|
|
|
let [l:buf, l:save_tfu] = [bufnr(), &tagfunc]
|
|
try
|
|
set tagfunc=man#goto_tag
|
|
let l:target = l:name . '(' . l:sect . ')'
|
|
if a:mods !~# 'tab' && s:find_man()
|
|
execute 'silent keepalt tag' l:target
|
|
else
|
|
execute 'silent keepalt' a:mods 'stag' l:target
|
|
endif
|
|
finally
|
|
call setbufvar(l:buf, '&tagfunc', l:save_tfu)
|
|
endtry
|
|
|
|
let b:man_sect = sect
|
|
endfunction
|
|
|
|
function! man#read_page(ref) abort
|
|
try
|
|
let [sect, name] = s:extract_sect_and_name_ref(a:ref)
|
|
let path = s:verify_exists(sect, name)
|
|
let [sect, name] = s:extract_sect_and_name_path(path)
|
|
let page = s:get_page(path)
|
|
catch
|
|
call s:error(v:exception)
|
|
return
|
|
endtry
|
|
let b:man_sect = sect
|
|
call s:put_page(page)
|
|
endfunction
|
|
|
|
" Handler for s:system() function.
|
|
function! s:system_handler(jobid, data, event) dict abort
|
|
if a:event is# 'stdout' || a:event is# 'stderr'
|
|
let self[a:event] .= join(a:data, "\n")
|
|
else
|
|
let self.exit_code = a:data
|
|
endif
|
|
endfunction
|
|
|
|
" Run a system command and timeout after 30 seconds.
|
|
function! s:system(cmd, ...) abort
|
|
let opts = {
|
|
\ 'stdout': '',
|
|
\ 'stderr': '',
|
|
\ 'exit_code': 0,
|
|
\ 'on_stdout': function('s:system_handler'),
|
|
\ 'on_stderr': function('s:system_handler'),
|
|
\ 'on_exit': function('s:system_handler'),
|
|
\ }
|
|
let jobid = jobstart(a:cmd, opts)
|
|
|
|
if jobid < 1
|
|
throw printf('command error %d: %s', jobid, join(a:cmd))
|
|
endif
|
|
|
|
let res = jobwait([jobid], 30000)
|
|
if res[0] == -1
|
|
try
|
|
call jobstop(jobid)
|
|
throw printf('command timed out: %s', join(a:cmd))
|
|
catch /^Vim(call):E900:/
|
|
endtry
|
|
elseif res[0] == -2
|
|
throw printf('command interrupted: %s', join(a:cmd))
|
|
endif
|
|
if opts.exit_code != 0
|
|
throw printf("command error (%d) %s: %s", jobid, join(a:cmd), substitute(opts.stderr, '\_s\+$', '', &gdefault ? '' : 'g'))
|
|
endif
|
|
|
|
return opts.stdout
|
|
endfunction
|
|
|
|
function! s:get_page(path) abort
|
|
" Disable hard-wrap by using a big $MANWIDTH (max 1000 on some systems #9065).
|
|
" Soft-wrap: ftplugin/man.vim sets wrap/breakindent/….
|
|
" Hard-wrap: driven by `man`.
|
|
let manwidth = !get(g:, 'man_hardwrap', 1) ? 999 : (empty($MANWIDTH) ? winwidth(0) : $MANWIDTH)
|
|
" Force MANPAGER=cat to ensure Vim is not recursively invoked (by man-db).
|
|
" http://comments.gmane.org/gmane.editors.vim.devel/29085
|
|
" Set MAN_KEEP_FORMATTING so Debian man doesn't discard backspaces.
|
|
let cmd = ['env', 'MANPAGER=cat', 'MANWIDTH='.manwidth, 'MAN_KEEP_FORMATTING=1', 'man']
|
|
return s:system(cmd + (s:localfile_arg ? ['-l', a:path] : [a:path]))
|
|
endfunction
|
|
|
|
function! s:put_page(page) abort
|
|
setlocal modifiable
|
|
setlocal noreadonly
|
|
setlocal noswapfile
|
|
" git-ls-files(1) is all one keyword/tag-target
|
|
setlocal iskeyword+=(,)
|
|
silent keepjumps %delete _
|
|
silent put =a:page
|
|
while getline(1) =~# '^\s*$'
|
|
silent keepjumps 1delete _
|
|
endwhile
|
|
" XXX: nroff justifies text by filling it with whitespace. That interacts
|
|
" badly with our use of $MANWIDTH=999. Hack around this by using a fixed
|
|
" size for those whitespace regions.
|
|
silent! keeppatterns keepjumps %s/\s\{199,}/\=repeat(' ', 10)/g
|
|
1
|
|
lua require("man").highlight_man_page()
|
|
setlocal filetype=man
|
|
endfunction
|
|
|
|
function! man#show_toc() abort
|
|
let bufname = bufname('%')
|
|
let info = getloclist(0, {'winid': 1})
|
|
if !empty(info) && getwinvar(info.winid, 'qf_toc') ==# bufname
|
|
lopen
|
|
return
|
|
endif
|
|
|
|
let toc = []
|
|
let lnum = 2
|
|
let last_line = line('$') - 1
|
|
while lnum && lnum < last_line
|
|
let text = getline(lnum)
|
|
if text =~# '^\%( \{3\}\)\=\S.*$'
|
|
call add(toc, {'bufnr': bufnr('%'), 'lnum': lnum, 'text': text})
|
|
endif
|
|
let lnum = nextnonblank(lnum + 1)
|
|
endwhile
|
|
|
|
call setloclist(0, toc, ' ')
|
|
call setloclist(0, [], 'a', {'title': 'Man TOC'})
|
|
lopen
|
|
let w:qf_toc = bufname
|
|
endfunction
|
|
|
|
" attempt to extract the name and sect out of 'name(sect)'
|
|
" otherwise just return the largest string of valid characters in ref
|
|
function! s:extract_sect_and_name_ref(ref) abort
|
|
if a:ref[0] ==# '-' " try ':Man -pandoc' with this disabled.
|
|
throw 'manpage name cannot start with ''-'''
|
|
endif
|
|
let ref = matchstr(a:ref, '[^()]\+([^()]\+)')
|
|
if empty(ref)
|
|
let name = matchstr(a:ref, '[^()]\+')
|
|
if empty(name)
|
|
throw 'manpage reference cannot contain only parentheses'
|
|
endif
|
|
return ['', name]
|
|
endif
|
|
let left = split(ref, '(')
|
|
" see ':Man 3X curses' on why tolower.
|
|
" TODO(nhooyr) Not sure if this is portable across OSs
|
|
" but I have not seen a single uppercase section.
|
|
return [tolower(split(left[1], ')')[0]), left[0]]
|
|
endfunction
|
|
|
|
function! s:get_path(sect, name) abort
|
|
" Some man implementations (OpenBSD) return all available paths from the
|
|
" search command, so we get() the first one. #8341
|
|
if empty(a:sect)
|
|
return substitute(get(split(s:system(['man', s:find_arg, a:name])), 0, ''), '\n\+$', '', '')
|
|
endif
|
|
" '-s' flag handles:
|
|
" - tokens like 'printf(echo)'
|
|
" - sections starting with '-'
|
|
" - 3pcap section (found on macOS)
|
|
" - commas between sections (for section priority)
|
|
return substitute(get(split(s:system(['man', s:find_arg, s:section_arg, a:sect, a:name])), 0, ''), '\n\+$', '', '')
|
|
endfunction
|
|
|
|
" s:verify_exists attempts to find the path to a manpage
|
|
" based on the passed section and name.
|
|
"
|
|
" 1. If the passed section is empty, b:man_default_sects is used.
|
|
" 2. If manpage could not be found with the given sect and name,
|
|
" then another attempt is made with b:man_default_sects.
|
|
" 3. If it still could not be found, then we try again without a section.
|
|
" 4. If still not found but $MANSECT is set, then we try again with $MANSECT
|
|
" unset.
|
|
"
|
|
" This function is careful to avoid duplicating a search if a previous
|
|
" step has already done it. i.e if we use b:man_default_sects in step 1,
|
|
" then we don't do it again in step 2.
|
|
function! s:verify_exists(sect, name) abort
|
|
let sect = a:sect
|
|
if empty(sect)
|
|
let sect = get(b:, 'man_default_sects', '')
|
|
endif
|
|
|
|
try
|
|
return s:get_path(sect, a:name)
|
|
catch /^command error (/
|
|
endtry
|
|
|
|
if !empty(get(b:, 'man_default_sects', '')) && sect !=# b:man_default_sects
|
|
try
|
|
return s:get_path(b:man_default_sects, a:name)
|
|
catch /^command error (/
|
|
endtry
|
|
endif
|
|
|
|
if !empty(sect)
|
|
try
|
|
return s:get_path('', a:name)
|
|
catch /^command error (/
|
|
endtry
|
|
endif
|
|
|
|
if !empty($MANSECT)
|
|
try
|
|
let MANSECT = $MANSECT
|
|
unset $MANSECT
|
|
return s:get_path('', a:name)
|
|
catch /^command error (/
|
|
finally
|
|
let $MANSECT = MANSECT
|
|
endtry
|
|
endif
|
|
|
|
throw 'no manual entry for ' . a:name
|
|
endfunction
|
|
|
|
" Extracts the name/section from the 'path/name.sect', because sometimes the actual section is
|
|
" more specific than what we provided to `man` (try `:Man 3 App::CLI`).
|
|
" Also on linux, name seems to be case-insensitive. So for `:Man PRIntf`, we
|
|
" still want the name of the buffer to be 'printf'.
|
|
function! s:extract_sect_and_name_path(path) abort
|
|
let tail = fnamemodify(a:path, ':t')
|
|
if a:path =~# '\.\%([glx]z\|bz2\|lzma\|Z\)$' " valid extensions
|
|
let tail = fnamemodify(tail, ':r')
|
|
endif
|
|
let sect = matchstr(tail, '\.\zs[^.]\+$')
|
|
let name = matchstr(tail, '^.\+\ze\.')
|
|
return [sect, name]
|
|
endfunction
|
|
|
|
function! s:find_man() abort
|
|
let l:win = 1
|
|
while l:win <= winnr('$')
|
|
let l:buf = winbufnr(l:win)
|
|
if getbufvar(l:buf, '&filetype', '') ==# 'man'
|
|
execute l:win.'wincmd w'
|
|
return 1
|
|
endif
|
|
let l:win += 1
|
|
endwhile
|
|
return 0
|
|
endfunction
|
|
|
|
function! s:error(msg) abort
|
|
redraw
|
|
echohl ErrorMsg
|
|
echon 'man.vim: ' a:msg
|
|
echohl None
|
|
endfunction
|
|
|
|
" see s:extract_sect_and_name_ref on why tolower(sect)
|
|
function! man#complete(arg_lead, cmd_line, cursor_pos) abort
|
|
let args = split(a:cmd_line)
|
|
let cmd_offset = index(args, 'Man')
|
|
if cmd_offset > 0
|
|
" Prune all arguments up to :Man itself. Otherwise modifier commands like
|
|
" :tab, :vertical, etc. would lead to a wrong length.
|
|
let args = args[cmd_offset:]
|
|
endif
|
|
let l = len(args)
|
|
if l > 3
|
|
return
|
|
elseif l ==# 1
|
|
let name = ''
|
|
let sect = ''
|
|
elseif a:arg_lead =~# '^[^()]\+([^()]*$'
|
|
" cursor (|) is at ':Man printf(|' or ':Man 1 printf(|'
|
|
" The later is is allowed because of ':Man pri<TAB>'.
|
|
" It will offer 'priclass.d(1m)' even though section is specified as 1.
|
|
let tmp = split(a:arg_lead, '(')
|
|
let name = tmp[0]
|
|
let sect = tolower(get(tmp, 1, ''))
|
|
return s:complete(sect, '', name)
|
|
elseif args[1] !~# '^[^()]\+$'
|
|
" cursor (|) is at ':Man 3() |' or ':Man (3|' or ':Man 3() pri|'
|
|
" or ':Man 3() pri |'
|
|
return
|
|
elseif l ==# 2
|
|
if empty(a:arg_lead)
|
|
" cursor (|) is at ':Man 1 |'
|
|
let name = ''
|
|
let sect = tolower(args[1])
|
|
else
|
|
" cursor (|) is at ':Man pri|'
|
|
if a:arg_lead =~# '\/'
|
|
" if the name is a path, complete files
|
|
" TODO(nhooyr) why does this complete the last one automatically
|
|
return glob(a:arg_lead.'*', 0, 1)
|
|
endif
|
|
let name = a:arg_lead
|
|
let sect = ''
|
|
endif
|
|
elseif a:arg_lead !~# '^[^()]\+$'
|
|
" cursor (|) is at ':Man 3 printf |' or ':Man 3 (pr)i|'
|
|
return
|
|
else
|
|
" cursor (|) is at ':Man 3 pri|'
|
|
let name = a:arg_lead
|
|
let sect = tolower(args[1])
|
|
endif
|
|
return s:complete(sect, sect, name)
|
|
endfunction
|
|
|
|
function! s:get_paths(sect, name, do_fallback) abort
|
|
" callers must try-catch this, as some `man` implementations don't support `s:find_arg`
|
|
try
|
|
let mandirs = join(split(s:system(['man', s:find_arg]), ':\|\n'), ',')
|
|
let paths = globpath(mandirs, 'man?/'.a:name.'*.'.a:sect.'*', 0, 1)
|
|
try
|
|
" Prioritize the result from verify_exists as it obeys b:man_default_sects.
|
|
let first = s:verify_exists(a:sect, a:name)
|
|
let paths = filter(paths, 'v:val !=# first')
|
|
let paths = [first] + paths
|
|
catch
|
|
endtry
|
|
return paths
|
|
catch
|
|
if !a:do_fallback
|
|
throw v:exception
|
|
endif
|
|
|
|
" Fallback to a single path, with the page we're trying to find.
|
|
try
|
|
return [s:verify_exists(a:sect, a:name)]
|
|
catch
|
|
return []
|
|
endtry
|
|
endtry
|
|
endfunction
|
|
|
|
function! s:complete(sect, psect, name) abort
|
|
let pages = s:get_paths(a:sect, a:name, v:false)
|
|
" We remove duplicates in case the same manpage in different languages was found.
|
|
return uniq(sort(map(pages, 's:format_candidate(v:val, a:psect)'), 'i'))
|
|
endfunction
|
|
|
|
function! s:format_candidate(path, psect) abort
|
|
if a:path =~# '\.\%(pdf\|in\)$' " invalid extensions
|
|
return
|
|
endif
|
|
let [sect, name] = s:extract_sect_and_name_path(a:path)
|
|
if sect ==# a:psect
|
|
return name
|
|
elseif sect =~# a:psect.'.\+$'
|
|
" We include the section if the user provided section is a prefix
|
|
" of the actual section.
|
|
return name.'('.sect.')'
|
|
endif
|
|
endfunction
|
|
|
|
function! man#init_pager() abort
|
|
" https://github.com/neovim/neovim/issues/6828
|
|
let og_modifiable = &modifiable
|
|
setlocal modifiable
|
|
|
|
if getline(1) =~# '^\s*$'
|
|
silent keepjumps 1delete _
|
|
else
|
|
keepjumps 1
|
|
endif
|
|
lua require("man").highlight_man_page()
|
|
" Guess the ref from the heading (which is usually uppercase, so we cannot
|
|
" know the correct casing, cf. `man glDrawArraysInstanced`).
|
|
let ref = substitute(matchstr(getline(1), '^[^)]\+)'), ' ', '_', 'g')
|
|
try
|
|
let b:man_sect = s:extract_sect_and_name_ref(ref)[0]
|
|
catch
|
|
let b:man_sect = ''
|
|
endtry
|
|
if -1 == match(bufname('%'), 'man:\/\/') " Avoid duplicate buffers, E95.
|
|
execute 'silent file man://'.tolower(fnameescape(ref))
|
|
endif
|
|
|
|
let &l:modifiable = og_modifiable
|
|
endfunction
|
|
|
|
function! man#goto_tag(pattern, flags, info) abort
|
|
let [l:sect, l:name] = s:extract_sect_and_name_ref(a:pattern)
|
|
|
|
let l:paths = s:get_paths(l:sect, l:name, v:true)
|
|
let l:structured = []
|
|
|
|
for l:path in l:paths
|
|
let [l:sect, l:name] = s:extract_sect_and_name_path(l:path)
|
|
let l:structured += [{
|
|
\ 'name': l:name,
|
|
\ 'title': l:name . '(' . l:sect . ')'
|
|
\ }]
|
|
endfor
|
|
|
|
if &cscopetag
|
|
" return only a single entry so we work well with :cstag (#11675)
|
|
let l:structured = l:structured[:0]
|
|
endif
|
|
|
|
return map(l:structured, {
|
|
\ _, entry -> {
|
|
\ 'name': entry.name,
|
|
\ 'filename': 'man://' . entry.title,
|
|
\ 'cmd': '1'
|
|
\ }
|
|
\ })
|
|
endfunction
|
|
|
|
call man#init()
|