From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 24 Jan 2020 23:57:04 +0000 (+0100)
Subject: align long options in usage
X-Git-Tag: v1.07~9
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/08e87cdb5b60283a4709bbc217a81163e0b253d7

align long options in usage
---

diff --git a/barcat b/barcat
index e4328c4..57145f2 100755
--- a/barcat
+++ b/barcat
@@ -82,6 +82,7 @@ GetOptions(\%opt,
 		$pod =~ s/^=over\K/ 25/m;  # indent options list
 		$pod =~ s/^=item \N*\n\n\N*\n\K(?:(?:^=over.*?^=back\n)?(?!=)\N*\n)*/\n/msg;
 		$pod =~ s/[.,](?=\n)//g;  # trailing punctuation
+		$pod =~ s/^=item \K(?=--)/____/gm;  # align long options
 		# abbreviate <variable> indicators
 		$pod =~ s/\Q>.../s>/g;
 		$pod =~ s/<(?:number|count|seconds)>/N/g;
@@ -98,6 +99,7 @@ GetOptions(\%opt,
 		$parser->parse_string_document($pod);
 
 		$contents =~ s/\n(?=\n\h)//msg;  # strip space between items
+		$contents =~ s/^  \K____/    /gm;  # nbsp substitute
 		print $contents;
 		exit;
 	},