UTILITIES/mansplit.pl

   1 #!/usr/bin/perl
   2 # Work on the files that are created by makeinfo for html output
   3 # split into many small files.
   4
   5 # This will walk though the files listed on the command line, install
   6 # Sebastian Rose's key reader and add a small top-level-only table
   7 # of contents that will be placed into a special region and visible
   8 # in all subfiles.  The small contents is a constant and has to be updated
   9 # by hand, currently.
  10
  11 $contents = <<EOF;
  12 <div id="table-of-contents">
  13 <h2>Table of Contents</h2>
  14 <div id="text-table-of-contents">
  15 <ul>
  16 <li><a name="toc_Top" href="index.html#Top">Org Mode Manual</a>
  17 <li><a name="toc_Introduction" href="Introduction.html#Introduction">1 Introduction</a>
  18 <li><a name="toc_Document-Structure" href="Document-Structure.html#Document-Structure">2 Document Structure</a>
  19 <li><a name="toc_Tables" href="Tables.html#Tables">3 Tables</a>
  20 <li><a name="toc_Hyperlinks" href="Hyperlinks.html#Hyperlinks">4 Hyperlinks</a>
  21 <li><a name="toc_TODO-Items" href="TODO-Items.html#TODO-Items">5 TODO Items</a>
  22 <li><a name="toc_Tags" href="Tags.html#Tags">6 Tags</a>
  23 <li><a name="toc_Properties-and-Columns" href="Properties-and-Columns.html#Properties-and-Columns">7 Properties and Columns</a>
  24 <li><a name="toc_Dates-and-Times" href="Dates-and-Times.html#Dates-and-Times">8 Dates and Times</a>
  25 <li><a name="toc_Capture" href="Capture-_002d-Refile-_002d-Archive.html#Capture-_002d-Refile-_002d-Archive">9 Capture-Refile-Archive</a>
  26 <li><a name="toc_Agenda-Views" href="Agenda-Views.html#Agenda-Views">10 Agenda Views</a>
  27 <li><a name="toc_Markup" href="Markup.html#Markup">11 Markup</a>
  28 <li><a name="toc_Exporting" href="Exporting.html#Exporting">12 Exporting</a>
  29 <li><a name="toc_Publishing" href="Publishing.html#Publishing">13 Publishing</a>
  30 <li><a name="toc_Miscellaneous" href="Miscellaneous.html#Miscellaneous">14 Miscellaneous</a>
  31 <li><a name="toc_Hacking" href="Hacking.html#Hacking">A Hacking</a>
  32 <li><a name="toc_MobileOrg" href="MobileOrg.html#MobileOrg">B MobileOrg</a>
  33 <li><a name="toc_History-and-Acknowledgments" href="History-and-Acknowledgments.html#History-and-Acknowledgments">C History and Thanks</a>
  34 <li><a name="toc_Main-Index" href="Main-Index.html#Main-Index">Main Index</a>
  35 <li><a name="toc_Key-Index" href="Key-Index.html#Key-Index">Key Index</a>
  36 <li><a name="toc_Variable-Index" href="Variable-Index.html#Variable-Index">Variable Index</a>
  37 </li></ul>
  38 </div>
  39 </div>
  40 </div>
  41 EOF
  42
  43
  44 $script = <<'EOF';
  45 </style><link rel="stylesheet" href="http://orgmode.org/org.css" type="text/css" />
  46 <script type="text/javascript" src="http://orgmode.org/org-keys.js"></script>
  47 <script type="text/javascript">
  48   <!--/*--><![CDATA[/*><!--*/
  49    OrgKeyReader.registerHref('h', 'index.html');
  50    OrgKeyReader.registerHref('t', 'index.html');
  51   /*]]>*/-->
  52 </script>
  53 EOF
  54
  55 while ($page = shift) {
  56 system "mv $page $page.orig";
  57 open IN,"<$page.orig" or die "Cannot read from $page.orig\n";
  58 undef $/;
  59 $all = <IN>;
  60 close IN;
  61
  62 $all =~ s/<meta http-equiv="Content-Style-Type" content="text\/css">/$&\n$script/;
  63 $all =~ s/^<body>/<body onload="OrgKeyReader.init();">\n$contents/m;
  64
  65 open OUT,">$page" or die "Cannot write to $page\n";
  66 print OUT $all;
  67 close OUT;
  68 system "rm $page.orig";
  69 }