feat: Add about page example

This is done by calling a parse-org function, the result of composing
slurp and another function by the same name from clj-org.org. This lets
us easily call parse-org on a path in the site.clj and get the hiccup
content back.

Author: the-alex

example/blog/about.org

@@ -0,0 +1,27 @@
+#+TITLE: Sur Moi
+#+TAGS: foo bar baz
+
+* A blog page!
+
+Now /this/ is content!
+
+
+** A subheading
+
+Woah
+
+* What about formatting?
+
+A list?
+
+- *BOLD*
+- /Italic/
+- ~fixed-width~
+
+#+BEGIN_SRC clojure
+(defn hello
+  ([] "Greetings, nerd")
+  ([name] (format "Greetings %s" name)))
+
+(hello "friend")
+#+END_SRC

example/site.clj

@@ -13,7 +13,15 @@
     (stylesheet global-style)]
    [:body content]])
 
+(def-asset about-page
+  {:path "/about.html"
+   :type :html
+   :data (let [{title :title
+                content :content}
+               (parse-org "./example/blog/about.org")]
+           (page title content))})
+
 (def-asset home-page
   {:path "/index.html"
    :type :html
-   :data (page "Hello world" [:p "This is magic"])})
+   :data (page "Hello world" [:a {:href (asset-path about-page)} "This is a blog link."])})

src/teknql/statik/core.clj

@@ -70,8 +70,7 @@
   '[garden.core
     garden.stylesheet
     garden.color
-    garden.units
-    clj-org.org])
+    garden.units])
 
 (defn- ns->src-path
   "Utility to take a required namespace and load a src path with it"
@@ -83,6 +82,12 @@
         (str/replace "." "/"))
     ".clj"))
 
+(defn parse-org [path]
+  "Take a path and return a map of title and content."
+  (-> path
+      (slurp)
+      (clj-org.org/parse-org)))
+
 (defn eval-string
   "Ealuates the provided string. Returns a list of assets defined by the file."
   [s]
@@ -103,6 +108,7 @@
                               'user) {'def-asset       def-asset
                                       'asset-path      asset-path
                                       'stylesheet      stylesheet
+                                      'parse-org       parse-org
                                       'register-asset! #(swap! assets conj %)}}
                          (map (juxt identity ns-interns) included-namespaces))})
     @assets))