diff options
| -rw-r--r-- | html-jen.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/html-jen.lisp b/html-jen.lisp index 41bc1c0..4bcf680 100644 --- a/html-jen.lisp +++ b/html-jen.lisp @@ -43,6 +43,15 @@ (setf *yeni-satır* t)) +(defun node->cons (node) + "node u listeye çevirir." + (if (stringp node) + node + (if (null (children node)) + (list (tag node) (props node) (value node)) + (append (list (tag node) (props node)) + (mapcar #'node->cons (children node)))))) + (defparameter bir-node (node! :html (list (node! :head (list (node! :title nil nil "başlık")) |