(in-package :inangulis.tables)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (local-time:set-local-time-cl-postgres-readers))

(defclass submission ()
  ((headline :initarg :headline :col-type text :initform ""  :accessor inangulis::s-headline)
   (url      :initarg :url      :col-type text :initform ""  :accessor inangulis::s-url)
   (date     :initarg :date     :col-type timestamp-with-timezone :initform "")
   (approved :initarg :approved :col-type text :initform "" :accessor inangulis::s-approved))
  (:metaclass dao-class)
  (:keys headline url))

(deftable submission
  (!dao-def))

;(with-connection (ubiquitous:value 'db)
;  (create-table 'submission))

(defmethod inangulis::s-date ((object submission))
  (with-slots (date) object
    (local-time:format-timestring nil date :format local-time:+rfc-1123-format+)))

(defmethod print-object ((obj submission) s)
  (print-unreadable-object (obj s :type t :identity t)
    (with-slots (headline url approved) obj
      (format s "H: ~s U: ~s A: ~s" headline url approved))))