--- trunk/lib/Frey/Web.pm	2008/11/20 15:22:36	481
+++ trunk/lib/Frey/Web.pm	2008/11/20 15:23:13	482
@@ -188,10 +188,25 @@
 		$body = '<!-- no body -->';
 	}
 
+	my $warn_colors = {
+		'#'  => '#444',
+		'##' => '#888',
+	};
+
 	$status_line
-		.= qq|<span class="frey-popup">warn<code>|
-		. $self->editor_links( join("", $self->warnings ) )
-		. qq|</code></span>|
+		.= qq|<span class="frey-popup">warn<span>|
+		. $self->editor_links(
+			join("", map {
+				warn "# $_";
+				my $style = '';
+				$style = $warn_colors->{$1}
+					? ' style="color:' . $warn_colors->{$1} . '"'
+					: ''
+					if m{^(#+)};
+				qq|<tt$style>$_</tt><br/>|; # XXX <tt> should be <code> but CSS hates me
+			} $self->warnings )
+		)
+		. qq|</span></span>|
 		if $self->warnings;
 
 	my	($exit,$description) = ('exit','stop server');