From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 5 Feb 2016 18:51:10 +0000 (+0000)
Subject: commitid.scad.pl: Provide Full*T
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=0bd64b9ae61ec61a944e56c6d15e7466720d837d

commitid.scad.pl: Provide Full*T
---

diff --git a/commitid.scad.pl b/commitid.scad.pl
index 2da7873..48585d5 100755
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -104,6 +104,12 @@ $SIG{__WARN__} = sub { die @_; };
 #       If tree is dirty, + or * is suffixed to count (but not to
 #       commitid) reducing number of digits by 1.
 #
+#   Full6T
+#   Full9T
+#   Full12T
+#   Full15T
+#       As Full but commit is split over two lines for a 3-line message
+#
 #   FontDemo
 #
 #   Arg0, Arg1, ...
@@ -355,6 +361,14 @@ sub do_git () {
 	    gentextmodule("Full$sz",
 			  rjustt($sz, $git_count.$git_dirty),
 			  ljustt($sz, $git_object, ''));
+
+	    if (!($sz % 2)) {
+		my $e = $sz/2;
+		gentextmodule("Full".($e*3)."T",
+			      rjustt($e, $git_count),
+			      ljustt($e*2, $git_object, $git_dirty)
+			      =~ m/.{$e}/g);
+	    }
 	}
     }
 }