;;;; cl-scopes/storage/msglog - storing message data in a SQL database

(defpackage :scopes/storage/msglog
  (:use :common-lisp)
  (:local-nicknames (:message :scopes/core/message)
                    (:storage :scopes/storage)
                    (:tracking :scopes/storage/tracking))
  (:export #:make-container #:save))

(in-package :scopes/storage/msglog)

(defclass pmsg (message:message tracking:track) ())

(defun make-container (storage)
  (make-instance 'tracking:container 
                 :item-class 'pmsg
                 :table-name :messages
                 :indexes '((domain action class item))
                 :storage storage))