(in-package #:cl-user)
(defpackage #:files
  (:use #:cl
	#:ritherdon-archive.db
	#:app-constants
	#:mito)
  (:export #:storage-file))
(in-package #:files)

(defclass storage-file ()
  ((name
    :documentation "The filename of the file being stored in /storage/media."
    :col-type (or :text :null)
    :initarg :name
    :initform :null
    :accessor name-of)

   (slug
    :documentation "The slugified version of the file's `NAME'. This is what is
    used when constructing links and accessing the file from the browser."
    :col-type (or :text :null)
    :initarg :slug
    :initform :null
    :accessor slug-of)

  (file-type
   :documentation "The MIME type of the file (E.G. 'image/png."
   :col-type (or :text :null)
   :initarg :file-type
   :initform :null
   :accessor file-type-of))
  
  (:documentation "Model describing the 'storage_file' table in the database --
  used by Mito.")
  (:metaclass mito:dao-table-class))