aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPatrick Spek <p.spek@tyil.nl>2020-02-02 18:15:16 +0100
committerPatrick Spek <p.spek@tyil.nl>2020-02-02 18:15:16 +0100
commit55c522997bb70ac36aac93759a6cf3efb4213561 (patch)
tree4b817653d32ebfea8c4dc41dcc1effe3b697ecb8
parente4ea27c621845d8b941702f6a21b9bf418a71648 (diff)
downloadApp::Rakuman-55c522997bb70ac36aac93759a6cf3efb4213561.tar.gz
App::Rakuman-55c522997bb70ac36aac93759a6cf3efb4213561.tar.bz2
Update env vars used by Pod::To::Rakuman
-rw-r--r--lib/Pod/To/Rakuman.pm65
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Pod/To/Rakuman.pm6 b/lib/Pod/To/Rakuman.pm6
index ea579ac..c1a7b81 100644
--- a/lib/Pod/To/Rakuman.pm6
+++ b/lib/Pod/To/Rakuman.pm6
@@ -12,7 +12,8 @@ use Text::BorderedBlock;
unit class Pod::To::Rakuman does Pod::To::Anything;
my @footnotes;
-my $tab-size = %*ENV<TAB_SIZE>.?Int // 8;
+my $tab-size = %*ENV<RAKUMAN_TAB_SIZE>.?Int // 8;
+my $line-length = %*ENV<RAKUMAN_LINE_LENGTH>.?Int // 79;
multi method render (Pod::Block::Code:D $pod --> Str) {
my $block = Text::BorderedBlock.new;
@@ -196,7 +197,7 @@ method indentify (
my $size = $levels * $tab-size;
if ($fold) {
- $prose .= &fold(:width(79 - $size));
+ $prose .= &fold(:width($line-length - $size));
}
$prose.linesĀ».indent($size).join("\n")