パルカワ2

PerlとRubyとイチャラブ

github issue に紐付いた branch には、issue のタイトルをくっ付けたい。


#!perl
use strict;
use warnings;
use 5.10.1;

my $GIT_ISSUE = '~/src/git-issue/bin/git-issue';
my $branches = `git branch`;

for my $branch (split "\n", $branches) {
    if ($branch =~ /iss([0-9]+)/) {
        my $issue = `$GIT_ISSUE $1`;
        $branch .= ": ";
        $branch .= (split "\n", $issue)[2];
    }

    say $branch;
}
__END__
  feature/iss431: [open] #431 いしゅータイトルだよ1〜
  feature/iss433: [open] #433 いしゅータイトルだよ2〜
  fix/iss405: [closed] #405 閉じたいしゅーだよ〜
* master

しかし、このままだと遅くて使い物にならなさそうだった。