emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* mu-guile: make the examples work after mu:initialize api changes

This commit is contained in:
djcb 2012-01-07 18:42:19 +02:00
parent 41abf944c2
commit 261e9dff28
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guile/examples/contacts-export
View File

@ -23,7 +23,7 @@ exec guile -e main -s $0 $@
(use-modules (ice-9 getopt-long))
(use-modules (srfi srfi-1))
(use-modules (mu) (mu contact))
(use-modules (mu) (mu message) (mu contact))
(define (sort-by-freq c1 c2)
(< (frequency c1) (frequency c2)))
@ -66,7 +66,7 @@ exec guile -e main -s $0 $@
(display msg)
(exit 0))
(begin
(mu:initialize muhome)
(mu:initialize #t muhome)
(let* ((sort-func
(cond
((string= sort-by "frequency") sort-by-freq)

4
guile/examples/msg-stats
View File

@ -21,7 +21,7 @@ exec guile -e main -s $0 $@
;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
(use-modules (ice-9 getopt-long) (ice-9 optargs) (ice-9 popen) (ice-9 format))
(use-modules (mu) (mu message))
(use-modules (mu) (mu message) (mu stats))
(define* (per-weekday #:optional (EXPR ""))
"Count the total number of messages for each weekday (0-6 for
@ -168,7 +168,7 @@ then be used in, e.g., R and gnuplot."
(begin
(display msg)
(exit (if help 0 1))))
(mu:initialize muhome)
(mu:initialize #t muhome)
(cond
((string= period "hour") (mu:plot:per-hour expr))
((string= period "day") (mu:plot:per-weekday expr))