mirror of https://github.com/djcb/mu.git
* guile - updates in most guile modules
This commit is contained in:
parent
7d2f5a2307
commit
be8d97f11e
21
guile/mu.scm
21
guile/mu.scm
|
@ -18,24 +18,9 @@
|
||||||
|
|
||||||
(define-module (mu)
|
(define-module (mu)
|
||||||
:export
|
:export
|
||||||
( mu:initialize))
|
(mu:initialize))
|
||||||
|
|
||||||
;; :use-module (oop goops)
|
;; this is needed for guile < 2.0.4
|
||||||
;; :export
|
(setlocale LC_ALL "")
|
||||||
;; (mu:for-each-contact
|
|
||||||
;; mu:for-each-message
|
|
||||||
;; mu:message-list
|
|
||||||
;; mu:tabulate-messages
|
|
||||||
;; mu:average-messages
|
|
||||||
;; <mu-message>
|
|
||||||
;; ;; message funcs
|
|
||||||
;; body
|
|
||||||
;; header
|
|
||||||
;; contacts
|
|
||||||
|
|
||||||
;; ;; classes
|
|
||||||
;; <mu-contact>
|
|
||||||
;; ;; contact methods
|
|
||||||
;; name email timestamp frequency last-seen
|
|
||||||
|
|
||||||
(load-extension "libguile-mu" "mu_guile_init")
|
(load-extension "libguile-mu" "mu_guile_init")
|
||||||
|
|
|
@ -22,6 +22,8 @@ scmdir=${prefix}/share/guile/site/2.0/mu/
|
||||||
scm_DATA= \
|
scm_DATA= \
|
||||||
message.scm \
|
message.scm \
|
||||||
contact.scm \
|
contact.scm \
|
||||||
stats.scm
|
part.scm \
|
||||||
|
stats.scm \
|
||||||
|
plot.scm
|
||||||
|
|
||||||
EXTRA_DIST=$(scm_DATA)
|
EXTRA_DIST=$(scm_DATA)
|
||||||
|
|
|
@ -52,6 +52,7 @@ list of <mu-contact> objects."
|
||||||
objects."
|
objects."
|
||||||
(contacts msg #t))
|
(contacts msg #t))
|
||||||
|
|
||||||
|
|
||||||
(define-class <mu-contact-with-stats> (<mu-contact>)
|
(define-class <mu-contact-with-stats> (<mu-contact>)
|
||||||
(tstamp #:init-value 0 #:accessor timestamp #:init-keyword #:timestamp)
|
(tstamp #:init-value 0 #:accessor timestamp #:init-keyword #:timestamp)
|
||||||
(last-seen #:init-value 0 #:accessor last-seen)
|
(last-seen #:init-value 0 #:accessor last-seen)
|
||||||
|
|
|
@ -25,6 +25,7 @@
|
||||||
;; internal
|
;; internal
|
||||||
mu:get-header
|
mu:get-header
|
||||||
mu:get-field
|
mu:get-field
|
||||||
|
mu:for-each-msg-internal
|
||||||
;; message funcs
|
;; message funcs
|
||||||
body
|
body
|
||||||
header
|
header
|
||||||
|
@ -83,10 +84,10 @@
|
||||||
(define* (mu:for-each-message func #:optional (expr #t))
|
(define* (mu:for-each-message func #:optional (expr #t))
|
||||||
"Execute function FUNC for each message that matches mu search expression EXPR.
|
"Execute function FUNC for each message that matches mu search expression EXPR.
|
||||||
If EXPR is not provided, match /all/ messages in the store."
|
If EXPR is not provided, match /all/ messages in the store."
|
||||||
(let ((my-func
|
(mu:for-each-msg-internal
|
||||||
(lambda (msg)
|
(lambda (msg)
|
||||||
(func (make <mu-message> #:msg msg)))))
|
(func (make <mu-message> #:msg msg)))
|
||||||
(mu:for-each-msg-internal my-func expr)))
|
expr))
|
||||||
|
|
||||||
(define* (mu:message-list #:optional (expr #t))
|
(define* (mu:message-list #:optional (expr #t))
|
||||||
"Return a list of all messages matching mu search expression
|
"Return a list of all messages matching mu search expression
|
||||||
|
|
|
@ -19,8 +19,7 @@
|
||||||
(define-module (mu stats)
|
(define-module (mu stats)
|
||||||
:use-module (oop goops)
|
:use-module (oop goops)
|
||||||
:use-module (mu message)
|
:use-module (mu message)
|
||||||
:export (
|
:export ( mu:tabulate-messages
|
||||||
mu:tabulate-messages
|
|
||||||
mu:average-messages))
|
mu:average-messages))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue