my $id = $f->{'id'};
if ($f->{'brief'}) {
- print "> [`$name`](#$id): ". $f->{'brief'} . "\n\n";
+ print "* [`$name`](#$id): ". $f->{'brief'} . "\n";
} else {
- print "> [`$name`](#$id)\n\n";
+ print "* [`$name`](#$id)\n";
}
}
}
if ( !$f->{'brief'} && $f->{'data'} ) {
- $f->{'data'} =~ /^(.*?)(?:(?:[.:]\s)|\n).*/;
- if ( $1 ) {
- $f->{'brief'} = "$1.";
+
+ if ( $f->{'data'} =~ /^(.*?)(?:(?:[.:]\s|$)|\n).*/ ) {
+ $f->{'brief'} = "$1";
chomp $f->{'brief'};
+
+ if ( $f->{'brief'} !~ /\.$/) {
+ $f->{'brief'} .= ".";
+ }
}
}