% This macro demonstrates the use of the post_filter_hook

define post_filter_hook (file)
{
   variable rsp;
   variable cmd;
   
   forever 
     {
	rsp = get_response ("NnIi",
			    "Select Filter? \001None, \001Ispell");
	
	if ((rsp == 'i') or (rsp == 'I'))
	  cmd = "ispell -x";
	else return;
	
	() = system (Sprintf ("%s '%s'", cmd, file, 2));
     }
}