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

(require 'eieio)

(defclass elem ()
  ((name         :initarg :name         :type   string             :initform (format "element-%d" (random 100)))
   (deletable    :initarg :deletable    :custom boolean            :initform t)
   (deleted      :initarg :deleted      :custom boolean            :initform nil)
   (visible      :initarg :visible      :custom boolean            :initform t)
   (fg           :initarg :fg           :type   (or null string)   :initform nil)
   (color        :initarg :color        :type   (or null string)   :initform nil)
   (data-str     :initarg :list         :type   list               :initform nil)
   (data         :initarg :data         :type   list               :initform nil)
   (len          :initarg :len          :type   integer            :initform 0)
   (movable      :initarg :movable      :custom boolean            :initform t)
   (transposable :initarg :transposable :custom boolean            :initform t)
   (ix           :initarg :ix           :type   integer            :initform 0)
   (iy           :initarg :iy           :type   integer            :initform 0)
   (min-x        :initarg :min-x        :type   integer            :initform 0)
   (min-y        :initarg :min-y        :type   integer            :initform 0)
   (x            :initarg :x            :type   integer            :initform 0)
   (y            :initarg :y            :type   integer            :initform 0)
   (max-x        :initarg :max-x        :type   (or null integer)  :initform nil)
   (max-y        :initarg :max-y        :type   (or null integer)  :initform nil)
   (align-c      :initarg :align-c      :custom boolean            :initform nil)
   (align-rel-xy :initarg :align-rel-xy :type   list               :initform nil)
   (w-min        :initarg :w-min        :type   integer            :initform 1)
   (h-min        :initarg :h-min        :type   integer            :initform 1)
   (w            :initarg :w            :type   integer            :initform 0)
   (h            :initarg :h            :type   integer            :initform 0)
   (w-max        :initarg :w-max        :type   integer            :initform 78)
   (h-max        :initarg :h-max        :type   integer            :initform 28)
   (pushy        :initarg :pushy        :custom boolean            :initform nil)
   (resize-wh    :initarg :resize-wh    :type   list               :initform nil)
   (tick         :initarg :tick         :type   (or null function) :initform nil)
   (sub          :initarg :sub          :type   list               :initform nil)))

(cl-defmethod bad-info ((e elem))
  (with-slots (name x y w h fg color) e
    (message
     "%s (%d %d) %dx%d chars (%dx%d pxls, char hxw %dx%d)\n[fg %s] [bg %s]"
       name
       x y
       w h
       (* w #1=(frame-char-width))
       (* h #2=(frame-char-height))
       #2# ; OK
       #1#
       (propertize fg    'face (list :foreground fg))
       (propertize color 'face (list :background color)))))

(provide 'bad-elem)