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

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

Browse Source
This commit is contained in:
riton
2025-03-24 00:23:07 +03:00
parent 411505245c
commit 052753e4a3
3 changed files with 34 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
ana.lisp Normal file
View File

@@ -0,0 +1,29 @@
(in-package :html-jen)
(defun başlık-bul (node)
(loop :for çocuk :in (children node)
:do (when (eq :h1 (tag çocuk))
(return (value çocuk)))))
(defun şablon-yap (node)
(ebeveyn-node! :html
(list (ebeveyn-node! :head
(list (çocuk-node! :title (başlık-bul node))
;;; geçici hack çünkü /> ile biten tagleri düzgün basamıyorum
" <link href=\"index.css\" rel=\"stylesheet\">
"))
(ebeveyn-node! :body
(list node)))))
(defun şablonlu-yazdır (node &optional (stream *standard-output*))
(format stream "<!DOCTYPE html>~%~%")
(node->html (şablon-yap node) stream))
(defun markdown->html (kaynak hedef)
(let ((okur (okur! kaynak)))
(let ((root (markdown-ayrıştır okur))
(*print-case* :downcase))
(with-open-file (dış hedef :direction :output
:if-does-not-exist :create
:if-exists :supersede)
(şablonlu-yazdır root dış)))))

3
html-jen.asd
View File

@@ -6,4 +6,5 @@
:components ((:file "paket") :components ((:file "paket")
(:file "tanım") (:file "tanım")
(:file "okur") (:file "okur")
(:file "üretim"))) (:file "üretim")
(:file "ana")))

6
üretim.lisp
View File

@@ -11,13 +11,13 @@
(defun tag-yeni-satır? (tag) (defun tag-yeni-satır? (tag)
(case 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))) ((:title :p :b :i :code :li) nil)))
(defun tag-inline? (tag) (defun tag-inline? (tag)
(case tag (case tag
((:html :head :body :div :ol :ul :li :p) nil) ((:html :head :body :div :ol :ul :li :p :title) nil)
((:title :b :i :code) t))) ((:b :i :code) t)))
(defmethod node->html :before ((node node) &optional (stream *standard-output*)) (defmethod node->html :before ((node node) &optional (stream *standard-output*))
(unless (not *yeni-satır*) (unless (not *yeni-satır*)