/***************************************************************************
                          tdehtmlreader.cpp  -  description
                             -------------------
    begin                : Sun Sep 9 2001
    copyright            : (C) 2001 by Frank Dekervel
    email                : Frank.Dekervel@student.kuleuven.ac.be
 ***************************************************************************/

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

#include "tdehtmlreader.h"

#include "tdehtmlreader.moc"
#include <kdebug.h>
#include <dom/dom_text.h>
#include <dom/dom2_views.h>
#include <dom/dom_doc.h>
#include <tqcolor.h>
#include <dom/dom_element.h>
#include <dom/html_table.h>
#include <tdehtmlview.h>
#include <tqwidget.h>
#include <kapplication.h>
#include <dom/html_misc.h>
#include <tqregexp.h>

KHTMLReader::KHTMLReader(KWDWriter *w)
{
	_html=new KHTMLPart();
	_writer=w;
	_it_worked=false;
}

// if a troll ever sees this, he can't kill me anyway. (and he should kill dfaure first)
void tqt_enter_modal( TQWidget *widget );
void tqt_leave_modal( TQWidget *widget );


bool KHTMLReader::filter(KURL url) 
{
	kdDebug(30503) << "KHTMLReader::filter" << endl;
	TQObject::connect(_html,TQT_SIGNAL(completed()),this,TQT_SLOT(completed()));

	_state.clear();
	_list_depth=0;

	_html->view()->resize(600,530);
	_html->setAutoloadImages(false);
	_html->setJScriptEnabled(false);
	_html->setPluginsEnabled(false);
	_html->setJavaEnabled(false);
	_html->setMetaRefreshEnabled(false);
	if (_html->openURL(url) == false) 
        {
		kdWarning(30503) << "openURL returned false" << endl;
		return false;
	}

	//FIXME use synchronous IO instead of this hack if possible.
	TQWidget dummy(0,0,WType_Dialog | WShowModal);
	tqt_enter_modal(&dummy);
	tqApp->enter_loop();
	tqt_leave_modal(&dummy);
	return _it_worked;
}

HTMLReader_state *KHTMLReader::state() 
{
	if (_state.count() == 0) 
        {
		HTMLReader_state *s=new HTMLReader_state;
		s->frameset=_writer->mainFrameset();
		s->paragraph = _writer->addParagraph(s->frameset);
		s->format=_writer->currentFormat(s->paragraph,true);
		s->layout=_writer->currentLayout(s->paragraph);
		s->in_pre_mode = false;
		_state.push(s);
	}
	return _state.top();
}

HTMLReader_state *KHTMLReader::pushNewState() 
{
        HTMLReader_state *s=new HTMLReader_state;
        s->frameset=state()->frameset;
        s->paragraph=state()->paragraph;
        s->format=state()->format;
        s->layout=state()->layout;
	s->in_pre_mode=state()->in_pre_mode;
        _writer->cleanUpParagraph(s->paragraph);
        _state.push(s);
        return s;
}


void KHTMLReader::popState() 
{
        kdDebug(30503) << "Entering popState" << endl;

	HTMLReader_state *s=_state.pop();

	/**
	   the recursion trough html is somewhat clumsy still, i'm working on a better method.
	   popState gets called when a tag is closed, but since a closed tag doesn't mean the end
	   of a (kword) "tag" we have to copy some things over from the closed tag:
	   	- the paragraph (after a </B>, we still are in the same paragraph, but
			inside the <B></B> , there might have been a <BR>)
	   if we go back into another frameset, we start a new paragraph.
	 **/
	if (s->frameset == state()->frameset)
	{
		state()->paragraph=s->paragraph;
		if ((state()->layout != s->layout)) 
                {
                  if (_writer->getText(state()->paragraph).length()!=0) startNewLayout(false,state()->layout);
		}
		state()->format=_writer->startFormat(state()->paragraph, state()->format);
	}
	delete(s);
}

void KHTMLReader::startNewLayout(bool startNewFormat) 
{
	TQDomElement layout;
	startNewLayout(startNewFormat,layout);
}

void KHTMLReader::startNewLayout(bool startNewFormat, TQDomElement layout) 
{
        kdDebug() << "entering startNewLayout" << endl;
	startNewParagraph(startNewFormat,true);
	state()->layout=_writer->setLayout(state()->paragraph,layout);
}

void KHTMLReader::completed() 
{
	kdDebug(30503) << "KHTMLReader::completed" << endl;
        tqApp->exit_loop();
	DOM::Document doc=_html->document(); // FIXME parse <HEAD> too
	DOM::NodeList list=doc.getElementsByTagName("body");
	DOM::Node docbody=list.item(0);

	if (docbody.isNull()) 
        {
		kdWarning(30503) << "no <BODY>, giving up" << endl;
		_it_worked=false;
		return;
	}


	parseNode(docbody); // start here (keyword: main)

	list = doc.getElementsByTagName("head");
	DOM::Node dochead=list.item(0);
	if (!dochead.isNull())
		parse_head(dochead);
	else
		kdWarning(30503) << "WARNING: no html <HEAD> section" << endl;

	_writer->cleanUpParagraph(state()->paragraph);
        _it_worked=_writer->writeDoc();
}


void KHTMLReader::parseNode(DOM::Node node) 
{
	kdDebug(30503) << "Entering parseNode" << endl;
        // check if this is a text node.
	DOM::Text t=node;
	if (!t.isNull()) 
        {
	   _writer->addText(state()->paragraph,t.data().string(),1,state()->in_pre_mode);
	   return; // no children anymore...
	}

	// is this really needed ? it can't do harm anyway.
	state()->format=_writer->currentFormat(state()->paragraph,true);
	state()->layout=_writer->currentLayout(state()->paragraph);
	pushNewState();

	DOM::Element e=node;

	bool go_recursive=true;

	if (!e.isNull()) 
        {
                // get the CSS information
                parseStyle(e);
	        // get the tag information
	        go_recursive=parseTag(e);
	}
	if (go_recursive) 
        {
		for (DOM::Node q=node.firstChild(); !q.isNull(); q=q.nextSibling()) 
                {
			parseNode(q);
		}
	} 
	popState();
}

void KHTMLReader::parse_head(DOM::Element e) 
{
	for (DOM::Element items=e.firstChild();!items.isNull();items=items.nextSibling()) {
		if (items.tagName().string().lower() == "title") {
			DOM::Text t=items.firstChild();
			if (!t.isNull()) {
				_writer->createDocInfo("HTML import filter",t.data().string());
			}
		}
	}
}

#define _PF(x,a,b,c) { \
	if (e.tagName().lower() == #x) \
	 	{ \
			 _writer->formatAttribute(state()->paragraph, #a,#b,#c); \
			 return true; \
		} \
	}

// the state->layout=_writer->setLayout is meant to tell popState something changed in the layout, and a new
// layout should probably be started after closing.

#define _PL(x,a,b,c) { \
		if (e.tagName().lower() == #x) \
			{ \
				state()->layout=_writer->setLayout(state()->paragraph,state()->layout);\
				if (!(_writer->getText(state()->paragraph).isEmpty())) \
					startNewParagraph(false,false); \
				_writer->layoutAttribute(state()->paragraph, #a,#b,#c); \
				return true; \
			} \
		}


bool KHTMLReader::parseTag(DOM::Element e) 
{
  kdDebug(30503) << "Entering parseTag for " << e.tagName().lower() << endl;
  if (e.tagName().lower()=="a") { return parse_a(e); }
  if (e.tagName().lower()=="p") { return parse_p(e); }
  if (e.tagName().lower()=="br") { return parse_br(e); }
  if (e.tagName().lower()=="ul") { return parse_ul(e); }
  if (e.tagName().lower()=="ol") { return parse_ol(e); }
  if (e.tagName().lower()=="hr") { return parse_hr(e); }
  if (e.tagName().lower()=="pre") { return parse_pre(e); }
  if (e.tagName().lower()=="font") { return parse_font(e); }
  if (e.tagName().lower()=="table") { return parse_table(e); }

  // FIXME we can get rid of these, make things tons more simple
  // when tdehtml finally implements getComputedStyle
  _PF(b,WEIGHT,value,75);
  _PF(strong,WEIGHT,value,75);
  _PF(u,UNDERLINE,value,1);
  _PF(i,ITALIC,value,1);

  _PL(center,FLOW,align,center);
  _PL(right,FLOW,align,right);
  _PL(left,FLOW,align,left);

  _PL(h1,NAME,value,h1);
  _PL(h2,NAME,value,h2);
  _PL(h3,NAME,value,h3);
  _PL(h4,NAME,value,h4);
  _PL(h5,NAME,value,h5);
  _PL(h6,NAME,value,h6);
  kdDebug(30503) << "Leaving parseTag" << endl;

  // Don't handle the content of comment- or script-nodes.
  if(e.nodeType() == DOM::Node::COMMENT_NODE || e.tagName().lower() == "script") 
  {
    return false;
  }

  return true;
}

void KHTMLReader::startNewParagraph(bool startnewformat, bool startnewlayout) 
{
        kdDebug() << "Entering startNewParagraph" << endl;

	TQDomElement qf=state()->format;
	TQDomElement ql=state()->layout;

	_writer->cleanUpParagraph(state()->paragraph);

        if ((startnewlayout==true) || ql.isNull())
        	{state()->paragraph=_writer->addParagraph(state()->frameset);}
        else
	        {state()->paragraph=
	        	_writer->addParagraph(state()->frameset,state()->layout);}



        if (qf.isNull() || (startnewformat==true)) 
        {
	        state()->format=_writer->startFormat(state()->paragraph/*,state()->format*/);
	}  
        else 
        {
		state()->format=_writer->startFormat(state()->paragraph,qf);
	}

	/**
	  support lists: if we are in a list, and we start a new paragraph,
	  we don't want to start a new item, but we want to retain the list state.
	  we do this by incrementing the 'environment depth' and changing the numbering type to 'no numbering'
	 **/
	TQString ct=_writer->getLayoutAttribute(state()->paragraph,"COUNTER","type");
	if ((!ct.isNull()) && (ct != "0")) 
        {
		_writer->layoutAttribute(state()->paragraph,"COUNTER","type","0");
		_writer->layoutAttribute(state()->paragraph,"COUNTER","numberingtype","0");
		_writer->layoutAttribute(state()->paragraph,"COUNTER","righttext","");
		int currdepth=(_writer->getLayoutAttribute(state()->paragraph,"COUNTER","depth")).toInt();
		_writer->layoutAttribute(state()->paragraph,"COUNTER","depth",TQString("%1").arg(currdepth+1));
	}
}

KHTMLReader::~KHTMLReader(){
	delete _html;
}






//==============================================================
//                          tag parsing
//==============================================================


bool KHTMLReader::parse_CommonAttributes(DOM::Element e) 
{
  kdDebug(30503) << "entering KHTMLReader::parse_CommonAttributes" << endl;
  kdDebug(30503) << "tagName is " << e.tagName().string() << endl;
  TQString s=e.getAttribute("align").string();
  if (!s.isEmpty()) 
  {
    _writer->formatAttribute(state()->paragraph,"FLOW","align",s);
  }
  TQRegExp rx( "h[0-9]+" );
  if ( 0 == rx.search( e.getAttribute("class").string() ) )
  // example: <p class="h1" style="text-align:left; ">
  {
    kdDebug(30503) << "laying out with " << e.getAttribute("class").string() << endl;
    _writer->layoutAttribute(state()->paragraph,"NAME","value",e.getAttribute("class").string());
  }
  if ( e.getAttribute("class").string()=="Standard" )
  {
    kdDebug(30503) << "laying out with " << e.getAttribute("class").string() << endl;
    _writer->layoutAttribute(state()->paragraph,"NAME","value",e.getAttribute("class").string());
  }  
  kdDebug(30503) << "leaving parse_CommonAttributes" << endl;
  return true;
}

bool KHTMLReader::parse_a(DOM::Element e) {
        TQString url = e.getAttribute("href").string();
        if (!url.isEmpty()) 
        {
		TQString linkName;
		DOM::Text t = e.firstChild();
		if (t.isNull()) {
			/* Link without text -> just drop it*/
			return false; /* stop parsing recursively */
		}
		linkName = t.data().string().simplifyWhiteSpace();
		t.setData(DOM::DOMString("#")); // replace with '#'
		_writer->createLink(state()->paragraph, linkName, url);
        }
	return true; /* stop parsing recursively */
}

bool KHTMLReader::parse_p(DOM::Element e) 
{
        // For every starting paragraph, a line break has to be inserted.
        // exception: the first paragraph, e.g. if the <body> starts with a <p>.
        kdDebug() << "entering parse_p" << endl;
        if (!(_writer->getText(state()->paragraph).isEmpty())) 
          startNewParagraph(false,false); 
	parse_CommonAttributes(e);
        kdDebug() << "leaving parse_p" << endl;
	return true;
}

bool KHTMLReader::parse_hr(DOM::Element /*e*/) 
{
	startNewParagraph();
	_writer->createHR(state()->paragraph);
	startNewParagraph();
	return true;
}

bool KHTMLReader::parse_br(DOM::Element /*e*/) 
{
	startNewParagraph(false,false); //keep the current format and layout
	return false; // a BR tag has no childs.
}

static const TQColor parsecolor(const TQString& colorstring) 
{
      TQColor color;
      if (colorstring[0]=='#') 
      {
            color.setRgb(
            colorstring.mid(1,2).toInt(0,16),
            colorstring.mid(3,2).toInt(0,16),
            colorstring.mid(5,2).toInt(0,16)
            );
      } 
      else 
      {
            TQString colorlower=colorstring.lower();
            // Grays
            if (colorlower=="black")
                  color.setRgb(0,0,0);
            else if (colorlower=="white")
                  color.setRgb(255,255,255);
            else if (colorlower=="silver")
                  color.setRgb(0xc0,0xc0,0xc0);
            else if (colorlower=="gray")
                  color.setRgb(128,128,128);
            // "full" colors
            else if (colorlower=="red")
                  color.setRgb(255,0,0);
            else if (colorlower=="lime")
                  color.setRgb(0,255,0);
            else if (colorlower=="blue")
                  color.setRgb(0,0,255);
            else if (colorlower=="yellow")
                  color.setRgb(255,255,0);
            else if (colorlower=="fuchsia")
                  color.setRgb(255,0,255);
            else if (colorlower=="aqua")
                  color.setRgb(0,255,255);
            // "half" colors
            else if (colorlower=="maroon")
                  color.setRgb(128,0,0);
            else if (colorlower=="green")
                  color.setRgb(0,128,0);
            else if (colorlower=="navy")
                  color.setRgb(0,0,128);
            else if (colorlower=="olive")
                  color.setRgb(128,128,0);
            else if (colorlower=="purple")
                  color.setRgb(128,0,128);
            else if (colorlower=="teal")
                  color.setRgb(0,128,128);
            else 
            {
                  // H'm, we have still not found the color!
                  // Let us see if QT can do better!
                  color.setNamedColor(colorstring);
            }
      }
      return colorstring;
}

void KHTMLReader::parseStyle(DOM::Element e) 
{
  // styles are broken broken broken broken broken broken.
  //FIXME: wait until getComputedStyle is more than
  // 'return 0' in tdehtml
  kdDebug(30503) << "entering parseStyle" << endl;
  DOM::CSSStyleDeclaration s1=e.style();
  DOM::Document doc=_html->document();
  DOM::CSSStyleDeclaration s2=doc.defaultView().getComputedStyle(e,"");
  kdDebug(30503) << "font-weight=" << s1.getPropertyValue("font-weight").string() << endl;
  if ( s1.getPropertyValue("font-weight").string() == "bolder" )
  {
    _writer->formatAttribute(state()->paragraph,"WEIGHT","value","75");
  }
  if ( s1.getPropertyValue("font-weight").string() == "bold" )
  {
    _writer->formatAttribute(state()->paragraph,"WEIGHT","value","75");
  }
     
  // process e.g. <style="color: #ffffff">
    if ( s1.getPropertyValue("color").string() != TQString() )
    {
      TQColor c=parsecolor(s1.getPropertyValue("color").string());
      _writer->formatAttribute(state()->paragraph,"COLOR","red",TQString::number(c.red()));
      _writer->formatAttribute(state()->paragraph,"COLOR","green",TQString::number(c.green()));
      _writer->formatAttribute(state()->paragraph,"COLOR","blue",TQString::number(c.blue()));
    }
  // done
  // process e.g. <style="font-size: 42">
    if ( s1.getPropertyValue("font-size").string() != TQString() )
    {
      TQString size=s1.getPropertyValue("font-size").string();
      if (size.endsWith("pt"))
      {
        size=size.left(size.length()-2);
      }
      _writer->formatAttribute(state()->paragraph,"SIZE","value",size);
    }
  // done
  // process e.g. <style="text-align: center">this is in the center</style>
    if ( s1.getPropertyValue("text-align").string() != TQString() && s1.getPropertyValue("text-align").string() != TQString("left") )
    {
      state()->layout=_writer->setLayout(state()->paragraph,state()->layout);
      _writer->layoutAttribute(state()->paragraph, "FLOW","align",s1.getPropertyValue("text-align").string());
    }
  // done

     /*if (DOM::PROPV("font-weight") == "bolder")
	_writer->formatAttribute(state()->paragraph,"WEIGHT","value","75");
     */
/*
     // debugging code.
     kdDebug(30503) << "e.style()" << endl;
     for (unsigned int i=0;i<s1.length();i++) {
        kdDebug(30503) << TQString("%1: %2").arg(s1.item(i).string()).arg(s1.getPropertyValue(s1.item(i)).string()) << endl;
     }
     kdDebug(30503) << "override style" << endl;
     for (unsigned int i=0;i<s2.length();i++) {
        kdDebug(30503) << TQString("%1: %2").arg(s2.item(i).string()).arg(s2.getPropertyValue(s2.item(i)).string()) << endl;
     }
*/
}

bool KHTMLReader::parse_table(DOM::Element e) 
{
	if(_writer->isInTable()) {
		// We are already inside of a table. Tables in tables are not supported
		// yet. So, just add that table-content as text.
		for (DOM::Node rows=e.firstChild().firstChild();!rows.isNull();rows=rows.nextSibling())
			if (!rows.isNull() && rows.nodeName().string().lower() == "tr")
				for (DOM::Node cols=rows.firstChild();!cols.isNull();cols=cols.nextSibling())
					if (!cols.isNull())
						parseNode(cols);
		return false;
	}

 	DOM::Element table_body=e.firstChild();
	if(table_body.isNull()) {
 		// If the table_body is empty, we don't continue cause else
 		// KHTML will throw a DOM::DOMException if we try to access
 		// the null element.
 		return true;
	}

	int tableno=_writer->createTable();
 	int nrow=0;
 	int ncol=0;
 	bool has_borders=false;
	TQColor bgcolor=parsecolor("#FFFFFF");

 	if (!table_body.getAttribute("bgcolor").string().isEmpty())
 	       bgcolor=parsecolor(table_body.getAttribute("bgcolor").string());
 	if ((e.getAttribute("border").string().toInt() > 0))
 		has_borders=true;

 	// fixme rewrite this proper
 	//(maybe using computed sizes from tdehtml if thats once exported)
 	for (DOM::Node rowsnode=table_body.firstChild();!rowsnode.isNull();rowsnode=rowsnode.nextSibling()) {
 	DOM::Element rows = rowsnode;
 	if (!rows.isNull() && rows.tagName().string().lower() == "tr") {
 	    TQColor obgcolor=bgcolor;
 	    if (!rows.getAttribute("bgcolor").string().isEmpty())
 	       	bgcolor=parsecolor(rows.getAttribute("bgcolor").string());

 		ncol=0;
 		for (DOM::Node colsnode=rows.firstChild();!colsnode.isNull();colsnode=colsnode.nextSibling()) {
 		        DOM::Element cols = colsnode;
                        const TQString nodename = cols.isNull() ? TQString() : cols.nodeName().string().lower();
 		        if (nodename == "td" || nodename == "th") {
 		             TQColor bbgcolor=bgcolor;
		 	    if (!cols.getAttribute("bgcolor").string().isEmpty())
 	       			bgcolor=parsecolor(cols.getAttribute("bgcolor").string());

			    	pushNewState();
	 	    	    	TQRect colrect=cols.getRect();
	 	    	    	state()->frameset=_writer->createTableCell(tableno,nrow,ncol,1,colrect);
	 	    	     	state()->frameset.firstChild().toElement().setAttribute("bkRed",bgcolor.red());
	 	    	     	state()->frameset.firstChild().toElement().setAttribute("bkGreen",bgcolor.green());
	 	    	     	state()->frameset.firstChild().toElement().setAttribute("bkBlue",bgcolor.blue());
	 	    	     	if (has_borders) {
	 	    	     	    state()->frameset.firstChild().toElement().setAttribute("lWidth",1);
	 	    	     	    state()->frameset.firstChild().toElement().setAttribute("rWidth",1);
	 	    	     	    state()->frameset.firstChild().toElement().setAttribute("bWidth",1);
	 	    	     	    state()->frameset.firstChild().toElement().setAttribute("tWidth",1);
	 	    	     	}

				// fixme don't guess. get it right.
	 	    	    	state()->paragraph=_writer->addParagraph(state()->frameset);
	 	    	    	parseNode(cols);
				_writer->cleanUpParagraph(state()->paragraph);
 			    	popState();
 				ncol++;
 				bgcolor=bbgcolor;
 			}
 		}
 		nrow++;
 	  	bgcolor=obgcolor;
          }
 	}
   	_writer->finishTable(tableno/*,0,0,r.right()-r.left(),r.bottom()-r.top()*/); // FIXME find something better.
 	startNewParagraph(false,false);
 	_writer->createInline(state()->paragraph,_writer->fetchTableCell(tableno,0,0));
	startNewParagraph(false,false);
	return false; // we do our own recursion
}

bool KHTMLReader::parse_img(DOM::Element /*e*/) 
{
     	//TQRect e=e.getRect();
    return true;
}

bool KHTMLReader::parse_pre(DOM::Element e) 
{
#if 0 // see Bug #74601 (normal): kword doesn't recognize PRE-tags in HTML
	//pushNewState();
	/// \todo set fixed width font
	DOM::HTMLElement htmlelement(e);
	if(! htmlelement.isNull())
		_writer->addText(state()->paragraph,htmlelement.innerHTML().string(),1);
	startNewParagraph();
	//popState();
	return false; // children are already handled.
#else
	pushNewState();
	state()->in_pre_mode=true;
        TQString face=e.getAttribute("face").string();
        _writer->formatAttribute(state()->paragraph,"FONT","name",TQString("Courier"));
	for (DOM::Node q=e.firstChild(); !q.isNull(); q=q.nextSibling()) 
        {
		parseNode(q); // parse everything...
	}
	popState();
        _writer->formatAttribute(state()->paragraph,"FONT","name",face);
	return false; // children are already handled.
#endif
}

bool KHTMLReader::parse_ol(DOM::Element e) 
{
  return parse_ul(e);
}

bool KHTMLReader::parse_font(DOM::Element e) 
{
  kdDebug(30503) << "Entering parse_font" << endl;
  // fixme don't hardcode 12 font size ...
  TQString face=e.getAttribute("face").string();
  TQColor color=parsecolor("#000000");
  if (!e.getAttribute("color").string().isEmpty())
    color=parsecolor(e.getAttribute("color").string());
  TQString size=e.getAttribute("size").string();
  int isize=-1;
  if (size.startsWith("+"))
    isize=12+size.right(size.length()-1).toInt();
  else if (size.startsWith("-"))
    isize=12-size.right(size.length()-1).toInt();
  else
    isize=12+size.toInt();

  _writer->formatAttribute(state()->paragraph,"FONT","name",face);
  if ((isize>=0) && (isize != 12))
    _writer->formatAttribute(state()->paragraph,"SIZE","value",TQString("%1").arg(isize));

  _writer->formatAttribute(state()->paragraph,"COLOR","red",TQString("%1").arg(color.red()));
  _writer->formatAttribute(state()->paragraph,"COLOR","green",TQString("%1").arg(color.green()));
  _writer->formatAttribute(state()->paragraph,"COLOR","blue",TQString("%1").arg(color.blue()));
  return true;
}

bool KHTMLReader::parse_ul(DOM::Element e) 
{
// Parse the tag ul and all its subnodes. Take special care for the li tag.
  kdDebug(30503) << "Entering KHTMLReader::parse_ul" << endl;
  kdDebug(30503) << "_writer->getText(state()->paragraph)=" << _writer->getText(state()->paragraph) << endl;
  _list_depth++;
  if (e.firstChild().nodeName().string().lower() == "#text")  // e.g. <ul>this is indented<li>first listitem</li></ul>
  {
    _writer->layoutAttribute(state()->paragraph,"COUNTER","depth",TQString("%1").arg(_list_depth-1)); // indent
    startNewLayout();
  }
  for (DOM::Node items=e.firstChild();!items.isNull();items=items.nextSibling()) 
  {
    if (items.nodeName().string().lower() == "li") 
    {
      if (!(_writer->getText(state()->paragraph).isEmpty())) startNewLayout();
      _writer->layoutAttribute(state()->paragraph,"COUNTER","numberingtype","1");
      _writer->layoutAttribute(state()->paragraph,"COUNTER","righttext",".");
      if (e.tagName().string().lower() == "ol")
      {
	_writer->layoutAttribute(state()->paragraph,"COUNTER","type","1");
	_writer->layoutAttribute(state()->paragraph,"COUNTER","numberingtype","1");
        _writer->layoutAttribute(state()->paragraph,"COUNTER","righttext",".");
      }
      else
      {
	_writer->layoutAttribute(state()->paragraph,"COUNTER","type","10");
	_writer->layoutAttribute(state()->paragraph,"COUNTER","numberingtype","");
        _writer->layoutAttribute(state()->paragraph,"COUNTER","righttext","");
      }
      _writer->layoutAttribute(state()->paragraph,"COUNTER","depth",TQString("%1").arg(_list_depth-1)); // indent
    }
    parseNode(items);
  }
  _list_depth--;
  kdDebug(30503) << "Leaving KHTMLReader::parse_ul" << endl;
  return false;
}