* update guile examples

This commit is contained in:
djcb 2012-01-15 14:36:09 +02:00
parent ece8d795e3
commit f386e2bd26
2 changed files with 4 additions and 4 deletions

View File

@ -17,5 +17,5 @@
include $(top_srcdir)/gtest.mk
noinst_DIST= \
msg-stats \
msg-graphs \
contacts-export

View File

@ -26,14 +26,14 @@ exec guile -e main -s $0 $@
(use-modules (mu) (mu message) (mu contact))
(define (sort-by-freq c1 c2)
(< (frequency c1) (frequency c2)))
(< (mu:frequency c1) (mu:frequency c2)))
(define (sort-by-newness c1 c2)
(< (timestamp c1) (timestamp c2)))
(< (mu:timestamp c1) (mu:timestamp c2)))
(define (export-contact contact form)
"Convert CONTACT to a string in format FORM."
(let ((email (email contact)) (name (name contact)))
(let ((email (mu:email contact)) (name (mu:name contact)))
(if email ;; filter out anything *without* an email address
(cond
((string= form "org-contacts")