   (apply str (map #(str \" key \" " -> " \" % \" ";\n") links)))
 
 (defn node-def
+  "Build a node definition for a given graph node. Form: <quoted-name> [color=<colour>,style=filled];\n. Omits colour/filled if no author given."
   [[key {:keys [author]}]]
   (str \" key \"
        (if-let [colour (get author-colours author)]

            #{\w \x \y \z}])

(defn make-turn
  [turn decls]
  (let [turn-decls (filter #(turn (nth % 2)) decls)]
    (str "{ rank=same;\n"

  (:require [clojure.java.io :as io]
            [clj-http.client :as client]
            [pl.danieljanus.tagsoup :as ts]))

;; TODO: Parameterise all data in defs, add code to read it from a config file. This will allow this program to be reused for future wikis.

;; Base address of wiki to walk.
(def wiki-address "http://od117.wikidot.com/")
