          "}\n")))
 
 (defn make-order
+  "Make a subgraph for the turn ordering."
   []
   (str (apply str (interpose "->" (map #(apply str (sort %)) turns))) ";\n"))
 
 (defn graphify-ranked
-  "Convert a map representation of the graph into a string of graphviz dot language."
+  "Convert a map representation of the graph into a string of graphviz dot language. Use a turn order to create a tiered graph."
   [g]
   (let [decls (map #(make-turn % (map node-def (seq g))) turns) 
         vals (map graphify-one (seq g))]

          #{}
          (ts/children html)))

(defn extract-author
  "Extract the author of the entry from the html. Assumes there is only one author linked."
  [html]

         "}\n")))

(defn graphify-unordered
  "Convert a map representation of the graph into a string of graphviz dot language. Just let dot do whatever its heart tells it."
  [g]
  (let [decls (map node-def (seq g))
        vals (map graphify-one (seq g))]
