;;; -*- lexical-binding: t -*-

(require 'eieio)

(require 'bad-borderless)
(require 'bad-elem)

(defclass game ()
  ((name      :initarg :name      :type string               :initform "bad/draw-game")
   (about     :initarg :about     :type function             :initform #'ignore)
   (init      :initarg :init      :type function             :initform #'ignore)
   (init-mode :initarg :init-mode :type function             :initform #'ignore)
   (init-keys :initarg :init-keys :type function             :initform #'ignore)
   (update    :initarg :update    :type function             :initform #'ignore)
   (draw      :initarg :draw      :type function             :initform #'ignore)
   (run       :initarg :run       :type function             :initform #'ignore)
   (fb        :initarg :fb        :type (or null borderless) :initform nil)
   (tmr       :initarg :tmr)))

(provide 'bad-game)