| Bram Moolenaar | b20545f | 2016-04-30 14:15:54 +0200 | [diff] [blame] | 1 | " Vim plugin for using Vim as manpager. |
| 2 | " Maintainer: Enno Nagel <ennonagel+vim@gmail.com> |
| Bram Moolenaar | 7f2e9d7 | 2017-11-11 20:58:53 +0100 | [diff] [blame] | 3 | " Last Change: 2017 November 07 |
| Bram Moolenaar | b20545f | 2016-04-30 14:15:54 +0200 | [diff] [blame] | 4 | |
| 5 | " $MAN_PN is supposed to be set by MANPAGER, see ":help manpager.vim". |
| 6 | if empty($MAN_PN) |
| 7 | finish |
| 8 | endif |
| 9 | |
| 10 | command! -nargs=0 MANPAGER call s:MANPAGER() | delcommand MANPAGER |
| 11 | |
| 12 | function! s:MANPAGER() |
| Bram Moolenaar | 7f2e9d7 | 2017-11-11 20:58:53 +0100 | [diff] [blame] | 13 | let page_pattern = '\v\w[-_.:0-9A-Za-z]*' |
| Bram Moolenaar | b20545f | 2016-04-30 14:15:54 +0200 | [diff] [blame] | 14 | let sec_pattern = '\v\w+%(\+\w+)*' |
| 15 | let pagesec_pattern = '\v(' . page_pattern . ')\((' . sec_pattern . ')\)' |
| 16 | |
| 17 | if $MAN_PN is '1' |
| Bram Moolenaar | 7f2e9d7 | 2017-11-11 20:58:53 +0100 | [diff] [blame] | 18 | let manpage = tolower(matchstr( getline(nextnonblank(1)), '^' . pagesec_pattern )) |
| Bram Moolenaar | b20545f | 2016-04-30 14:15:54 +0200 | [diff] [blame] | 19 | else |
| Bram Moolenaar | 7f2e9d7 | 2017-11-11 20:58:53 +0100 | [diff] [blame] | 20 | let manpage = expand($MAN_PN) |
| Bram Moolenaar | b20545f | 2016-04-30 14:15:54 +0200 | [diff] [blame] | 21 | endif |
| 22 | |
| Bram Moolenaar | 7f2e9d7 | 2017-11-11 20:58:53 +0100 | [diff] [blame] | 23 | let page_sec = matchlist(manpage, '^' . pagesec_pattern . '$') |
| Bram Moolenaar | b20545f | 2016-04-30 14:15:54 +0200 | [diff] [blame] | 24 | |
| 25 | bwipe! |
| 26 | |
| 27 | setlocal filetype=man |
| Bram Moolenaar | 06d2d38 | 2016-05-20 17:24:11 +0200 | [diff] [blame] | 28 | exe 'Man' page_sec[2] page_sec[1] |
| Bram Moolenaar | b20545f | 2016-04-30 14:15:54 +0200 | [diff] [blame] | 29 | endfunction |