From 56e9fd9489f025ce2c5f63c35985359301a848f3 Mon Sep 17 00:00:00 2001 From: Kristaps Dzonsons Date: Fri, 26 Aug 2011 09:03:17 +0000 Subject: Make sure that `Ql' literalises its arguments in -T[x]html. Found when doing manpages.bsd.lv stuff. --- example.style.css | 4 ++-- mdoc_html.c | 8 ++++++-- style.css | 4 ++-- 3 files changed, 10 insertions(+), 6 deletions(-) diff --git a/example.style.css b/example.style.css index c80b929b..9131ff20 100644 --- a/example.style.css +++ b/example.style.css @@ -1,4 +1,4 @@ -/* $Id: example.style.css,v 1.45 2011/08/18 09:16:01 kristaps Exp $ */ +/* $Id: example.style.css,v 1.46 2011/08/26 09:03:17 kristaps Exp $ */ /* * This is an example style-sheet provided for mandoc(1) and the -Thtml @@ -38,7 +38,7 @@ i { } /* Italic: BI, IB, I, (implicit). */ b { } /* Bold: SB, BI, IB, BR, RB, B, (implicit). */ .symb { font-style: normal; font-weight: bold; } /* Symbolic: Sy, Ms, Bf -symbolic. */ small { } /* Small: SB, SM. */ -.lit { font-style: normal; font-weight: normal; font-family: monospace; } /* Literal: Dl, Li, Bf -literal, Bl -literal, Bl -unfilled. */ +.lit { font-style: normal; font-weight: normal; font-family: monospace; } /* Literal: Dl, Li, Ql, Bf -literal, Bl -literal, Bl -unfilled. */ /* Block modes. */ diff --git a/mdoc_html.c b/mdoc_html.c index f33a438b..b1652f0d 100644 --- a/mdoc_html.c +++ b/mdoc_html.c @@ -1,4 +1,4 @@ -/* $Id: mdoc_html.c,v 1.177 2011/08/18 09:16:01 kristaps Exp $ */ +/* $Id: mdoc_html.c,v 1.178 2011/08/26 09:03:17 kristaps Exp $ */ /* * Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons * @@ -2219,7 +2219,11 @@ mdoc_quote_pre(MDOC_ARGS) print_text(h, "("); break; case (MDOC_Ql): - /* FALLTHROUGH */ + print_text(h, "\\(oq"); + h->flags |= HTML_NOSPACE; + PAIR_CLASS_INIT(&tag, "lit"); + print_otag(h, TAG_CODE, 1, &tag); + break; case (MDOC_So): /* FALLTHROUGH */ case (MDOC_Sq): diff --git a/style.css b/style.css index 576cfee1..ee891f41 100644 --- a/style.css +++ b/style.css @@ -1,4 +1,4 @@ -/* $Id: style.css,v 1.24 2011/08/18 09:16:01 kristaps Exp $ */ +/* $Id: style.css,v 1.25 2011/08/26 09:03:17 kristaps Exp $ */ /* * This is an example style-sheet provided for mandoc(1) and the -Thtml @@ -38,7 +38,7 @@ i { } /* Italic: BI, IB, I, (implicit). */ b { } /* Bold: SB, BI, IB, BR, RB, B, (implicit). */ .symb { font-style: normal; font-weight: bold; } /* Symbolic: Sy, Ms, Bf -symbolic. */ small { } /* Small: SB, SM. */ -.lit { font-style: normal; font-weight: normal; font-family: monospace; } /* Literal: Dl, Li, Bf -literal, Bl -literal, Bl -unfilled. */ +.lit { font-style: normal; font-weight: normal; font-family: monospace; } /* Literal: Dl, Li, Ql, Bf -literal, Bl -literal, Bl -unfilled. */ /* Block modes. */ -- cgit v1.2.3-56-ge451