diff options
| -rw-r--r-- | html-jen.lisp | 21 | ||||
| -rw-r--r-- | tanım.lisp | 20 |
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)) |