From 2720ea01f6fc120edd63d942a334ef5b29751306 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 5 Feb 2016 02:57:24 +0000
Subject: [PATCH] commitid.scad.pl: break out chrmodname (nfc)

---
 commitid.scad.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/commitid.scad.pl b/commitid.scad.pl
index 973ca0a..ee9be88 100755
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -72,6 +72,12 @@ function Commitid__scale() =
   Commitid_pixelsz() / 0.1;
 END
 
+sub chrmodname ($) {
+    my ($chr) = @_;
+    my $chrx = sprintf '%#x', ord $chr;
+    return "Commitid__chr_$chrx";
+}
+
 sub parsefont () {
     my %cellmap;
     for (;;) {
@@ -121,8 +127,7 @@ sub parsefont () {
     my @demo;
     my $democols = 6;
     foreach my $chr (sort keys %chrpolys) {
-	my $chrx = sprintf '%#x', ord $chr;
-	my $mod = "Commitid__chr_$chrx";
+	my $mod = chrmodname $chr;
 	p "module $mod () {\n";
 	foreach my $poly (@{ $chrpolys{$chr} }) {
 	    p " polygon([";
-- 
2.30.2