From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 27 Apr 2016 00:02:19 +0000 (+0100)
Subject: notes: Some notes and scripts that I used to pick a font for new zealot
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=ian-dotfiles.git;a=commitdiff_plain;h=5f28af1467c8099ce9cef3d68f19d13724df8d81

notes: Some notes and scripts that I used to pick a font for new zealot
---

diff --git a/notes/font-search/README b/notes/font-search/README
new file mode 100644
index 0000000..6f423f0
--- /dev/null
+++ b/notes/font-search/README
@@ -0,0 +1 @@
+xlsfonts -ll | ~/junk/fontsearch |~/junk/fontsearch2 >t
diff --git a/notes/font-search/fontsearch b/notes/font-search/fontsearch
new file mode 100755
index 0000000..33d8387
--- /dev/null
+++ b/notes/font-search/fontsearch
@@ -0,0 +1,9 @@
+#!/usr/bin/perl -000
+
+while (<>) {
+    next unless m/font type:\s+Character Cell/;
+    next unless m/QUAD_WIDTH\s+10\b/;
+    next unless m/PIXEL_SIZE\s+20\b/;
+    print;
+}
+
diff --git a/notes/font-search/fontsearch2 b/notes/font-search/fontsearch2
new file mode 100755
index 0000000..86ffff7
--- /dev/null
+++ b/notes/font-search/fontsearch2
@@ -0,0 +1,33 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+our %done;
+
+while (<>) {
+    next unless s/^name:\s+//;
+    next if m/iso8859-(?!1\b)/;
+    next if m/\bkoi8\b/;
+    my $other = $_;
+    $other =~ s/\b(iso8859-1|microsoft-cp1251|paratype-\w+|muleipa-1|jisx0201\.1976-0)\b/iso10646-1/;
+    next if $done{$other};
+    $done{$_}++;
+}
+
+foreach my $bold (keys %done) {
+    my $medium = $bold;
+    next unless $medium =~ s/\bbold\b/medium/;
+    delete $done{$bold} if $done{$medium};
+}
+
+foreach my $bold (keys %done) {
+    my $medium = $bold;
+    next unless $medium =~ s/-bold-/-/;
+    delete $done{$bold} if $done{$medium};
+}
+
+foreach (sort keys %done) {
+#    print;
+    chomp;
+    print "xterm -fn '$_' -e '(echo $_; man ascii) |less' &\n";
+}