| ... | ... |
@@ -21,3 +21,4 @@ requires 'Params::Check', '== 0.36'; |
| 21 | 21 |
requires 'ExtUtils::ParseXS', '== 3.18'; |
| 22 | 22 |
requires 'Test::MockModule', '== 0.05'; |
| 23 | 23 |
requires 'Digest::SHA', '== 5.84'; |
| 24 |
+requires 'Text::Markdown', '== 1.000031'; |
| ... | ... |
@@ -1,5 +1,6 @@ |
| 1 | 1 |
<% |
| 2 | 2 |
use Mojo::ByteStream (); |
| 3 |
+ use Text::Markdown qw( markdown ); |
|
| 3 | 4 |
|
| 4 | 5 |
# README |
| 5 | 6 |
my $lines; |
| ... | ... |
@@ -10,6 +11,13 @@ |
| 10 | 11 |
$readme_e = Mojo::ByteStream->new($readme)->xml_escape->to_string; |
| 11 | 12 |
$readme_e =~ s#(^|\s|[^\x00-\x7F])(http(?:s)?://.+?)($|\s|[^\x00-\x7F])#$1<a href="$2">$2</a>$3#msg; |
| 12 | 13 |
} |
| 14 |
+ else {
|
|
| 15 |
+ eval { $lines = app->git->blob($user, $project, $rev, 'README.md') };
|
|
| 16 |
+ if ($lines) {
|
|
| 17 |
+ my $readme = join "\n", @$lines; |
|
| 18 |
+ $readme_e = markdown($readme); |
|
| 19 |
+ } |
|
| 20 |
+ } |
|
| 13 | 21 |
%> |
| 14 | 22 |
|
| 15 | 23 |
% if (defined $readme_e) {
|