[Docutils-checkins] r6243 - trunk/prest/lib/Text/Restructured/Directive/code_block.pm

[<mn...@us...>]

Author: mnodine
Date: 2010-03-01 21:52:02 +0100 (Mon, 01 Mar 2010)
New Revision: 6243

Modified:
   trunk/prest/lib/Text/Restructured/Directive/code_block.pm
Log:
Support :class: option.


Modified: trunk/prest/lib/Text/Restructured/Directive/code_block.pm
===================================================================
--- trunk/prest/lib/Text/Restructured/Directive/code_block.pm	2010-03-01 20:49:04 UTC (rev 6242)
+++ trunk/prest/lib/Text/Restructured/Directive/code_block.pm	2010-03-01 20:52:02 UTC (rev 6243)
@@ -80,7 +80,7 @@
 # Returns: array of DOM objects
 sub main {
     my($parser, $name, $parent, $source, $lineno, $dtext, $lit) = @_;
-    my @optlist = qw(color file level numbered);
+    my @optlist = qw(class color file level numbered);
     my $dhash = Text::Restructured::Directive::parse_directive
 	($parser, $dtext, $lit, $source, $lineno, \@optlist);
     my($args, $content, $content_lineno, $options) =
@@ -141,6 +141,8 @@
 	    }
 	    @errs = $parser->Inline($pl, $markup, $source, $content_lineno);
 	}
+	$pl->{attr}{classes} = [ $options->{class} ]
+	    if defined $options->{class};
 	return $pl, @errs;
     }
 
@@ -162,6 +164,8 @@
     }
     $content = numbered($content) if defined $options->{numbered};
     
+    $lb->{attr}{classes} = [ $options->{class} ]
+	if defined $options->{class};
     $lb->append($DOM->newPCDATA($content));
     return $lb;
 }