* guile: make sure the examples still work
This commit is contained in:
@ -23,7 +23,7 @@ exec guile -e main -s $0 $@
|
||||
|
||||
(use-modules (ice-9 getopt-long) (ice-9 format))
|
||||
(use-modules (srfi srfi-1))
|
||||
(use-modules (mu) (mu message) (mu contact))
|
||||
(use-modules (mu))
|
||||
|
||||
(define (sort-by-freq c1 c2)
|
||||
(< (mu:frequency c1) (mu:frequency c2)))
|
||||
|
||||
@ -21,7 +21,8 @@ exec guile -e main -s $0 $@
|
||||
(setlocale LC_ALL "")
|
||||
|
||||
(use-modules (ice-9 getopt-long) (ice-9 optargs) (ice-9 popen) (ice-9 format))
|
||||
(use-modules (mu) (mu message) (mu stats) (mu plot))
|
||||
(use-modules (mu) (mu stats) (mu plot))
|
||||
;;(use-modules (mu) (mu message) (mu stats) (mu plot))
|
||||
|
||||
(define (per-hour expr plain-text)
|
||||
"Count the total number of messages for each weekday (0-6 for
|
||||
|
||||
@ -43,7 +43,7 @@ exec guile -e main -s $0 $@
|
||||
(muhome (option-ref options 'muhome #f))
|
||||
(query (string-concatenate (option-ref options '() '()))))
|
||||
(if help
|
||||
(begin (display msg) (exit 0))
|
||||
(begin (display msg) (newline) (exit 0))
|
||||
(begin
|
||||
(mu:initialize muhome)
|
||||
(mu:for-each-message
|
||||
|
||||
Reference in New Issue
Block a user