From 08e87cdb5b60283a4709bbc217a81163e0b253d7 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 25 Jan 2020 00:57:04 +0100
Subject: [PATCH] align long options in usage

---
 barcat | 2 ++
 1 file changed, 2 insertions(+)

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;
 	},
-- 
2.30.0