From 80152b609225285251a49d1532bf8746bfbab35d Mon Sep 17 00:00:00 2001 From: riton Date: Fri, 28 Mar 2025 21:52:26 +0300 Subject: =?UTF-8?q?kaynak=20dosyalar=20src=20dizinine=20ta=C5=9F=C4=B1nd?= =?UTF-8?q?=C4=B1?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- "src/tan\304\261m.lisp" | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 "src/tan\304\261m.lisp" (limited to 'src/tanım.lisp') diff --git "a/src/tan\304\261m.lisp" "b/src/tan\304\261m.lisp" new file mode 100644 index 0000000..43af26c --- /dev/null +++ "b/src/tan\304\261m.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)) -- cgit v1.2.3