From 13473bd967393e617bf6ed391f67801fdfe1da78 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20H=C3=A4rter?= <stefan.haerter@protonmail.com>
Date: Sun, 16 Jul 2023 17:22:12 +0200
Subject: [PATCH] Issue #4: Improved formatting of constructor and driver
 standings.

---
 F1DataBot.pm | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/F1DataBot.pm b/F1DataBot.pm
index c026d4f..de2b1ea 100644
--- a/F1DataBot.pm
+++ b/F1DataBot.pm
@@ -193,13 +193,13 @@ sub statistics {
                         {}
                     );
                     my %DriverStandings;
-                    my $DriverStandingsFormatted = sprintf( "%-3s%-4s%-5s%7s\n",
+                    my $DriverStandingsFormatted = sprintf( "%2s %3s %-5s%7s\n",
                         "#", "No.", "Code", "Points" );
                     for my $Driver ( $Standings->{MRData}->{StandingsTable}
                         ->{StandingsLists}->[0]->{DriverStandings}->@* )
                     {
                         $DriverStandingsFormatted .= sprintf(
-                            "%-3d%-4d%-5s%7d\n",
+                            "%2d %3d %-5s%7d\n",
                             $Driver->{positionText},
                             $Driver->{Driver}->{permanentNumber},
                             $Driver->{Driver}->{code},
@@ -248,17 +248,22 @@ sub statistics {
                     $Self->{LogObject}
                       ->info( 'statistics: Fetched standings are '
                           . Dumper($Standings) );
-                    my %ConstructorStandings;
-                    my $ConstructorStandingsFormatted = '';
+                    my $ConstructorStandingsFormatted = sprintf( "%2s %-15s%7s\n",
+                        "#", "Name", "Points" );
                     for my $Constructor ( $Standings->{MRData}->{StandingsTable}
                         ->{StandingsLists}->[0]->{ConstructorStandings}->@* )
                     {
-                        $ConstructorStandingsFormatted .=
-"Position: $Constructor->{positionText}, Name: $Constructor->{Constructor}->{name} - Points: $Constructor->{points}\n";
+                        $ConstructorStandingsFormatted .= sprintf(
+                            "%2d %-15s%7d\n",
+                            $Constructor->{positionText},
+                            $Constructor->{Constructor}->{name},
+                            $Constructor->{points}
+                        );
                     }
                     $ConstructorStandingsFormatted =~ s/^/<pre>/;
                     $ConstructorStandingsFormatted =~ s/$/<\/pre>/;
-                    $ReturnData{text} = $ConstructorStandingsFormatted;
+                    $ReturnData{text}         = $ConstructorStandingsFormatted;
+                    $ReturnData{parse_mode} = 'HTML';
                 }
                 default {
                     $ReturnData{text} =
-- 
2.45.2