mdocml: Add a "list" top-level tag, too.

mdocml: Add a "list" top-level tag, too.

[kristaps]

Log Message:
-----------
Add a "list" top-level tag, too.

Modified Files:
--------------
    mdocml:
        example.style.css
        mdoc_html.c

Revision Data
-------------
Index: mdoc_html.c
===================================================================
RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/mdoc_html.c,v
retrieving revision 1.127
retrieving revision 1.128
diff -Lmdoc_html.c -Lmdoc_html.c -u -p -r1.127 -r1.128
--- mdoc_html.c
+++ mdoc_html.c
@@ -945,7 +945,10 @@ mdoc_bl_pre(MDOC_ARGS)
 	PAIR_STYLE_INIT(&tag[0], h);
 
 	assert(lists[n->data.Bl->type]);
-	PAIR_CLASS_INIT(&tag[1], lists[n->data.Bl->type]);
+	bufinit(h);
+	bufcat(h, "list ");
+	bufcat(h, lists[n->data.Bl->type]);
+	PAIR_INIT(&tag[1], ATTR_CLASS, h->buf);
 	i = 2;
 
 	/* Set the block's left-hand margin. */
Index: example.style.css
===================================================================
RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/example.style.css,v
retrieving revision 1.32
retrieving revision 1.33
diff -Lexample.style.css -Lexample.style.css -u -p -r1.32 -r1.33
--- example.style.css
+++ example.style.css
@@ -40,7 +40,8 @@ table		{ margin-top: 0px; margin-bottom:
 
 /* Block modes. */
 
-.display	{ }
+.display	{ } /* Top of all Bd, D1, Dl. */
+.list		{ } /* Top of all Bl. */
 
 /* Context-specific modes. */
 
--
 To unsubscribe send an email to source+unsubscribe@mdocml.bsd.lv