(format_name_n_summary) factorize package name and summary formatting there

1 files changed, 6 insertions, 1 deletions

diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm
index 700ef317..a5632aa0 100644
--- a/Rpmdrake/formatting.pm
+++ b/Rpmdrake/formatting.pm
@@ -33,7 +33,7 @@ use ugtk2 qw(escape_text_for_TextView_markup_format);
 
 use Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT = qw(format_field format_header localtime2changelog my_fullname pkg2medium rpm_description split_fullname urpm_name);
+our @EXPORT = qw(format_field format_header format_name_n_summary localtime2changelog my_fullname pkg2medium rpm_description split_fullname urpm_name);
 
 
 sub rpm_description {
@@ -82,6 +82,11 @@ sub pkg2medium {
 #- encodings; but if a user has a so broken setup we can't do much anyway
 sub localtime2changelog { to_utf8(POSIX::strftime("%c", localtime($_[0]))) }
 
+sub format_name_n_summary {
+    my ($name, $summary) = @_;
+    join("\n", '<b>' . $name . '</b>', escape_text_for_TextView_markup_format($summary));
+}
+
 sub format_header {
     my ($str) = @_;
     '<big>' . escape_text_for_TextView_markup_format($str) . '</big>';