Add a pager option to the kit-manual command

genesis-community · Apr 30, 2024 · f32e672 · f32e672
1 parent 18a4ae9
commit f32e672
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/bin/genesis b/bin/genesis
@@ -551,7 +551,9 @@ define_command("kit-manual", {
 	option_group => Genesis::Commands::REPO_OPTIONS,
 	options => [
 		'raw' =>
-			"Print the raw manual instead of rendering it in markdown."
+			"Print the raw manual instead of rendering it in markdown.",
+		'pager|P' =>
+			"Use a pager to display the manual."
 	],
 	no_vault => 1
 });

diff --git a/lib/Genesis/Commands/Info.pm b/lib/Genesis/Commands/Info.pm
@@ -258,7 +258,14 @@ sub kit_manual {
 	my $man = $kit->path('MANUAL.md');
 	if (-f $man) {
 		my $man_contents = slurp($man);
-		output get_options->{raw} ? $man_contents : render_markdown($man_contents);
+		my $contents = get_options->{raw} ? $man_contents : render_markdown($man_contents);
+		if (get_options->{pager}) {
+			open my $pager, "|-", "less -R" or die "Can't open pager: $!";
+			print $pager $contents;
+			close $pager;
+		} else {
+			output $contents;
+		}
 		exit 0;
 	}
 	error "#Y{%s} has no MANUAL.md", $kit->id;