We construct a diagram seeded with Thompson's Anchors used five or more times. enlarge
We follow the outline from Dump a Structure into Graphviz
We call plot(page) for each anchor. This adds a node for this page (gold) and a node for every page it cites (blue). We weave within these the newly edited pages (green). Nodes are clickable and link to wiki pages they represent.
def plot page return if page.nil? @dot << "#{from = quote page['title']}" page['links'].each do |slug, title| to = quote @export[slug]['title'] @dot << "#{to} [URL=#{url title}]" @dot << "#{from} -> #{to}" end end
Full source available. github
See Meta-Meaning for Thompson's reflection.