(in-package :html-jen)

(defclass node ()
  ((tag :initarg :tag :accessor tag :initform nil
        :documentation "HTML element tag keyword'ü")
   (children :initarg :children :accessor children :initform nil
             :documentation "Bu node'un altındaki node'lar")
   (props :initarg :props :accessor props :initform nil
          :documentation "HTML element attribute'ları ve değerleri")
   (value :initarg :value :accessor value :initform nil
          :documentation "HTML element metin içeriği")))

(defun node! (tag children props value)
  (make-instance 'node :tag tag :children children :props props :value value))

(defun ebeveyn-node! (tag children &optional props)
  (make-instance 'node :tag tag :children children :props props))

(defun çocuk-node! (tag value &optional props)
  (make-instance 'node :tag tag :props props :value value))