#!/usr/bin/env jed-script

private variable Version = "0.1.0-0";

private define fix_file (file)
{
   () = read_file (file);
   bob ();
   % FIXME: This does not ignore <pre> sections
   while (fsearch ("<figure>"))
     {
	deln (8);
	insert ("<center>");
	ifnot (fsearch ("</figure>"))
	  continue;
	deln(9);
	insert ("</center>");
	if (bsearch ("</caption>"))
	  {
	     deln (10);
	     if (bsearch ("<caption>"))
	       {
		  deln (9);
		  insert ("<br>");
	       }
	  }
     }
   if (buffer_modified ())
     save_buffer ();
   delbuf (whatbuf());
}

define jedscript_main ()
{
   if (__argc < 2)
     {
	() = fprintf (stderr, "Version $Version Usage: ./fixhtml.sl files...\n"$);
	quit_jed ();
     }
   
   foreach (__argv[[1:]])
     {
	variable file = ();
	fix_file (file);
     }
   
   exit (0);
}