From 077ce0571096cf1bee3b3219991088d844de8700 Mon Sep 17 00:00:00 2001
From: Superkooka <aymeric.gueracague@gmail.com>
Date: Wed, 14 Feb 2024 21:07:21 +0100
Subject: [PATCH] write page to stdout

Signed-off-by: Superkooka <aymeric.gueracague@gmail.com>
---
 blog.janet                   | 42 +++++++++++++++---------------------
 partial-template/footer.html | 13 +++++++++++
 partial-template/header.html | 37 +++++++++++++++++++++++++++++++
 3 files changed, 67 insertions(+), 25 deletions(-)
 create mode 100644 partial-template/footer.html
 create mode 100644 partial-template/header.html

diff --git a/blog.janet b/blog.janet
index 5767a7c..afe4502 100644
--- a/blog.janet
+++ b/blog.janet
@@ -65,11 +65,11 @@
 (defn ast-to-html
   "Convert an AST to html"
   [ast]
-    (defn to-codeblock [lang value] (string "<pre><code>" (htmlspecialchars value) "</code></pre>"))
+    (defn to-codeblock [lang value] (string "<pre class=\"my-4\"><code>" (htmlspecialchars value) "</code></pre>"))
     (defn to-codeline [value] (string "<code>" (ast-to-html value) "</code>"))
-    (defn to-heading [level value] (string "<h" level ">" (htmlspecialchars value) "</h" level ">"))
-    (defn to-quote [value] (string "<blockquote>" (ast-to-html value) "</blockquote>"))
-    (defn to-line [value] (string "<p>" (ast-to-html value) "</p>"))
+    (defn to-heading [level value] (string "<h" level " class=\"my-4\">" (htmlspecialchars value) "</h" level ">"))
+    (defn to-quote [value] (string "<blockquote class=\"my-4\">" (ast-to-html value) "</blockquote>"))
+    (defn to-line [value] (string "<p class=\"my-4\">" (ast-to-html value) "</p>"))
     (defn to-italic [value] (string "<em>" (ast-to-html value) "</em>"))
     (defn to-bold [value] (string "<strong>" (ast-to-html value) "</strong>"))
     (defn to-stroke [value] (string "<stroke>" (ast-to-html value) "</stroke>"))
@@ -77,26 +77,16 @@
     (string/join
       (map
         |(match $0
-           [:code-block lang value]
-           (to-codeblock lang value)
-           [:heading level value]
-           (to-heading level value)
-           [:quote value]
-           (to-quote value)
-           [:hr]
-           "<hr/>"
-           [:line value]
-           (to-line value)
-           [:text value]
-           (htmlspecialchars value)
-           [:italic value]
-           (to-italic value)
-           [:stroke value]
-           (to-stroke value)
-           [:bold value]
-           (to-bold value)
-           [:code-line value]
-           (to-codeline value)
+           [:code-block lang value] (to-codeblock lang value)
+           [:heading level value] (to-heading level value)
+           [:quote value] (to-quote value)
+           [:hr] "<hr/>"
+           [:line value] (to-line value)
+           [:text value] (htmlspecialchars value)
+           [:italic value] (to-italic value)
+           [:stroke value] (to-stroke value)
+           [:bold value] (to-bold value)
+           [:code-line value] (to-codeline value)
            _
            (error (string "Invalid symbol: " (get $0 0))))
         ast)
@@ -113,4 +103,6 @@
 
 (defn main [bin & args]
   # (pp-ast (peg/match md-to-ast (read-from-file "raw/~blog/blog.md")))
-  (print (ast-to-html (peg/match md-to-ast (read-from-file "raw/~blog/blog.md")))))
+  (print (read-from-file "partial-template/header.html"))
+  (print (ast-to-html (peg/match md-to-ast (read-from-file "raw/~blog/blog.md"))))
+  (print (read-from-file "partial-template/footer.html")))
diff --git a/partial-template/footer.html b/partial-template/footer.html
new file mode 100644
index 0000000..feecd54
--- /dev/null
+++ b/partial-template/footer.html
@@ -0,0 +1,13 @@
+    </main>
+    <footer class="w-full fixed m-1 left-0 bottom-0 flex justify-center">
+        <a class="mx-1 underline" href="#">Flux RSS</a>
+        <span class="mx-1">&bull;</span>
+        <a class="mx-1 underline" href="#">Inspirer de Sidey</a>
+        <span class="mx-1">&bull;</span>
+        <a class="mx-1 underline" href="#">GitHub</a>
+        <span class="mx-1">&bull;</span>
+        <a class="mx-1 underline" href="#">Instagram</a>
+    </footer>
+</body>
+
+</html>
\ No newline at end of file
diff --git a/partial-template/header.html b/partial-template/header.html
new file mode 100644
index 0000000..68463eb
--- /dev/null
+++ b/partial-template/header.html
@@ -0,0 +1,37 @@
+<!DOCTYPE html>
+<html lang="en">
+
+<head>
+    <meta charset="UTF-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1.0">
+    <link rel="preconnect" href="https://fonts.googleapis.com">
+    <link rel="preconnect" href="https://fonts.gstatic.com" crossorigin>
+    <link href="https://fonts.googleapis.com/css2?family=Source+Sans+3:wght@400&display=swap" rel="stylesheet">
+    <script src="https://cdn.tailwindcss.com/3.3.7"></script>
+    <script>
+        tailwind.config = {
+            theme: {
+                extend: {
+                    fontFamily: {
+                        'sans': ['"Source Sans 3"'],
+                    },
+                }
+            }
+        }
+    </script>
+    <title>Meow</title>
+</head>
+
+<body class="flex flex-row my-8">
+    <nav class="my-8 ml-16 text-xl">
+        <div class="flex flex-row">
+            <ul class="flex flex-col mr-6">
+                <li class="p-1 w-max"><a href="../index.html">Blog</a></li>
+                <li class="p-1 w-max"><a href="index.html">Portfolio</a></li>
+                <li class="p-1 w-max"><a href="index.html">À Propos de moi</a></li>
+            </ul>
+            <span class="after:content-[''] after:w-[1px] after:bg-black after:my-2 after:h-4/5 after:block"></span>
+        </div>
+    </nav>
+    <main class="my-8 ml-24 mr-[38rem]">