v/exp
1
0
Fork 0
mirror of https://github.com/troydm/exp.git synced 2025-05-20 08:20:11 -07:00
Code Issues Projects Releases Wiki Activity

formatting added

Browse Source
This commit is contained in:
troydm 2014-02-03 19:53:06 +04:00
parent b03b1ef5c4
commit f806c06cb8
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
exp
View File

@ -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";