summaryrefslogtreecommitdiff
path: root/lib/Multi
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2015-11-01 13:42:56 +0100
committerYorhel <git@yorhel.nl>2015-11-01 13:43:50 +0100
commit8c9cfe238e565088b37d256eb461a01919ef9968 (patch)
tree56143b98815c308aa84dc626a91364db5eadec23 /lib/Multi
parent3c967881d7b5408a49f16de8b268b053d6ba9051 (diff)
Switch to HTML5 doctype + s/acronym/abbr/ + s/&nbsp;/&#xa0;/e
I'd have preferred to stick with XHTML 1.0, but unfortunately browsers won't allow you to use modern Javascript APIs with an older doctype. Note that most pages don't actually validate correctly as HTML5, I'm relying on browsers to be lenient. In either case, I'd like VNDB to stay valid XML (XHTML5, then), and luckily that shouldn't be a problem.
Diffstat (limited to 'lib/Multi')
-rw-r--r--lib/Multi/RG.pm8
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/Multi/RG.pm b/lib/Multi/RG.pm
index 177a82be..eade569a 100644
--- a/lib/Multi/RG.pm
+++ b/lib/Multi/RG.pm
@@ -256,8 +256,6 @@ sub processgraph {
# Before saving the SVG output, we'll modify it a little:
# - Remove comments
- # - Add svg: prefix to all tags
- # - Remove xmlns declarations (this is set in the html)
# - Remove <title> elements (unused)
# - Remove id attributes (unused)
# - Remove first <polygon> element (emulates the background color)
@@ -274,15 +272,15 @@ sub processgraph {
$attr{class} = 'border' if $attr{stroke} && $attr{stroke} eq '#111111';
$attr{class} = 'nodebg' if $attr{fill} && $attr{fill} eq '#222222';
- delete @attr{qw|stroke fill xmlns xmlns:xlink|};
+ delete @attr{qw|stroke fill|};
delete $attr{id} if $attr{id} && $attr{id} !~ /^node_[vp]\d+$/;
- $w->tag("svg:$el", %attr, $el eq 'path' || $el eq 'polygon' ? undef : ());
+ $w->tag($el, %attr, $el eq 'path' || $el eq 'polygon' ? undef : ());
},
End => sub {
my($expat, $el) = @_;
return if $el eq 'title' || $expat->in_element('title');
return if $el eq 'polygon' && $expat->depth == 2;
- $w->end("svg:$el") if $el ne 'path' && $el ne 'polygon';
+ $w->end($el) if $el ne 'path' && $el ne 'polygon';
},
Char => sub {
my($expat, $str) = @_;