* guile cleanup/overhaul (WIP)

This commit is contained in:
djcb
2012-01-01 18:17:29 +02:00
parent dd574cb8ba
commit 46e002a4fa
12 changed files with 586 additions and 831 deletions

View File

@ -21,6 +21,7 @@ include $(top_srcdir)/gtest.mk
scmdir=${prefix}/share/guile/site/2.0/mu/
scm_DATA= \
msg.scm \
message.scm \
contact.scm
EXTRA_DIST=$(scm_DATA)

View File

@ -22,12 +22,12 @@
(define-module (mu contact)
:use-module (oop goops)
:export ( ;; classes
<contact>
<mu-contact>
;; contact methods
name email timestamp frequency last-seen
))
(define-class <contact> ()
(define-class <mu-contact> ()
(name #:init-value #f #:accessor name #:init-keyword #:name)
(email #:init-value #f #:accessor email #:init-keyword #:email)
(tstamp #:init-value 0 #:accessor timestamp #:init-keyword #:timestamp)

View File

@ -17,4 +17,4 @@
;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
(define-module (mu msg))
(load-extension "libguile-mu" "mu_guile_msg_init")
(load-extension "libguile-mu" "mu_guile_init")