node tanımı, tanım dosyasına taşındı

1 files changed, 20 insertions, 0 deletions

diff --git a/tanım.lisp b/tanım.lisp
new file mode 100644
index 0000000..43af26c
--- /dev/null
+++ b/tanım.lisp
@@ -0,0 +1,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))