diff options
Diffstat (limited to 'tanım.lisp')
-rw-r--r-- | tanım.lisp | 20 |
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)) |