termcol: monospaced terminal samples

Hexadecimal values as <code> to force equal widths.

diff --git a/termcol.plp b/termcol.plp
index 90f8a7cf200e95df870bc6ef1d996ea9e6175cde..5493c8ae2eef2c0189e4168b05ddce5d19e8a842 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -35,7 +35,7 @@ sub colcell {
                "background:$css; color:$inverse; padding:0 1ex",
                $name,
        );
                "background:$css; color:$inverse; padding:0 1ex",
                $name,
        );

-       $out .= sprintf '<td style="%s">%s', "background:$_; color:$css", $minhex
+       $out .= sprintf '<td style="%s"><code>%s</code>', "background:$_; color:$css", $minhex

                for @$sample;
        return "$out\n";
 }
                for @$sample;
        return "$out\n";
 }