Permalink
Browse files

* guile: update some of the examples

  • Loading branch information...
1 parent 0b32a63 commit 2551e7732573bc1a67c7935dc69fa14191c95345 @djcb committed Sep 17, 2012
Showing with 4 additions and 5 deletions.
  1. +1 −1 guile/examples/msg-graphs
  2. +2 −2 guile/examples/mu-biff
  3. +1 −2 guile/examples/org2mu4e
View
2 guile/examples/msg-graphs
@@ -2,7 +2,7 @@
exec guile -e main -s $0 $@
!#
;;
-;; Copyright (C) 2011 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
+;; Copyright (C) 2011-2012 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;;
;; This program is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by the
View
4 guile/examples/mu-biff
@@ -28,7 +28,7 @@ exec guile -e main -s $0 $@
(use-modules (ice-9 getopt-long) (ice-9 format))
-(use-modules (mu) (mu message))
+(use-modules (mu))
(define (main args)
(let* ((optionspec '((muhome (value #t))
@@ -49,7 +49,7 @@ exec guile -e main -s $0 $@
(mu:for-each-message
(lambda (msg)
(if (> (mu:timestamp msg) newer-than)
- (format #t "~s ~s\n"
+ (format #t "~a ~a\n"
(mu:from msg)
(mu:subject msg))))
query)))))
View
3 guile/examples/org2mu4e
@@ -3,7 +3,7 @@ exec guile -e main -s $0 $@
!#
;;
-;; Copyright (C) 2011 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
+;; Copyright (C) 2011-2012 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;;
;; This program is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by the
@@ -20,7 +20,6 @@ exec guile -e main -s $0 $@
;; along with this program; if not, write to the Free Software Foundation,
;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-
(use-modules (ice-9 getopt-long) (ice-9 format))
(use-modules (mu))

0 comments on commit 2551e77

Please sign in to comment.