Strip lefthand padding from message boxes & set overflow-x to auto

PerlDancer · Jul 28, 2015 · 0396832 · 0396832
1 parent 4f1ebb8
commit 0396832
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/lib/Dancer2/Core/Error.pm b/lib/Dancer2/Core/Error.pm
@@ -394,10 +394,12 @@ sub dumper {
     #use Data::Dumper;
     my $dd = Data::Dumper->new( [ \%data ] );
     my $hash_separator = '  @@!%,+$$#._(--  '; # Very unlikely string to exist already
-    $dd->Terse(1)->Quotekeys(0)->Indent(1)->Sortkeys(1)->Pair($hash_separator);
+    my $prefix_padding = '  #+#+@%.,$_-!((  '; # Very unlikely string to exist already
+    $dd->Terse(1)->Quotekeys(0)->Indent(1)->Sortkeys(1)->Pair($hash_separator)->Pad($prefix_padding);
     my $content = _html_encode( $dd->Dump );
     $content =~ s/^.+//;   # Remove the first line
     $content =~ s/\n.+$//; # Remove the last line
+    $content =~ s/^\Q$prefix_padding\E  //gm; # Remove the padding
     $content =~ s{^(\s*)(.+)\Q$hash_separator}{$1<span class="key">$2</span> =&gt; }gm;
     if ($censored) {
         $content

diff --git a/share/skel/public/css/error.css b/share/skel/public/css/error.css
@@ -41,6 +41,7 @@ pre.content {
     border: 1px solid #aaa;
     border-top: 0;
     margin-bottom: 1em;
+    overflow-x: auto;
 }
 
 div.title {