* guile cleanup/overhaul (WIP)
This commit is contained in:
@ -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)
|
||||
|
||||
@ -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)
|
||||
|
||||
@ -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")
|
||||
|
||||
Reference in New Issue
Block a user