simyager/html-jen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

node->cons fonksiyonu, sadece test için

Browse Source
This commit is contained in:
riton
2025-03-23 19:57:07 +03:00
parent 99571117b7
commit 9a09f1577c
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
html-jen.lisp
View File

@@ -43,6 +43,15 @@
(setf *yeni-satır* t)) (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 (defparameter bir-node
(node! :html (list (node! :head (node! :html (list (node! :head
(list (node! :title nil nil "başlık")) (list (node! :title nil nil "başlık"))