--- trunk/lib/Frey/Web.pm 2008/11/20 13:57:38 477
+++ trunk/lib/Frey/Web.pm 2008/11/25 00:26:15 507
@@ -12,6 +12,7 @@
use Frey::Bookmarklet;
use Frey::ClassBrowser;
+use Frey::SVK;
has 'head' => (
is => 'rw',
@@ -188,10 +189,25 @@
$body = '';
}
+ my $warn_colors = {
+ '#' => '#444',
+ '##' => '#888',
+ };
+
$status_line
- .= qq|warn|
- . $self->editor_links( join("", $self->warnings ) )
- . qq|
|
+ .= qq|warn|
+ . $self->editor_links(
+ join("", map {
+ warn "# $_";
+ my $style = '';
+ $style = $warn_colors->{$1}
+ ? ' style="color:' . $warn_colors->{$1} . '"'
+ : ''
+ if m{^(#+)};
+ qq|$_
|; # XXX should be but CSS hates me
+ } $self->warnings )
+ )
+ . qq|
|
if $self->warnings;
my ($exit,$description) = ('exit','stop server');
@@ -206,6 +222,8 @@
|;
+ my $revision = Frey::SVK->info->{Revision} || '';
+
my $html = join("\n",
qq|