Changeset 11582 for lang/perl/Plusen

Timestamp:

05/14/08 15:16:46 (6 months ago)

Author:

yappo

Message:

code と img 機能付けた

Location:

lang/perl/Plusen/trunk/lib/Plusen/Plugin/Device

Files:

• MozRepl.pm (modified) (1 diff)
• Term.pm (modified) (2 diffs)

lang/perl/Plusen/trunk/lib/Plusen/Plugin/Device/MozRepl.pm

@@ -82 +82 @@
     if (@{ $list }) {
         $html = sprintf '<h1 style="margin: 0; padding: 0; border: 0; font-size: 4em">%s</h1>', $title;
+    } elsif (my $code = $page->{code}) {
+        $html = sprintf '<h1 style="margin: 0; padding: 0; border: 0; font-size: 4em">%s</h1><pre style="font-size: 2.5em">%s</pre>', $title, $code;
+    } elsif (my $img = $page->{img}) {
+        $html = sprintf '<h1 style="margin: 0; padding: 0; border: 0; font-size: 4em">%s</h1><img src="%s" />', $title, $img;
     } else {
         $html = sprintf '<h1 style="font-size: 5em; text-align: center;">%s</h1>', $title;

lang/perl/Plusen/trunk/lib/Plusen/Plugin/Device/Term.pm

@@ -62 +62 @@
             $self->draw_line($c, $y, $list->[$i]);
         }
+    } elsif (my $code = $page->{code}) {
+        $self->draw_line($c, 0, $page->{title});
+        $self->draw_code($c, $code);
     } else {
         my($x, $y) = Term::Size::chars;
@@ -76 +79 @@
 }
 
+sub draw_code {
+    my($self, $c, $msg) = @_;
+    $msg = utf8::is_utf8($msg) ? encode('utf8', $msg) : $msg;
+
+    my $y = 1;
+    for my $line (split /\n/, $msg) {
+        $self->screen->at($y++, 0)->puts($line);
+    }
+}
+
 1;