added basic logging example

1 files changed, 17 insertions, 0 deletions

diff --git a/utility-apps.lisp b/utility-apps.lisp
new file mode 100644
index 0000000..4f4b2db
--- /dev/null
+++ b/utility-apps.lisp
@@ -0,0 +1,17 @@
+(in-package :granolin)
+
+(defclass message-log ()
+  ((output
+    :accessor output
+    :initarg :output
+    :initform (error "Message Log requires an output stream")
+    :type stream
+    :documentation "An output stream to which messages are logged."
+    )))
+
+(defmethod handle-timeline-event :after ((log message-log) room (event timeline-event))
+  (format (output log) "~a in ~a: ~a~%"
+          (sender event)
+          room
+          (msg-body event)))
+