markdown dosyasını htmle dönüştürüp şablona gömme

2025-03-24 00:23:07 +03:00
parent 411505245c
commit 052753e4a3
3 changed files with 34 additions and 4 deletions
--- a/üretim.lisp
+++ b/üretim.lisp
@@ -11,13 +11,13 @@

 (defun tag-yeni-satır? (tag)
  (case tag
-    ((:html :head :body :div :ol :ul) t)
+    ((:html :head :body :div :ol :ul :link) t)
    ((:title :p :b :i :code :li) nil)))

 (defun tag-inline? (tag)
  (case tag
-    ((:html :head :body :div :ol :ul :li :p) nil)
-    ((:title :b :i :code) t)))
+    ((:html :head :body :div :ol :ul :li :p :title) nil)
+    ((:b :i :code) t)))

 (defmethod node->html :before ((node node) &optional (stream *standard-output*))
  (unless (not *yeni-satır*)