From f806c06cb8d70813a9658efa83370676ac1a157b Mon Sep 17 00:00:00 2001
From: troydm <d.geurkov@gmail.com>
Date: Mon, 3 Feb 2014 19:53:06 +0400
Subject: [PATCH] formatting added

---
 exp | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/exp b/exp
index bb4d846..1bee8e8 100755
--- a/exp
+++ b/exp
@@ -70,6 +70,15 @@ sub parsetag {
     return ();
 }
 
+sub formatdesc {
+    my ($t,$d) = (@_);
+    if($d =~ /\n/){
+        my $offset = ' ' x (length($t)+6);
+        $d =~ s/\n\s*/\n$offset/g;
+    }
+    return $d;
+}
+
 my @helprefs = $content =~ /helpref=\"help-(\d+)\"/g;
 
 for my $i (@helprefs){
@@ -77,7 +86,7 @@ for my $i (@helprefs){
     my @d = parsetag("pre","help-$i");
     if(@t){
         my $title = decodechars(striptags $t[1]) if @t;
-        my $desc = decodechars(striptags $d[1]) if @d;
+        my $desc = formatdesc($title, decodechars(striptags $d[1])) if @d;
         if($color){
             print "\n", $title, color($color), " ---[", color("reset")
                     , " $desc ", color($color), "]", color("reset"), "\n\n";