diff options
| author | riton <riton@riton.home> | 2025-03-28 21:52:26 +0300 |
|---|---|---|
| committer | riton <riton@riton.home> | 2025-03-28 21:52:26 +0300 |
| commit | 80152b609225285251a49d1532bf8746bfbab35d (patch) | |
| tree | 50faec2cdc1dea1cb0aa84dffa48ab3970af2952 /ana.lisp | |
| parent | 4b494af46035e80bb741881c1717c789638607c5 (diff) | |
kaynak dosyalar src dizinine taşındı
Diffstat (limited to 'ana.lisp')
| -rw-r--r-- | ana.lisp | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/ana.lisp b/ana.lisp deleted file mode 100644 index 4b74169..0000000 --- a/ana.lisp +++ /dev/null @@ -1,36 +0,0 @@ -(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ış))))) - -(defun ana () - (let ((args sb-ext:*posix-argv*)) - (assert (= 3 (length args))) - (let ((kaynak (nth 1 args)) - (hedef (nth 2 args))) - (markdown->html kaynak hedef)))) |