Changeset 111 for veekun/trunk/lib/Vee/BBCode.pm

Timestamp:

04/23/07 20:48:15 (3 years ago)

Author:

eevee

Message:

Fixed: bbcode stylesheet was not being loaded.
Changed: Stylesheet variables are now available to all stylesheets.
Styled forum reply form.

Files:

• veekun/trunk/lib/Vee/BBCode.pm (modified) (4 diffs)

veekun/trunk/lib/Vee/BBCode.pm

@@ -33 +33 @@
 #  - replace won't work with no_close
 our %tags = (
-    b       => { param => 0, start => '<strong class="bbcode_b">', end => '</strong>' },
-    i       => { param => 0, start => '<em class="bbcode_i">', end => '</em>' },
-    u       => { param => 0, start => '<span class="bbcode_u">', end => '</span>' },
-    s       => { param => 0, start => '<span class="bbcode_s">', end => '</span>' },
-    h       => { param => 0, start => '<span class="bbcode_h">', end => '</span>' },
+    b       => { param => 0, start => '<strong class="bbcode-b">', end => '</strong>' },
+    i       => { param => 0, start => '<em class="bbcode-i">', end => '</em>' },
+    u       => { param => 0, start => '<span class="bbcode-u">', end => '</span>' },
+    s       => { param => 0, start => '<span class="bbcode-s">', end => '</span>' },
+    h       => { param => 0, start => '<span class="bbcode-h">', end => '</span>' },
     color   => { param => 2, strip_quotes => 1, start => sub {
         my $color = shift;
@@ -47 +47 @@
             | [a-z]+[0-9]*
          /ix) { $color = 'inherit' }
-        qq'<span class="bbcode_color" style="color: $color;">'
+        qq'<span class="bbcode-color" style="color: $color;">'
     }, end => '</span>' },
 #    size    => { param => 2, },
-    url     => { param => 1, strip_quotes => 1, replace => sub { qq'<a href="@{[ $_[0] ? $_[0] : $_[1] ]}" class="bbcode_url">$_[1]</a>' }  },
-    img     => { param => 1, strip_quotes => 1, raw => 1, start => sub { $_[0] ? qq'<img src="$_[0]" alt="' : '<img alt="" src="' }, end => '" class="bbcode_img"/>' },
-    code    => { param => 1, raw => 1, start => sub { '<span class="bbcode_code_header">' . ($_[0] ? "Code for $_[0]" : 'Code') . ':</span><span class="bbcode_code">' }, end => '</span>' },
-    quote   => { param => 1, start => sub { '<fieldset class="bbcode_quote"><legend class="bbcode_quote_header">' . ($_[0] ? "Quote from $_[0]" : 'Quote') . ':</legend>' }, end => '</fieldset>' },
-    mono    => { param => 1, start => '<span class="bbcode_prop">', end => '</span>' },
+    url     => { param => 1, strip_quotes => 1, replace => sub { qq'<a href="@{[ $_[0] ? $_[0] : $_[1] ]}" class="bbcode-url">$_[1]</a>' }  },
+    img     => { param => 1, strip_quotes => 1, raw => 1, start => sub { $_[0] ? qq'<img src="$_[0]" alt="' : '<img alt="" src="' }, end => '" class="bbcode-img"/>' },
+    code    => { param => 1, raw => 1, start => sub { '<div class="bbcode-code-heading">' . ($_[0] ? "Code for $_[0]" : 'Code') . ':</div><div class="bbcode-code">' }, end => '</div>' },
+    quote   => { param => 1, start => sub { '<div class="bbcode-quote-heading">' . ($_[0] ? "Quote from $_[0]" : 'Quote') . ':</div><div class="bbcode-quote">' }, end => '</div>' },
+    mono    => { param => 1, start => '<span class="bbcode-prop">', end => '</span>' },
     raw     => { param => 1, raw => 1, start => '', end => '' },
-    hr      => { param => 0, no_close => 1, start => '<hr class="bbcode_hr"/>' },
-    center  => { param => 0, no_close => 0, start => '<div class="bbcode_center">', end => '</div>' },
+    hr      => { param => 0, no_close => 1, start => '<hr class="bbcode-hr"/>' },
+    center  => { param => 0, no_close => 0, start => '<div class="bbcode-center">', end => '</div>' },
 #    list    => { param => 1, contents => { '*' => 1 }, },
 #    '*'     => { param => 0, container => { list => 1 }, self_closing => 1, },
@@ -192 +192 @@
 
                 push @errors, [ "Tag '$tag_name' not closed before parent tag '$next_tag'", $left_bracket ];
-                $output[-1] .= qq'<span class="bbcode_error_wrongorder">[/$tag_name]</span>';
+                $output[-1] .= qq'<span class="bbcode-error-wrongorder">[/$tag_name]</span>';
             }
 
@@ -198 +198 @@
                 # we have run out of initial closing tags!  replace this with something temporary for now
                 push @errors, [ "Tag '$tag_name' closed but not open", $left_bracket ];
-                $output[-1] .= qq'<span class="bbcode_error_notopen">[/$tag_name]</span>';
+                $output[-1] .= qq'<span class="bbcode-error-notopen">[/$tag_name]</span>';
                 next PARSE;
             }