--- trunk/lib/Frey/Web.pm 2008/11/20 12:56:37 476
+++ trunk/lib/Frey/Web.pm 2008/11/24 22:21:02 505
@@ -12,6 +12,7 @@
use Frey::Bookmarklet;
use Frey::ClassBrowser;
+use Frey::SVK;
has 'head' => (
is => 'rw',
@@ -188,19 +189,41 @@
$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');
+ ($exit,$description) = ('restart','restart server')
+ if $ENV{FREY_RESTART}; # tune labels on exit link
+
my $right =
qq|
- $url
+ $url
+ $exit
|;
+ my $revision = Frey::SVK->info->{Revision} || '';
+
my $html = join("\n",
qq|