21 lines
863 B
Common Lisp
21 lines
863 B
Common Lisp
(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))
|