   (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)]

         "}\n")))

(defn graphify-unordered
  [g]
  (let [decls (map node-def (seq g))
        vals (map graphify-one (seq g))]

                   "/mendacious-islands"])

(defn -main
  "Calculate and print graphs of OD-117 to ranked.dot and general.dot."
  [& args]
  (let [g (walk start-points authors)]
    (with-open [wrtr (io/writer "ranked.dot")]
