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

* guile: update some of the examples

This commit is contained in:
djcb 2012-09-17 11:41:11 +03:00
parent 0b32a63537
commit 2551e77325
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
guile/examples/msg-graphs
View File

@ -2,7 +2,7 @@
exec guile -e main -s $0 $@ 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 ;; 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 ;; under the terms of the GNU General Public License as published by the

4
guile/examples/mu-biff
View File

@ -28,7 +28,7 @@ exec guile -e main -s $0 $@
(use-modules (ice-9 getopt-long) (ice-9 format)) (use-modules (ice-9 getopt-long) (ice-9 format))
(use-modules (mu) (mu message)) (use-modules (mu))
(define (main args) (define (main args)
(let* ((optionspec '((muhome (value #t)) (let* ((optionspec '((muhome (value #t))
@ -49,7 +49,7 @@ exec guile -e main -s $0 $@
(mu:for-each-message (mu:for-each-message
(lambda (msg) (lambda (msg)
(if (> (mu:timestamp msg) newer-than) (if (> (mu:timestamp msg) newer-than)
(format #t "~s ~s\n" (format #t "~a ~a\n"
(mu:from msg) (mu:from msg)
(mu:subject msg)))) (mu:subject msg))))
query))))) query)))))

3
guile/examples/org2mu4e
View File

@ -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 ;; 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 ;; 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, ;; along with this program; if not, write to the Free Software Foundation,
;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. ;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
(use-modules (ice-9 getopt-long) (ice-9 format)) (use-modules (ice-9 getopt-long) (ice-9 format))
(use-modules (mu)) (use-modules (mu))