From 63a968ccaedfab7764592297442d9254502c9370 Mon Sep 17 00:00:00 2001
From: "Dirk-Jan C. Binnema" <djcb@djcbsoftware.nl>
Date: Wed, 13 Jul 2011 23:00:05 +0300
Subject: [PATCH] * some more guile scripting stuff

---
 src/mu-msg.c            |  5 ++--
 toys/muile/mu-stats.scm | 63 +++++++++++++++++++++++++++++++++++++----
 2 files changed, 60 insertions(+), 8 deletions(-)

diff --git a/src/mu-msg.c b/src/mu-msg.c
index 67e7a66e..7d380e49 100644
--- a/src/mu-msg.c
+++ b/src/mu-msg.c
@@ -583,8 +583,9 @@ mu_msg_contact_foreach (MuMsg *msg, MuMsgContactForeachFunc func,
 		{GMIME_RECIPIENT_TYPE_BCC, MU_MSG_CONTACT_TYPE_BCC},
 	};
 
-	g_return_if_fail (func && msg);
-
+	g_return_if_fail (msg && msg->_file);
+	g_return_if_fail (func);
+	
 	/* first, get the from address(es) */
 	get_contacts_from (msg, func, user_data);
 
diff --git a/toys/muile/mu-stats.scm b/toys/muile/mu-stats.scm
index fd1cf6d5..7f1b158b 100644
--- a/toys/muile/mu-stats.scm
+++ b/toys/muile/mu-stats.scm
@@ -11,11 +11,11 @@
 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;; GNU General Public License for more details.
 ;;
+
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, write to the Free Software Foundation,
 ;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-;;
-;;
+
 
 ;; some guile/scheme functions to get various statistics of my mu
 ;; message store.
@@ -28,16 +28,67 @@ provided, only count the messages that match it.\n"
   (mu:store:foreach (lambda(msg) #f) EXPR))
 
 
-(define (mu:stats:average-size EXPR)
-  "Count the total number of messages. If the optional EXPR is
-provided, only count the messages that match it.\n"
+(define (mu:stats:average FUNC EXPR)
+  "Count the average of the result of applying FUNC on all
+messages. If the optional EXPR is provided, only consider the messages
+that match it.\n"
   (let* ((sum 0)
 	  (n (mu:store:foreach
-	       (lambda(msg) (set! sum (+ sum (mu:msg:size msg)))) EXPR)))
+	       (lambda(msg) (set! sum (+ sum (FUNC msg)))) EXPR)))
     (if (= n 0) 0 (exact->inexact (/ sum n)))))
 
 
+(define (mu:stats:average-size EXPR)
+  "Calculate the average message size. If the optional EXPR is
+provided, only consider the messages that match it.\n"
+  (mu:stats:average (lambda(msg) (mu:msg:size msg)) EXPR))
 
 
+(define (mu:stats:average-recipient-number EXPR)
+  "Calculate the average number of recipients (To: + CC: + Bcc:). If
+the optional EXPR is provided, only consider the messages that match
+it.\n"
+  (mu:stats:average (lambda(msg)
+		      (+(length (mu:msg:to msg))
+			(length (mu:msg:cc msg))
+			(length (mu:msg:bcc msg)))) EXPR))
 
+(define (mu:stats:frequency FUNC EXPR)
+  "FUNC is a function that takes a Msg and returns some number between
+0 and <MAX. If the optional EXPR is provided, only consider messages
+that match it.\n"
+  (let ((table '()))
+    (mu:store:foreach
+      (lambda(msg)
+	(let* ((val (FUNC msg)) (freq (assoc-ref table val)))
+	  (set! table (assoc-set! table val
+			(+ 1 (if (eq? freq #f) 0 freq)))))) "")
+    (sort table (lambda(a b) (< (car a) (car b))))))
 
+(define (mu:stats:per-weekday EXPR)
+  "Count the total number of messages for each weekday (0-6 for
+Sun..Sat). If the optional EXPR is provided, only count the messages
+that match it. The result is a list of pairs (weekday . frequency).\n"
+  (mu:stats:frequency
+    (lambda (msg) (tm:wday (localtime (mu:msg:date msg)))) EXPR))
+
+(define (mu:stats:per-month EXPR)
+  "Count the total number of messages for each month (0-11 for
+Jan..Dec). If the optional EXPR is provided, only count the messages
+that match it. The result is a list of pairs (month . frequency).\n"
+  (mu:stats:frequency
+    (lambda (msg) (tm:mon (localtime (mu:msg:date msg)))) EXPR))
+
+(define (mu:stats:per-hour EXPR)
+  "Count the total number of messages for each weekday (0-6 for
+Sun..Sat). If the optional EXPR is provided, only count the messages
+that match it. The result is a list of pairs (weekday . frequency).\n"
+  (mu:stats:frequency
+    (lambda (msg) (tm:hour (localtime (mu:msg:date msg)))) EXPR))
+	   
+(define (mu:stats:per-year EXPR)
+  "Count the total number of messages for each year since 1970. If the
+optional EXPR is provided, only count the messages that match it. The
+result is a list of pairs (year . frequency).\n"
+  (mu:stats:frequency
+    (lambda (msg) (+ 1900 (tm:year (localtime (mu:msg:date msg))))) EXPR))