summaryrefslogtreecommitdiff
path: root/src/tanım.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/tanım.lisp')
-rw-r--r--src/tanım.lisp20
1 files changed, 20 insertions, 0 deletions
diff --git a/src/tanım.lisp b/src/tanım.lisp
new file mode 100644
index 0000000..43af26c
--- /dev/null
+++ b/src/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))