mirror of https://github.com/djcb/mu.git
* guile: make sure the examples still work
This commit is contained in:
parent
8e3fbe380e
commit
8abe211a58
|
@ -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
|
||||
|
|
|
@ -171,7 +171,7 @@ to get the corresponding type of contacts, or #t to get all. Returns a
|
|||
list of <mu-contact> objects."
|
||||
(map (lambda (pair) ;; a pair (na . addr)
|
||||
(make <mu:contact> #:name (car pair) #:email (cdr pair)))
|
||||
(mu:get-contacts (slot-ref msg 'msg) contact-type)))
|
||||
(mu:c:get-contacts (slot-ref msg 'msg) contact-type)))
|
||||
|
||||
(define-method (mu:contacts (msg <mu:message>))
|
||||
"Get contacts of all types for message MSG as a list of <mu-contact>
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
(define-module (mu contact))
|
||||
(define-module (mu contact) :use-module(mu))
|
||||
(display "(mu contact) is deprecated, please remove from (use-modules ...)")
|
||||
(newline)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
(define-module (mu message))
|
||||
(define-module (mu message) :use-module (mu))
|
||||
(display "(mu message) is deprecated, please remove from (use-modules ...)")
|
||||
(newline)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
(define-module (mu part))
|
||||
(define-module (mu part) :use-module (mu))
|
||||
(display "(mu part) is deprecated, please remove from (use-modules ...)")
|
||||
(newline)
|
||||
|
||||
|
|
|
@ -17,7 +17,7 @@
|
|||
;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
||||
|
||||
(define-module (mu plot)
|
||||
:use-module (mu message)
|
||||
:use-module (mu)
|
||||
:use-module (ice-9 popen)
|
||||
:export (mu:plot))
|
||||
|
||||
|
|
|
@ -18,7 +18,7 @@
|
|||
|
||||
(define-module (mu stats)
|
||||
:use-module (oop goops)
|
||||
:use-module (mu message)
|
||||
:use-module (mu)
|
||||
:use-module (srfi srfi-1)
|
||||
:use-module (ice-9 i18n)
|
||||
:use-module (ice-9 r5rs)
|
||||
|
|
Loading…
Reference in New Issue