From d4b1ddbeebc469d9696e0877cc6bf1d21663eccf Mon Sep 17 00:00:00 2001
From: "John Ankarstr\\xf6m" <john@ankarstrom.se>
Date: Thu, 3 Jun 2021 14:33:06 +0200
Subject: Convert ttf -> dit for (g)troff

---
 rename | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 rename

(limited to 'rename')

diff --git a/rename b/rename
new file mode 100755
index 0000000..e8a87e0
--- /dev/null
+++ b/rename
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+# rename -- automatically rename ditroff file
+
+sub usage {
+	die "usage: $0 [-n] family file\n";
+}
+
+usage if @ARGV != 2 and @ARGV != 3;
+if ($ARGV[0] eq '-n') {
+	$test = 1;
+	usage if @ARGV != 3;
+}
+$family = $ARGV[-2];
+$file = $ARGV[-1];
+
+die "family '$family' should begin with capital letter\n"
+	unless $family =~ /^[A-Z]+$/ or $family =~ m{/[A-Z]+$};
+
+for ($file) {
+	$family .= 'B' if (/Bold/);
+	$family .= 'I' if (/Italic/);
+	$family .= 'I' if (/Oblique/);
+	$family .= 'R' if $family eq $ARGV[-1];
+}
+
+if ($test) {
+	print "$file -> $family\n";
+} else {
+	rename $file, $family;
+}
-- 
cgit v1.2.3