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

;; --------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'luki-lisp)

;; --------------------------------------------------------------------------

(-> 'eieio)

;; --------------------------------------------------------------------------

(defclass elem ()
  ((name         :initarg :name         :type   string            :initform (@f "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)
   (movable      :initarg :movable      :custom boolean           :initform t)
   (resizable    :initarg :resizable    :custom boolean           :initform t)
   (transposable :initarg :transposable :custom boolean           :initform t)
   (fg           :initarg :fg           :type   (or null string)  :initform nil)
   (bg           :initarg :bg           :type   (or null string)  :initform nil)
   (data         :initarg :data         :type   list              :initform nil)
   (len          :initarg :len          :type   integer           :initform 0)
   (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-center :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)
   (sub          :initarg :sub          :type   list              :initform nil)))

;; --------------------------------------------------------------------------

(cl-defmethod bad-info ((e elem))
  (~ (name x y w h fg bg) e
     ($ "%s (%d %d) %dx%d chars, color: [fg %s] [bg %s]" name x y w h
        (and fg (propertize fg 'face `(:foreground ,fg)))
        (and bg (propertize bg 'face `(:background ,bg))))))

;; --------------------------------------------------------------------------

(<- 'bad-elem)