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

2 files changed, 20 insertions, 21 deletions

diff --git a/html-jen.lisp b/html-jen.lisp
index 3eb5e54..fdae7ed 100644
--- a/html-jen.lisp
+++ b/html-jen.lisp
@@ -1,26 +1,5 @@
 (in-package :html-jen)
 
-(defun dosya-metni-oku (dosya)
-  (let* ((uzunluk 0)
-         (metin
-           (with-output-to-string (out)
-             (with-open-file (in dosya :external-format :utf-8)
-               (loop :with arabellek := (make-array 8192 :element-type 'character)
-                     :for n := (read-sequence arabellek in)
-                     :while (< 0 n)
-                     :do (incf uzunluk n)
-                         (write-sequence arabellek out :start 0 :end n))))))
-    (values metin uzunluk)))
-
-(defclass node ()
-  ((tag :initarg :tag :accessor tag :initform nil)
-   (children :initarg :children :accessor children :initform nil)
-   (props :initarg :props :accessor props :initform nil)
-   (value :initarg :value :accessor value :initform nil)))
-
-(defun node! (tag children props value)
-  (make-instance 'node :tag tag :children children :props props :value value))
-
 (defparameter *indent* 0)
 (defparameter *indent-increment* 2)
 (defparameter *yeni-satır* t)
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))