/usr/share/vile/manpage.rc is in vile-common 9.8s-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 | ;;
;; Macros for obtaining manual pages and then attributing them.
;;
;; Author: Kevin Buettner
;;
;; $Header: /usr/build/vile/vile/macros/RCS/manpage.rc,v 1.26 2014/03/30 20:10:29 tom Exp $
;;
store-procedure ShowManpage "Prompt for, and display a manual-page"
~local %filter %manpage %manpagebuf $error-buffer
set-variable %filter &pquote &lookup e+l+p &cat vile-manfilt $exec-suffix
~if &seq %filter ""
write-message "[Cannot find manpage-filter]"
~return
~endif
~force set-variable %manpage &query "man page? "
~if &or &error %manpage &seq %manpage ""
~return
~endif
set-variable %manpagebuf &cat "<" &cat %manpage ">"
set terse
~force select-buffer %manpagebuf
~if ¬ $status
edit-file &cat "!man " &cat %manpage &cat " | " %filter
~if &isa Majormode txt
setl txtmode
~endif
setl autocolor=0
~force rename-buffer %manpagebuf
~force error-buffer %manpagebuf
write-message "[Attaching bold and underline attributes...]"
goto-beginning-of-file
setl noview
attribute-cntl_a-sequences-til end-of-file
unmark-buffer
setl view
goto-beginning-of-file
unsetv $cfilname
write-message "[Done formatting manual page.]"
~endif
set noterse
~endm
bind-key ShowManpage ^X-m
store-procedure ShowFormatted "Render the current buffer with nroff (-man or -ms), lynx or vile-pager"
~local %type %macros %table %nroff %filter %manpagesrc %manpagebuf $error-buffer
set-variable %filter &pquote &lookup e+l+p &cat vile-manfilt $exec-suffix
~if &seq %filter ""
write-message "[Cannot find manpage-filter]"
~return
~endif
~if &sin $cbufname "<"
set-variable %manpagebuf $cbufname
set-variable %manpagesrc &mid $cbufname 2 &sub &len $cbufname 2
~force select-buffer %manpagesrc
~if ¬ $status
write-message &cat "Buffer not found: " %manpagesrc
~return
~endif
~else
set-variable %manpagebuf &cat "<" &cat $cbufname ">"
~endif
setv %table &env 'VILE_TABLE_FILT'
~if &seq %table ''
~if &seq $pathlist-separator ":"
setv %table 'tbl'
~endif
~endif
setv %nroff &env 'VILE_NROFF_FILT'
~if &seq %nroff ''
~if &seq $pathlist-separator ":"
setv %nroff 'nroff'
~else
setv %nroff 'cawf'
~endif
~endif
set terse
~force kill-buffer %manpagebuf
setv %type &path end $cfilname
~if &or &seq $majormode "html" \
&seq $majormode "xml"
edit-file &cat "!lynx -force_html -with_backspaces -dump -width=" \
&cat $pagewid \
&cat " " \
&cat &pquote $cfilname \
&cat " | " %filter
~elseif &seq $majormode "perl"
~if &seq %table ''
edit-file &cat "!pod2text " \
&cat &pquote $cfilname \
&cat " | " %filter
~else
edit-file &cat "!pod2man " \
&cat &pquote $cfilname \
&cat " | " \
&cat %table \
&cat " | " \
&cat %nroff \
&cat " -man | " %filter
~endif
~elseif &or &seq $majormode "log" \
&sin $cbufname "typescript"
edit-file &cat "!" \
&cat %filter \
&cat " " \
&pquote $cfilname
~else
~if &seq %type ".ms"
setv %macros="-ms"
~elseif &seq %type ".mm"
setv %macros="-mm"
~else
setv %macros="-man"
~endif
~if &seq %table ''
edit-file &cat "!" \
&cat %nroff \
&cat " " \
&cat %macros \
&cat " " \
&cat &pquote $cfilname \
&cat " | " %filter
~else
edit-file &cat "!" \
&cat %table \
&cat " " \
&cat &pquote $cfilname \
&cat " | " \
&cat %nroff \
&cat " " \
&cat %macros \
&cat " | " %filter
~endif
~endif
~if &isa Majormode txt
setl txtmode
~endif
setl autocolor=0
~force rename-buffer %manpagebuf
~force error-buffer %manpagebuf
write-message "[Attaching bold and underline attributes...]"
goto-beginning-of-file
setl noview
attribute-cntl_a-sequences-til end-of-file
unmark-buffer
setl view
goto-beginning-of-file
unsetv $cfilname
write-message "[Done formatting manual page.]"
set noterse
~endm
bind-key ShowFormatted ^X-n
|