--- trunk/lib/Frey/Web.pm	2008/11/20 12:56:37	476
+++ trunk/lib/Frey/Web.pm	2008/11/20 15:23:13	482
@@ -188,16 +188,36 @@
 		$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');
+		($exit,$description) = ('restart','restart server')
+		if $ENV{FREY_RESTART}; # tune labels on exit link
+
 	my $right =
 		qq|
 			<span class="right">
-			<a href="?reload=$reload_counter"><code>$url</code></a>
+			<a title="reload"  href="/reload$url"><code>$url</code></a>
+			<a title="$description" href="/exit$url">$exit</a>
 			</span>
 		|;
 
@@ -224,6 +244,31 @@
 	return $html;
 }
 
+=head2 editor
+
+Create HTML editor link with optional line and title
+
+  my $html = $self->editor( $class, $line, $title );
+
+=cut
+
+sub editor {
+	my ( $self, $class, $line, $title ) = @_;
+	confess "need class" unless $class;
+	$line ||= 1;
+	qq|<a target="editor" href="/editor+$class+$line"| .
+	( $title ? qq| title="$title"| : '' ) .
+	qq|>$class</a>|;
+}
+
+=head2 editor_links
+
+Create HTML links to editor for perl error message
+
+  my $html = $self->editor_links( $error )
+
+=cut
+
 sub editor_links {
 	my ( $self, $error ) = @_;