Browse files

* guile: make sure the examples still work

  • Loading branch information...
1 parent 8e3fbe3 commit 8abe211a582d3e90f951208d47d3793d014cbd6a @djcb committed Jul 14, 2012
View
2 guile/examples/contacts-export
@@ -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)))
View
3 guile/examples/msg-graphs
@@ -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
View
2 guile/examples/mu-biff
@@ -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
View
2 guile/mu.scm
@@ -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>
View
2 guile/mu/contact.scm
@@ -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)
View
2 guile/mu/message.scm
@@ -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)
View
2 guile/mu/part.scm
@@ -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)
View
2 guile/mu/plot.scm
@@ -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))
View
2 guile/mu/stats.scm
@@ -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)

0 comments on commit 8abe211

Please sign in to comment.