From a5184674ef4f60bfe0c3829ead98e663879d2c71 Mon Sep 17 00:00:00 2001
From: djcb <djcb@localhost.localdomain>
Date: Fri, 13 Jan 2012 01:52:30 +0200
Subject: [PATCH] * add functions to map day numbers -> names, month numbers ->
 names

---
 guile/mu/stats.scm | 39 +++++++++++++++++++++++++++++++++++++--
 1 file changed, 37 insertions(+), 2 deletions(-)

diff --git a/guile/mu/stats.scm b/guile/mu/stats.scm
index b7ea0552..8b45dd8d 100644
--- a/guile/mu/stats.scm
+++ b/guile/mu/stats.scm
@@ -19,9 +19,12 @@
 (define-module (mu stats)
   :use-module (oop goops)
   :use-module (mu message)
+  :use-module (srfi srfi-1)
+  :use-module (ice-9 i18n)
   :export ( mu:tabulate-messages
-	    mu:average-messages))
-
+	    mu:average-messages
+	    mu:day-numbers->names
+	    mu:month-numbers->names))
 
 (define* (mu:tabulate-messages func #:optional (expr #t))
   "Execute FUNC for each message matching EXPR, and return an alist
@@ -54,3 +57,35 @@ icecream:  (mu:average (lambda(msg) (size msg)) \"icecream\" ."
   (if (= count 0)
     0
     (exact->inexact (/ sum count)))))
+
+;; a list of abbreviated, localized day names
+(define day-names
+  (map
+    (lambda (num)
+      (locale-day-short num))
+      (iota 7 1)))
+
+(define (mu:day-numbers->names table)
+  "Convert a list of pairs with the car denoting a day number (0-6)
+into a list of pairs with the car replaced by the corresponding day
+name (abbreviated)."
+    (map
+      (lambda (pair)
+	(cons (list-ref day-names (car pair)) (cdr pair)))
+      table))
+
+;; a list of abbreviated, localized month names
+(define month-names
+  (map
+    (lambda (num)
+      (locale-month-short num))
+      (iota 12 1)))
+
+(define (mu:month-numbers->names table)
+    "Convert a list of pairs with the car denoting a month number (0-11)
+into a list of pairs with the car replaced by the corresponding day
+name (abbreviated)."
+    (map
+      (lambda (pair)
+	(cons (list-ref month-names (car pair)) (cdr pair)))
+      table))