feat: Add about page to example

This is done by calling our parse-org function. Turns out sci doesn't
like slurp, so I'll need to figure out how to support it or workaround
it. This example just parses a hard-coded org file as a string.

Author: the-alex

example/site.clj

@@ -1,5 +1,25 @@
 (def site-name "My amazing website")
 
+(def about-page-org-string
+  "
+#+TITLE: Sur Moi
+#+TAGS: foo bar baz
+
+* This is an H1, right?
+
+This is some content under an h1, this is some content under an h1 This is some
+content under an h1, this is some content under an h1 This is some content under
+
+** This is an H2, right?
+*** What about formatting?
+
+A list?
+
+- *BOLD*
+- /Italic/
+- ~fixed-width~
+")
+
 (def-asset global-style
   {:path "/css/global.css"
    :type :css
@@ -13,7 +33,15 @@
     (stylesheet global-style)]
    [:body content]])
 
+(def-asset about-page
+  {:path "/about.html"
+   :type :html
+   :data (page "Sur Moi" (-> about-page-org-string
+                             ;; TODO Can't slurp a file with sci, what do?
+                             (clj-org.org/parse-org)
+                             (:content)))})
+
 (def-asset home-page
   {:path "/index.html"
    :type :html
-   :data (page "Hello world" [:p "This is magic"])})
+   :data (page "Hello world" [:a {:href "/about.html"} "This is a blog link."])})