home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 March / PCWELT_3_2006.ISO / base / 05_common.mo / usr / share / elvis-2.2_0 / scripts / info.ex < prev    next >
Encoding:
Text File  |  2004-02-22  |  1.2 KB  |  45 lines
  1. " This file tries to implement an "info:" protocol, for viewing info pages
  2. " inside elvis.  It doesn't quite succeed, but it comes close.
  3. " 
  4. " This assumes your info pages are stored in /usr/share/info.  If they're
  5. " stored someplace else, then you'll need to edit the "local d=..." line below.
  6.  
  7. alias readINFO {
  8.   local d=/usr/share/info
  9.   local report=0
  10.   local magic magicchar=^$.[* noignorecase
  11.   local m
  12.   let m=display
  13.   display normal
  14.   if "!(/)2" == "/"
  15.   then {
  16.     eval r !!cd (d); ls *.info.gz
  17.     try {
  18.       %s/\(.*\)\.info\.gz/<a href="info:\1">\1<\/a>/
  19.       se bufdisplay=html noinitialsyntax
  20.     }
  21.     se nomod
  22.   }
  23.   else {
  24.     eval r !!gzip -d -c (d)/!2.info.gz (d)/!2.info-*.gz
  25.     try {
  26.       1,/^File: .* Node: !(Top)3,/-1 d
  27.       try %s/&/\&/g
  28.       try %s/</\</g
  29.       try %s/>/\>/g
  30.       %s/^$/<hr>/
  31.       %s/^\(File: .* Node: \)\([^:,]*\)/+2s,.*,<a name="\2">\&<\/a>,/x
  32.       g/^File: /s/\(Prev\|Next\|Up\): \([^:,]*\)/\1: <a href="#\2">\2<\/a>/g
  33.       try %s/<a href="#(dir)">/<a href="info:">/g
  34.       %s/^\* \(.*\)::/* <a href="info:!2#\1">\1<\/a>::/
  35.       1i <pre>
  36.       $a </pre>
  37.       se bufdisplay=html noinitialsyntax
  38.     }
  39.     se nomod
  40.   }
  41.   eval display (m)
  42. }
  43.  
  44. alias info sp info:!1
  45.