ie/iemenu/show-heading-list.html

<!-- Show list of heading elements 
#name Show list of headings
#context default
-->
<script language="JScript" defer="defer">
var doc = external.menuArguments.document;
var myself = replace_specials (doc.location.href);
var itext = '';
for (var i = 0; i < doc.body.all.length; i++) {
  var el = doc.body.all(i);
  var tn = el.tagName;
  if (tn == 'H1' || tn == 'H2' || tn == 'H3'
   || tn == 'H4' || tn == 'H5' || tn == 'H6') {
    var hid = '';
    if (el.id) hid = el.id
    else {
      el.id = 'x-f-heading-' + i;
      hid = el.id;
    }
    var htext = el.innerText
    htext = htext.replace(/&/g,'&amp;');
    htext = htext.replace(/</g,'&lt;');
    htext = htext.replace(/>/g,'&gt;');
    itext += '<li class="x-f-heading-' + tn + '">'
           + '<a href="' + myself + '#' + hid
           + '" target="_self">' + tn + ': '
           + htext + '</a></li>';
  }
}
// insert comments before BODY element
if (itext) {
  itext = '<ins class="x-f-heading"><ul>' + itext + '</ul></ins>';
  doc.body.all(0).outerHTML = itext + doc.body.all(0).outerHTML;
}
function replace_specials (rt) {
  rt = rt.replace(/&/g,'&amp;');
  rt = rt.replace(/</g,'&lt;');
  rt = rt.replace(/>/g,'&gt;');
  return rt;
}
</script>
<!--
Copyright 2002 wakaba E<lt>w@suika.fam.cxE<gt>.

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; see the file COPYING.  If not, write to
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.

$Date: 2002/03/30 13:47:56 $
-->
1	<!-- Show list of heading elements
2	#name Show list of headings
3	#context default
4	-->
5	<script language="JScript" defer="defer">
6	var doc = external.menuArguments.document;
7	var myself = replace_specials (doc.location.href);
8	var itext = '';
9	for (var i = 0; i < doc.body.all.length; i++) {
10	var el = doc.body.all(i);
11	var tn = el.tagName;
12	if (tn == 'H1' \|\| tn == 'H2' \|\| tn == 'H3'
13	\|\| tn == 'H4' \|\| tn == 'H5' \|\| tn == 'H6') {
14	var hid = '';
15	if (el.id) hid = el.id
16	else {
17	el.id = 'x-f-heading-' + i;
18	hid = el.id;
19	}
20	var htext = el.innerText
21	htext = htext.replace(/&/g,'&');
22	htext = htext.replace(/</g,'<');
23	htext = htext.replace(/>/g,'>');
24	itext += '<li class="x-f-heading-' + tn + '">'
25	+ '<a href="' + myself + '#' + hid
26	+ '" target="_self">' + tn + ': '
27	+ htext + '</a></li>';
28	}
29	}
30	// insert comments before BODY element
31	if (itext) {
32	itext = '<ins class="x-f-heading"><ul>' + itext + '</ul></ins>';
33	doc.body.all(0).outerHTML = itext + doc.body.all(0).outerHTML;
34	}
35	function replace_specials (rt) {
36	rt = rt.replace(/&/g,'&');
37	rt = rt.replace(/</g,'<');
38	rt = rt.replace(/>/g,'>');
39	return rt;
40	}
41	</script>
42	<!--
43	Copyright 2002 wakaba E<lt>w@suika.fam.cxE<gt>.
44
45	This program is free software; you can redistribute it and/or modify
46	it under the terms of the GNU General Public License as published by
47	the Free Software Foundation; either version 2 of the License, or
48	(at your option) any later version.
49
50	This program is distributed in the hope that it will be useful,
51	but WITHOUT ANY WARRANTY; without even the implied warranty of
52	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
53	GNU General Public License for more details.
54
55	You should have received a copy of the GNU General Public License
56	along with this program; see the file COPYING. If not, write to
57	the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
58	Boston, MA 02111-1307, USA.
59
60	$Date: 2002/03/30 13:47:56 $
61	-->