]> git.cameronkatri.com Git - mandoc.git/blobdiff - mdoc_html.c
Remove the ENDBODY_NOSPACE flag, simplifying the code.
[mandoc.git] / mdoc_html.c
index fe9c81803d7b6b23acbb9cdec2d1d79c1341a06a..e82451416699425b16bfea203616da094d66f9aa 100644 (file)
@@ -1,4 +1,4 @@
-/*     $Id: mdoc_html.c,v 1.254 2017/01/19 15:48:39 schwarze Exp $ */
+/*     $Id: mdoc_html.c,v 1.271 2017/02/16 03:00:23 schwarze Exp $ */
 /*
  * Copyright (c) 2008-2011, 2014 Kristaps Dzonsons <kristaps@bsd.lv>
  * Copyright (c) 2014, 2015, 2016, 2017 Ingo Schwarze <schwarze@openbsd.org>
@@ -70,6 +70,7 @@ static        void              mdoc_bk_post(MDOC_ARGS);
 static int               mdoc_bk_pre(MDOC_ARGS);
 static int               mdoc_bl_pre(MDOC_ARGS);
 static int               mdoc_cd_pre(MDOC_ARGS);
+static int               mdoc_cm_pre(MDOC_ARGS);
 static int               mdoc_d1_pre(MDOC_ARGS);
 static int               mdoc_dv_pre(MDOC_ARGS);
 static int               mdoc_fa_pre(MDOC_ARGS);
@@ -109,6 +110,7 @@ static      int               mdoc_skip_pre(MDOC_ARGS);
 static int               mdoc_sm_pre(MDOC_ARGS);
 static int               mdoc_sp_pre(MDOC_ARGS);
 static int               mdoc_ss_pre(MDOC_ARGS);
+static int               mdoc_st_pre(MDOC_ARGS);
 static int               mdoc_sx_pre(MDOC_ARGS);
 static int               mdoc_sy_pre(MDOC_ARGS);
 static int               mdoc_va_pre(MDOC_ARGS);
@@ -135,7 +137,7 @@ static      const struct htmlmdoc mdocs[MDOC_MAX] = {
        {mdoc_an_pre, NULL}, /* An */
        {mdoc_ar_pre, NULL}, /* Ar */
        {mdoc_cd_pre, NULL}, /* Cd */
-       {mdoc_fl_pre, NULL}, /* Cm */
+       {mdoc_cm_pre, NULL}, /* Cm */
        {mdoc_dv_pre, NULL}, /* Dv */
        {mdoc_er_pre, NULL}, /* Er */
        {mdoc_ev_pre, NULL}, /* Ev */
@@ -154,7 +156,7 @@ static      const struct htmlmdoc mdocs[MDOC_MAX] = {
        {mdoc_ft_pre, NULL}, /* Ot */
        {mdoc_pa_pre, NULL}, /* Pa */
        {mdoc_ex_pre, NULL}, /* Rv */
-       {NULL, NULL}, /* St */
+       {mdoc_st_pre, NULL}, /* St */
        {mdoc_va_pre, NULL}, /* Va */
        {mdoc_vt_pre, NULL}, /* Vt */
        {mdoc_xr_pre, NULL}, /* Xr */
@@ -172,7 +174,7 @@ static      const struct htmlmdoc mdocs[MDOC_MAX] = {
        {NULL, NULL}, /* Ac */
        {mdoc_quote_pre, mdoc_quote_post}, /* Ao */
        {mdoc_quote_pre, mdoc_quote_post}, /* Aq */
-       {NULL, NULL}, /* At */
+       {mdoc_xx_pre, NULL}, /* At */
        {NULL, NULL}, /* Bc */
        {mdoc_bf_pre, NULL}, /* Bf */
        {mdoc_quote_pre, mdoc_quote_post}, /* Bo */
@@ -242,21 +244,6 @@ static     const struct htmlmdoc mdocs[MDOC_MAX] = {
        {mdoc_skip_pre, NULL}, /* ll */
 };
 
-static const char * const lists[LIST_MAX] = {
-       NULL,
-       "list-bul",
-       "list-col",
-       "list-dash",
-       "list-diag",
-       "list-enum",
-       "list-hang",
-       "list-hyph",
-       "list-inset",
-       "list-item",
-       "list-ohang",
-       "list-tag"
-};
-
 
 /*
  * See the same function in mdoc_term.c for documentation.
@@ -363,7 +350,7 @@ print_mdoc_node(MDOC_ARGS)
                return;
 
        child = 1;
-       t = h->tags.head;
+       t = h->tag;
        n->flags &= ~NODE_ENDED;
 
        switch (n->type) {
@@ -403,7 +390,7 @@ print_mdoc_node(MDOC_ARGS)
                 */
                if (h->tblt != NULL) {
                        print_tblclose(h);
-                       t = h->tags.head;
+                       t = h->tag;
                }
                assert(h->tblt == NULL);
                if (mdocs[n->tok].pre && (n->end == ENDBODY_NOT || n->child))
@@ -430,8 +417,6 @@ print_mdoc_node(MDOC_ARGS)
                (*mdocs[n->tok].post)(meta, n, h);
                if (n->end != ENDBODY_NOT)
                        n->body->flags |= NODE_ENDED;
-               if (n->end == ENDBODY_NOSPACE)
-                       h->flags |= HTML_NOSPACE;
                break;
        }
 }
@@ -442,7 +427,6 @@ mdoc_root_post(MDOC_ARGS)
        struct tag      *t, *tt;
 
        t = print_otag(h, TAG_TABLE, "c", "foot");
-       print_otag(h, TAG_TBODY, "");
        tt = print_otag(h, TAG_TR, "");
 
        print_otag(h, TAG_TD, "c", "foot-date");
@@ -473,7 +457,6 @@ mdoc_root_pre(MDOC_ARGS)
                    meta->title, meta->msec);
 
        t = print_otag(h, TAG_TABLE, "c", "head");
-       print_otag(h, TAG_TBODY, "");
        tt = print_otag(h, TAG_TR, "");
 
        print_otag(h, TAG_TD, "c", "head-ltitle");
@@ -521,22 +504,18 @@ mdoc_sh_pre(MDOC_ARGS)
        char    *id;
 
        switch (n->type) {
-       case ROFFT_BLOCK:
-               return 1;
+       case ROFFT_HEAD:
+               id = make_id(n);
+               print_otag(h, TAG_H1, "ci", "Sh", id);
+               free(id);
+               break;
        case ROFFT_BODY:
                if (n->sec == SEC_AUTHORS)
                        h->flags &= ~(HTML_SPLIT|HTML_NOSPLIT);
-               return 1;
+               break;
        default:
                break;
        }
-
-       if ((id = make_id(n)) != NULL) {
-               print_otag(h, TAG_H1, "ci", "Sh", id);
-               free(id);
-       } else
-               print_otag(h, TAG_H1, "c", "Sh");
-
        return 1;
 }
 
@@ -548,25 +527,16 @@ mdoc_ss_pre(MDOC_ARGS)
        if (n->type != ROFFT_HEAD)
                return 1;
 
-       if ((id = make_id(n)) != NULL) {
-               print_otag(h, TAG_H2, "ci", "Ss", id);
-               free(id);
-       } else
-               print_otag(h, TAG_H2, "c", "Ss");
-
+       id = make_id(n);
+       print_otag(h, TAG_H2, "ci", "Ss", id);
+       free(id);
        return 1;
 }
 
 static int
 mdoc_fl_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_B, "c", "flag");
-
-       /* `Cm' has no leading hyphen. */
-
-       if (MDOC_Cm == n->tok)
-               return 1;
-
+       print_otag(h, TAG_B, "c", "Fl");
        print_text(h, "\\-");
 
        if (!(n->child == NULL &&
@@ -578,6 +548,13 @@ mdoc_fl_pre(MDOC_ARGS)
        return 1;
 }
 
+static int
+mdoc_cm_pre(MDOC_ARGS)
+{
+       print_otag(h, TAG_B, "c", "Cm");
+       return 1;
+}
+
 static int
 mdoc_nd_pre(MDOC_ARGS)
 {
@@ -587,13 +564,14 @@ mdoc_nd_pre(MDOC_ARGS)
        /* XXX: this tag in theory can contain block elements. */
 
        print_text(h, "\\(em");
-       print_otag(h, TAG_SPAN, "c", "desc");
+       print_otag(h, TAG_SPAN, "c", "Nd");
        return 1;
 }
 
 static int
 mdoc_nm_pre(MDOC_ARGS)
 {
+       struct tag      *t;
        int              len;
 
        switch (n->type) {
@@ -601,9 +579,7 @@ mdoc_nm_pre(MDOC_ARGS)
                print_otag(h, TAG_TD, "");
                /* FALLTHROUGH */
        case ROFFT_ELEM:
-               print_otag(h, TAG_B, "c", "name");
-               if (n->child == NULL && meta->name != NULL)
-                       print_text(h, meta->name);
+               print_otag(h, TAG_B, "c", "Nm");
                return 1;
        case ROFFT_BODY:
                print_otag(h, TAG_TD, "");
@@ -613,7 +589,7 @@ mdoc_nm_pre(MDOC_ARGS)
        }
 
        synopsis_pre(h, n);
-       print_otag(h, TAG_TABLE, "c", "synopsis");
+       print_otag(h, TAG_TABLE, "c", "Nm");
 
        for (len = 0, n = n->head->child; n; n = n->next)
                if (n->type == ROFFT_TEXT)
@@ -622,9 +598,10 @@ mdoc_nm_pre(MDOC_ARGS)
        if (len == 0 && meta->name != NULL)
                len = html_strlen(meta->name);
 
+       t = print_otag(h, TAG_COLGROUP, "");
        print_otag(h, TAG_COL, "shw", len);
        print_otag(h, TAG_COL, "");
-       print_otag(h, TAG_TBODY, "");
+       print_tagq(h, t);
        print_otag(h, TAG_TR, "");
        return 1;
 }
@@ -669,89 +646,150 @@ mdoc_ns_pre(MDOC_ARGS)
 static int
 mdoc_ar_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_I, "c", "arg");
+       print_otag(h, TAG_VAR, "c", "Ar");
        return 1;
 }
 
 static int
 mdoc_xx_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_SPAN, "c", "unix");
+       print_otag(h, TAG_SPAN, "c", "Ux");
        return 1;
 }
 
 static int
 mdoc_it_pre(MDOC_ARGS)
 {
-       enum mdoc_list   type;
-       const struct roff_node *bl;
+       const struct roff_node  *bl;
+       struct tag              *t;
+       const char              *cattr;
+       enum mdoc_list           type;
 
        bl = n->parent;
-       while (bl && MDOC_Bl != bl->tok)
+       while (bl != NULL && bl->tok != MDOC_Bl)
                bl = bl->parent;
        type = bl->norm->Bl.type;
 
-       if (n->type == ROFFT_HEAD) {
-               switch (type) {
-               case LIST_bullet:
-               case LIST_dash:
-               case LIST_item:
-               case LIST_hyphen:
-               case LIST_enum:
+       switch (type) {
+       case LIST_bullet:
+               cattr = "It-bullet";
+               break;
+       case LIST_dash:
+       case LIST_hyphen:
+               cattr = "It-dash";
+               break;
+       case LIST_item:
+               cattr = "It-item";
+               break;
+       case LIST_enum:
+               cattr = "It-enum";
+               break;
+       case LIST_diag:
+               cattr = "It-diag";
+               break;
+       case LIST_hang:
+               cattr = "It-hang";
+               break;
+       case LIST_inset:
+               cattr = "It-inset";
+               break;
+       case LIST_ohang:
+               cattr = "It-ohang";
+               break;
+       case LIST_tag:
+               cattr = "It-tag";
+               break;
+       case LIST_column:
+               cattr = "It-column";
+               break;
+       default:
+               break;
+       }
+
+       switch (type) {
+       case LIST_bullet:
+       case LIST_dash:
+       case LIST_hyphen:
+       case LIST_item:
+       case LIST_enum:
+               switch (n->type) {
+               case ROFFT_HEAD:
                        return 0;
-               case LIST_diag:
-               case LIST_hang:
-               case LIST_inset:
-               case LIST_ohang:
-               case LIST_tag:
-                       print_otag(h, TAG_DT, "csvt", lists[type],
-                           !bl->norm->Bl.comp);
-                       if (LIST_diag != type)
-                               break;
-                       print_otag(h, TAG_B, "c", "diag");
-                       break;
-               case LIST_column:
+               case ROFFT_BODY:
+                       if (bl->norm->Bl.comp)
+                               print_otag(h, TAG_LI, "csvt", cattr, 0);
+                       else
+                               print_otag(h, TAG_LI, "c", cattr);
                        break;
                default:
                        break;
                }
-       } else if (n->type == ROFFT_BODY) {
-               switch (type) {
-               case LIST_bullet:
-               case LIST_hyphen:
-               case LIST_dash:
-               case LIST_enum:
-               case LIST_item:
-                       print_otag(h, TAG_LI, "csvt", lists[type],
-                           !bl->norm->Bl.comp);
+               break;
+       case LIST_diag:
+       case LIST_hang:
+       case LIST_inset:
+       case LIST_ohang:
+               switch (n->type) {
+               case ROFFT_HEAD:
+                       if (bl->norm->Bl.comp)
+                               print_otag(h, TAG_DT, "csvt", cattr, 0);
+                       else
+                               print_otag(h, TAG_DT, "c", cattr);
+                       if (type == LIST_diag)
+                               print_otag(h, TAG_B, "c", cattr);
                        break;
-               case LIST_diag:
-               case LIST_hang:
-               case LIST_inset:
-               case LIST_ohang:
-               case LIST_tag:
-                       if (NULL == bl->norm->Bl.width) {
-                               print_otag(h, TAG_DD, "c", lists[type]);
-                               break;
+               case ROFFT_BODY:
+                       print_otag(h, TAG_DD, "cswl", cattr,
+                           bl->norm->Bl.width);
+                       break;
+               default:
+                       break;
+               }
+               break;
+       case LIST_tag:
+               switch (n->type) {
+               case ROFFT_HEAD:
+                       if (h->style != NULL && !bl->norm->Bl.comp &&
+                           (n->parent->prev == NULL ||
+                            n->parent->prev->body->child != NULL)) {
+                               t = print_otag(h, TAG_DT, "csWl",
+                                   cattr, bl->norm->Bl.width);
+                               print_text(h, "\\ ");
+                               print_tagq(h, t);
+                               t = print_otag(h, TAG_DD, "c", cattr);
+                               print_text(h, "\\ ");
+                               print_tagq(h, t);
                        }
-                       print_otag(h, TAG_DD, "cswl", lists[type],
+                       print_otag(h, TAG_DT, "csWl", cattr,
                            bl->norm->Bl.width);
                        break;
-               case LIST_column:
-                       print_otag(h, TAG_TD, "csvt", lists[type],
-                           !bl->norm->Bl.comp);
+               case ROFFT_BODY:
+                       if (n->child == NULL) {
+                               print_otag(h, TAG_DD, "css?", cattr,
+                                   "width", "auto");
+                               print_text(h, "\\ ");
+                       } else
+                               print_otag(h, TAG_DD, "c", cattr);
                        break;
                default:
                        break;
                }
-       } else {
-               switch (type) {
-               case LIST_column:
-                       print_otag(h, TAG_TR, "c", lists[type]);
+               break;
+       case LIST_column:
+               switch (n->type) {
+               case ROFFT_HEAD:
                        break;
-               default:
+               case ROFFT_BODY:
+                       if (bl->norm->Bl.comp)
+                               print_otag(h, TAG_TD, "csvt", cattr, 0);
+                       else
+                               print_otag(h, TAG_TD, "c", cattr);
                        break;
+               default:
+                       print_otag(h, TAG_TR, "c", cattr);
                }
+       default:
+               break;
        }
 
        return 1;
@@ -760,18 +798,20 @@ mdoc_it_pre(MDOC_ARGS)
 static int
 mdoc_bl_pre(MDOC_ARGS)
 {
-       int              i;
-       char             buf[BUFSIZ];
+       struct tag      *t;
+       struct mdoc_bl  *bl;
+       const char      *cattr;
+       size_t           i;
        enum htmltag     elemtype;
 
-       if (n->type == ROFFT_BODY) {
-               if (LIST_column == n->norm->Bl.type)
-                       print_otag(h, TAG_TBODY, "");
+       bl = &n->norm->Bl;
+
+       switch (n->type) {
+       case ROFFT_BODY:
                return 1;
-       }
 
-       if (n->type == ROFFT_HEAD) {
-               if (LIST_column != n->norm->Bl.type)
+       case ROFFT_HEAD:
+               if (bl->type != LIST_column || bl->ncols == 0)
                        return 0;
 
                /*
@@ -781,47 +821,65 @@ mdoc_bl_pre(MDOC_ARGS)
                 * screen and we want to preserve that behaviour.
                 */
 
-               for (i = 0; i < (int)n->norm->Bl.ncols - 1; i++)
-                       print_otag(h, TAG_COL, "sww", n->norm->Bl.cols[i]);
-               print_otag(h, TAG_COL, "swW", n->norm->Bl.cols[i]);
-
+               t = print_otag(h, TAG_COLGROUP, "");
+               for (i = 0; i < bl->ncols - 1; i++)
+                       print_otag(h, TAG_COL, "sww", bl->cols[i]);
+               print_otag(h, TAG_COL, "swW", bl->cols[i]);
+               print_tagq(h, t);
                return 0;
-       }
 
-       assert(lists[n->norm->Bl.type]);
-       (void)strlcpy(buf, "list ", BUFSIZ);
-       (void)strlcat(buf, lists[n->norm->Bl.type], BUFSIZ);
+       default:
+               break;
+       }
 
-       switch (n->norm->Bl.type) {
+       switch (bl->type) {
        case LIST_bullet:
+               elemtype = TAG_UL;
+               cattr = "Bl-bullet";
+               break;
        case LIST_dash:
        case LIST_hyphen:
+               elemtype = TAG_UL;
+               cattr = "Bl-dash";
+               break;
        case LIST_item:
                elemtype = TAG_UL;
+               cattr = "Bl-item";
                break;
        case LIST_enum:
                elemtype = TAG_OL;
+               cattr = "Bl-enum";
                break;
        case LIST_diag:
+               elemtype = TAG_DL;
+               cattr = "Bl-diag";
+               break;
        case LIST_hang:
+               elemtype = TAG_DL;
+               cattr = "Bl-hang";
+               break;
        case LIST_inset:
+               elemtype = TAG_DL;
+               cattr = "Bl-inset";
+               break;
        case LIST_ohang:
-       case LIST_tag:
                elemtype = TAG_DL;
+               cattr = "Bl-ohang";
                break;
+       case LIST_tag:
+               cattr = "Bl-tag";
+               if (bl->offs)
+                       print_otag(h, TAG_DIV, "cswl", cattr, bl->offs);
+               print_otag(h, TAG_DL, "cswl", cattr, bl->width);
+               return 1;
        case LIST_column:
                elemtype = TAG_TABLE;
+               cattr = "Bl-column";
                break;
        default:
                abort();
        }
-
-       if (n->norm->Bl.offs)
-               print_otag(h, elemtype, "csvtvbwl", buf, 0, 0,
-                   n->norm->Bl.offs);
-       else
-               print_otag(h, elemtype, "csvtvb", buf, 0, 0);
-
+       print_otag(h, elemtype, "cswl", cattr, bl->offs);
        return 1;
 }
 
@@ -833,10 +891,17 @@ mdoc_ex_pre(MDOC_ARGS)
        return 1;
 }
 
+static int
+mdoc_st_pre(MDOC_ARGS)
+{
+       print_otag(h, TAG_SPAN, "c", "St");
+       return 1;
+}
+
 static int
 mdoc_em_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_SPAN, "c", "emph");
+       print_otag(h, TAG_I, "c", "Em");
        return 1;
 }
 
@@ -846,14 +911,10 @@ mdoc_d1_pre(MDOC_ARGS)
        if (n->type != ROFFT_BLOCK)
                return 1;
 
-       print_otag(h, TAG_BLOCKQUOTE, "svtvb", 0, 0);
-
-       /* BLOCKQUOTE needs a block body. */
+       print_otag(h, TAG_DIV, "c", "D1");
 
-       print_otag(h, TAG_DIV, "c", "display");
-
-       if (MDOC_Dl == n->tok)
-               print_otag(h, TAG_CODE, "c", "lit");
+       if (n->tok == MDOC_Dl)
+               print_otag(h, TAG_CODE, "c", "Li");
 
        return 1;
 }
@@ -863,12 +924,9 @@ mdoc_sx_pre(MDOC_ARGS)
 {
        char    *id;
 
-       if ((id = make_id(n)) != NULL) {
-               print_otag(h, TAG_A, "chR", "Sx", id);
-               free(id);
-       } else
-               print_otag(h, TAG_A, "c", "Sx");
-
+       id = make_id(n);
+       print_otag(h, TAG_A, "chR", "Sx", id);
+       free(id);
        return 1;
 }
 
@@ -909,15 +967,15 @@ mdoc_bd_pre(MDOC_ARGS)
                offs = -1;
 
        if (offs == -1)
-               print_otag(h, TAG_DIV, "cswl", "display", n->norm->Bd.offs);
+               print_otag(h, TAG_DIV, "cswl", "Bd", n->norm->Bd.offs);
        else
-               print_otag(h, TAG_DIV, "cshl", "display", offs);
+               print_otag(h, TAG_DIV, "cshl", "Bd", offs);
 
        if (n->norm->Bd.type != DISP_unfilled &&
            n->norm->Bd.type != DISP_literal)
                return 1;
 
-       print_otag(h, TAG_PRE, "c", "lit");
+       print_otag(h, TAG_PRE, "c", "Li");
 
        /* This can be recursive: save & set our literal state. */
 
@@ -963,14 +1021,14 @@ mdoc_bd_pre(MDOC_ARGS)
 static int
 mdoc_pa_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_I, "c", "file");
+       print_otag(h, TAG_I, "c", "Pa");
        return 1;
 }
 
 static int
 mdoc_ad_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_I, "c", "addr");
+       print_otag(h, TAG_I, "c", "Ad");
        return 1;
 }
 
@@ -994,7 +1052,7 @@ mdoc_an_pre(MDOC_ARGS)
        if (n->sec == SEC_AUTHORS && ! (h->flags & HTML_NOSPLIT))
                h->flags |= HTML_SPLIT;
 
-       print_otag(h, TAG_SPAN, "c", "author");
+       print_otag(h, TAG_SPAN, "c", "An");
        return 1;
 }
 
@@ -1002,28 +1060,28 @@ static int
 mdoc_cd_pre(MDOC_ARGS)
 {
        synopsis_pre(h, n);
-       print_otag(h, TAG_B, "c", "config");
+       print_otag(h, TAG_B, "c", "Cd");
        return 1;
 }
 
 static int
 mdoc_dv_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_SPAN, "c", "define");
+       print_otag(h, TAG_CODE, "c", "Dv");
        return 1;
 }
 
 static int
 mdoc_ev_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_SPAN, "c", "env");
+       print_otag(h, TAG_CODE, "c", "Ev");
        return 1;
 }
 
 static int
 mdoc_er_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_SPAN, "c", "errno");
+       print_otag(h, TAG_CODE, "c", "Er");
        return 1;
 }
 
@@ -1034,12 +1092,12 @@ mdoc_fa_pre(MDOC_ARGS)
        struct tag              *t;
 
        if (n->parent->tok != MDOC_Fo) {
-               print_otag(h, TAG_I, "c", "farg");
+               print_otag(h, TAG_VAR, "c", "Fa");
                return 1;
        }
 
        for (nn = n->child; nn; nn = nn->next) {
-               t = print_otag(h, TAG_I, "c", "farg");
+               t = print_otag(h, TAG_VAR, "c", "Fa");
                print_text(h, nn->string);
                print_tagq(h, t);
                if (nn->next) {
@@ -1070,11 +1128,11 @@ mdoc_fd_pre(MDOC_ARGS)
        assert(n->type == ROFFT_TEXT);
 
        if (strcmp(n->string, "#include")) {
-               print_otag(h, TAG_B, "c", "macro");
+               print_otag(h, TAG_B, "c", "Fd");
                return 1;
        }
 
-       print_otag(h, TAG_B, "c", "includes");
+       print_otag(h, TAG_B, "c", "In");
        print_text(h, n->string);
 
        if (NULL != (n = n->next)) {
@@ -1088,10 +1146,10 @@ mdoc_fd_pre(MDOC_ARGS)
                        cp = strchr(buf, '\0') - 1;
                        if (cp >= buf && (*cp == '>' || *cp == '"'))
                                *cp = '\0';
-                       t = print_otag(h, TAG_A, "chI", "link-includes", buf);
+                       t = print_otag(h, TAG_A, "chI", "In", buf);
                        free(buf);
                } else
-                       t = print_otag(h, TAG_A, "c", "link-includes");
+                       t = print_otag(h, TAG_A, "c", "In");
 
                print_text(h, n->string);
                print_tagq(h, t);
@@ -1118,7 +1176,7 @@ mdoc_vt_pre(MDOC_ARGS)
        } else if (n->type == ROFFT_HEAD)
                return 0;
 
-       print_otag(h, TAG_SPAN, "c", "type");
+       print_otag(h, TAG_VAR, "c", "Vt");
        return 1;
 }
 
@@ -1126,7 +1184,7 @@ static int
 mdoc_ft_pre(MDOC_ARGS)
 {
        synopsis_pre(h, n);
-       print_otag(h, TAG_I, "c", "ftype");
+       print_otag(h, TAG_VAR, "c", "Ft");
        return 1;
 }
 
@@ -1147,7 +1205,7 @@ mdoc_fn_pre(MDOC_ARGS)
 
        ep = strchr(sp, ' ');
        if (NULL != ep) {
-               t = print_otag(h, TAG_I, "c", "ftype");
+               t = print_otag(h, TAG_VAR, "c", "Ft");
 
                while (ep) {
                        sz = MIN((int)(ep - sp), BUFSIZ - 1);
@@ -1160,7 +1218,7 @@ mdoc_fn_pre(MDOC_ARGS)
                print_tagq(h, t);
        }
 
-       t = print_otag(h, TAG_B, "c", "fname");
+       t = print_otag(h, TAG_B, "c", "Fn");
 
        if (sp)
                print_text(h, sp);
@@ -1173,10 +1231,10 @@ mdoc_fn_pre(MDOC_ARGS)
 
        for (n = n->child->next; n; n = n->next) {
                if (NODE_SYNPRETTY & n->flags)
-                       t = print_otag(h, TAG_I, "css?", "farg",
+                       t = print_otag(h, TAG_VAR, "css?", "Fa",
                            "white-space", "nowrap");
                else
-                       t = print_otag(h, TAG_I, "c", "farg");
+                       t = print_otag(h, TAG_VAR, "c", "Fa");
                print_text(h, n->string);
                print_tagq(h, t);
                if (n->next) {
@@ -1262,7 +1320,7 @@ mdoc_lk_pre(MDOC_ARGS)
 
        assert(n->type == ROFFT_TEXT);
 
-       print_otag(h, TAG_A, "ch", "link-ext", n->string);
+       print_otag(h, TAG_A, "ch", "Lk", n->string);
 
        if (NULL == n->next)
                print_text(h, n->string);
@@ -1283,7 +1341,7 @@ mdoc_mt_pre(MDOC_ARGS)
                assert(n->type == ROFFT_TEXT);
 
                mandoc_asprintf(&cp, "mailto:%s", n->string);
-               t = print_otag(h, TAG_A, "ch", "link-mail", cp);
+               t = print_otag(h, TAG_A, "ch", "Mt", cp);
                print_text(h, n->string);
                print_tagq(h, t);
                free(cp);
@@ -1311,7 +1369,7 @@ mdoc_fo_pre(MDOC_ARGS)
                return 0;
 
        assert(n->child->string);
-       t = print_otag(h, TAG_B, "c", "fname");
+       t = print_otag(h, TAG_B, "c", "Fn");
        print_text(h, n->child->string);
        print_tagq(h, t);
        return 0;
@@ -1335,7 +1393,7 @@ mdoc_in_pre(MDOC_ARGS)
        struct tag      *t;
 
        synopsis_pre(h, n);
-       print_otag(h, TAG_B, "c", "includes");
+       print_otag(h, TAG_B, "c", "In");
 
        /*
         * The first argument of the `In' gets special treatment as
@@ -1354,10 +1412,9 @@ mdoc_in_pre(MDOC_ARGS)
                assert(n->type == ROFFT_TEXT);
 
                if (h->base_includes)
-                       t = print_otag(h, TAG_A, "chI", "link-includes",
-                           n->string);
+                       t = print_otag(h, TAG_A, "chI", "In", n->string);
                else
-                       t = print_otag(h, TAG_A, "c", "link-includes");
+                       t = print_otag(h, TAG_A, "c", "In");
                print_text(h, n->string);
                print_tagq(h, t);
 
@@ -1378,14 +1435,14 @@ mdoc_in_pre(MDOC_ARGS)
 static int
 mdoc_ic_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_B, "c", "cmd");
+       print_otag(h, TAG_B, "c", "Ic");
        return 1;
 }
 
 static int
 mdoc_va_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_B, "c", "var");
+       print_otag(h, TAG_VAR, "c", "Va");
        return 1;
 }
 
@@ -1410,13 +1467,13 @@ mdoc_bf_pre(MDOC_ARGS)
                return 1;
 
        if (FONT_Em == n->norm->Bf.font)
-               cattr = "emph";
+               cattr = "Em";
        else if (FONT_Sy == n->norm->Bf.font)
-               cattr = "symb";
+               cattr = "Sy";
        else if (FONT_Li == n->norm->Bf.font)
-               cattr = "lit";
+               cattr = "Li";
        else
-               cattr = "none";
+               cattr = "No";
 
        /*
         * We want this to be inline-formatted, but needs to be div to
@@ -1430,7 +1487,7 @@ mdoc_bf_pre(MDOC_ARGS)
 static int
 mdoc_ms_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_SPAN, "c", "symb");
+       print_otag(h, TAG_B, "c", "Ms");
        return 1;
 }
 
@@ -1459,28 +1516,28 @@ mdoc_rs_pre(MDOC_ARGS)
        if (n->prev && SEC_SEE_ALSO == n->sec)
                print_paragraph(h);
 
-       print_otag(h, TAG_SPAN, "c", "ref");
+       print_otag(h, TAG_CITE, "c", "Rs");
        return 1;
 }
 
 static int
 mdoc_no_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_SPAN, "c", "none");
+       print_otag(h, TAG_SPAN, "c", "No");
        return 1;
 }
 
 static int
 mdoc_li_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_CODE, "c", "lit");
+       print_otag(h, TAG_CODE, "c", "Li");
        return 1;
 }
 
 static int
 mdoc_sy_pre(MDOC_ARGS)
 {
-       print_otag(h, TAG_SPAN, "c", "symb");
+       print_otag(h, TAG_B, "c", "Sy");
        return 1;
 }
 
@@ -1490,7 +1547,7 @@ mdoc_lb_pre(MDOC_ARGS)
        if (SEC_LIBRARY == n->sec && NODE_LINE & n->flags && n->prev)
                print_otag(h, TAG_BR, "");
 
-       print_otag(h, TAG_SPAN, "c", "lib");
+       print_otag(h, TAG_SPAN, "c", "Lb");
        return 1;
 }
 
@@ -1504,64 +1561,58 @@ mdoc__x_pre(MDOC_ARGS)
 
        switch (n->tok) {
        case MDOC__A:
-               cattr = "ref-auth";
+               cattr = "RsA";
                if (n->prev && MDOC__A == n->prev->tok)
                        if (NULL == n->next || MDOC__A != n->next->tok)
                                print_text(h, "and");
                break;
        case MDOC__B:
-               cattr = "ref-book";
                t = TAG_I;
+               cattr = "RsB";
                break;
        case MDOC__C:
-               cattr = "ref-city";
+               cattr = "RsC";
                break;
        case MDOC__D:
-               cattr = "ref-date";
+               cattr = "RsD";
                break;
        case MDOC__I:
-               cattr = "ref-issue";
                t = TAG_I;
+               cattr = "RsI";
                break;
        case MDOC__J:
-               cattr = "ref-jrnl";
                t = TAG_I;
+               cattr = "RsJ";
                break;
        case MDOC__N:
-               cattr = "ref-num";
+               cattr = "RsN";
                break;
        case MDOC__O:
-               cattr = "ref-opt";
+               cattr = "RsO";
                break;
        case MDOC__P:
-               cattr = "ref-page";
+               cattr = "RsP";
                break;
        case MDOC__Q:
-               cattr = "ref-corp";
+               cattr = "RsQ";
                break;
        case MDOC__R:
-               cattr = "ref-rep";
+               cattr = "RsR";
                break;
        case MDOC__T:
-               cattr = "ref-title";
+               cattr = "RsT";
                break;
        case MDOC__U:
-               cattr = "link-ref";
-               break;
+               print_otag(h, TAG_A, "ch", "RsU", n->child->string);
+               return 1;
        case MDOC__V:
-               cattr = "ref-vol";
+               cattr = "RsV";
                break;
        default:
                abort();
        }
 
-       if (MDOC__U != n->tok) {
-               print_otag(h, t, "c", cattr);
-               return 1;
-       }
-
-       print_otag(h, TAG_A, "ch", cattr, n->child->string);
-
+       print_otag(h, t, "c", cattr);
        return 1;
 }
 
@@ -1635,7 +1686,7 @@ mdoc_quote_pre(MDOC_ARGS)
        case MDOC_Op:
                print_text(h, "\\(lB");
                h->flags |= HTML_NOSPACE;
-               print_otag(h, TAG_SPAN, "c", "opt");
+               print_otag(h, TAG_SPAN, "c", "Op");
                break;
        case MDOC_En:
                if (NULL == n->norm->Es ||
@@ -1656,7 +1707,7 @@ mdoc_quote_pre(MDOC_ARGS)
        case MDOC_Ql:
                print_text(h, "\\(oq");
                h->flags |= HTML_NOSPACE;
-               print_otag(h, TAG_CODE, "c", "lit");
+               print_otag(h, TAG_CODE, "c", "Li");
                break;
        case MDOC_So:
        case MDOC_Sq: