From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 9 Sep 2019 17:18:03 +0000 (+0200)
Subject: customisable spark characters
X-Git-Tag: v1.05~8
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/11e6fa3713f7ea24f2329def3c60b32847539799

customisable spark characters

Distributes over any number of unicode glyphs.  Hardcode interpreter for now
so -CA can be applied to easily decode arguments from UTF-8.
---

diff --git a/barcat b/barcat
index 82cf7d6..442559c 100755
--- a/barcat
+++ b/barcat
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl
+#!/usr/bin/perl -CA
 use 5.018;
 use warnings;
 use utf8;
@@ -47,8 +47,8 @@ GetOptions(\%opt,
 		);
 	},
 	'markers|m=s',
-	'spark!' => sub {
-		$opt{spark} = [split //, '⎽▁▂▃▄▅▆▇█'];
+	'spark:s' => sub {
+		$opt{spark} = [split //, $_[1] || '⎽▁▂▃▄▅▆▇█'];
 	},
 	'stat|s!',
 	'unmodified|u!',