Generate S-expressions in stats awk scripts

1 files changed, 12 insertions, 10 deletions

diff --git a/awk/stats_positions.awk b/awk/stats_positions.awk
index 735013a..c276f87 100644
--- a/awk/stats_positions.awk
+++ b/awk/stats_positions.awk
@@ -33,20 +33,22 @@ BEGIN {
 }
 
 END {
-    print "total" "\t" total;
-    print "suspended" "\t" suspended;
-    print "due" "\t" due;
+    print "("
+    print "  :total " total;
+    print "  :suspended " suspended;
+    print "  :due " due;
     for (var in by_type) {
-        print "type-" var "\t" by_type[var];
+        print "  :type-" var " " by_type[var];
     }
 
     if (n_stats > 0) {
-        print "avg-ease" "\t" ease / n_stats;
-        print "avg-box" "\t" box / n_stats;
-        print "avg-interval" "\t" interval / n_stats;
+        print "  :avg-ease " ease / n_stats;
+        print "  :avg-box " box / n_stats;
+        print "  :avg-interval " interval / n_stats;
     } else {
-        print "avg-ease" "\t" 0.0;
-        print "avg-box" "\t" 0;
-        print "avg-interval" "\t" 0.0;
+        print "  :avg-ease " 0.0;
+        print "  :avg-box " 0;
+        print "  :avg-interval " 0.0;
     }
+    print ")"
 }