Chessa::Bug::Adelie: alter formatting to contain sigils

scripts/Chessa/Bug/Adelie.pm

@@ -154,7 +154,7 @@ sub issue {
         url    => $json->{web_url},
         state  => $json->{state},
     );
-    my $str = $self->{msg}($project, $d{id}) . ' ' . $d{title} . ' (' .
+    my $str = $self->{msg}("$project#$d{id}", $d{title}) . ' (' .
         $self->{msg}('Status', $d{state}) . ' ' .
         $self->{msg}('Author', $d{author}) . ") - $d{url}";
 
@@ -185,7 +185,7 @@ sub mr {
             push @{$d{labels}}, $label->{title};
         }
     }
-    my $str = $self->{msg}($project, $d{id}) . ' ' . $d{title} . ' (' .
+    my $str = $self->{msg}("$project!$d{id}", $d{title}) . ' (' .
         $self->{msg}('Status', $d{state}) . "; $d{merge} " .
         $self->{msg}('Author', $d{author}) . ') ' .
         $d{source} . ' -> ' . $d{target};
@@ -214,7 +214,7 @@ sub commit {
         url    => $json->{web_url},
     );
 
-    my $str = $self->{msg}($project, $d{id}) . ' ' . $d{title} . ' (' .
+    my $str = $self->{msg}("$project\@$d{id}", $d{title}) . ' (' .
         $self->{msg}('Author', $d{author}) . 
         ($d{author} ne $d{commit} ? ' ' . $self->{msg}('Committer', $d{commit}) : '') .
         ") - $d{url}";
@@ -235,8 +235,7 @@ sub snippet {
         id     => $num,
         url    => $json->{web_url},
     );
-    $project = 'Snippet' unless length($project);
-    my $str = $self->{msg}($project, $d{id}) . " $d{title} (" .
+    my $str = $self->{msg}("$project!$d{id}", $d{title}) . ' (' .
         $self->{msg}('Author', $d{author}) . ") - $d{url}";
     
     $on_info->($str);