blob: 43af26c2eface3e11182d47cd638621df55a3965 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(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))
|
