From a565b6af9b7204eae7ba3f25eac8c49843c83ba4 Mon Sep 17 00:00:00 2001
From: Dave Rolsky <autarch@urth.org>
Date: Sun, 2 Sep 2012 14:12:21 -0500
Subject: [PATCH] Don't regen the TOC every time the page is accessed

---
 share/mason/site/api-docs | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/share/mason/site/api-docs b/share/mason/site/api-docs
index abdbc37..deb125e 100644
--- a/share/mason/site/api-docs
+++ b/share/mason/site/api-docs
@@ -9,14 +9,20 @@
   </div>
 </div>
 
+<%once>
+my $toc;
+</%once>
+
 <%init>
 my $docs = $m->scomp('.docs');
 
-my $toc = Text::TOC::HTML->new();
-$toc->add_file(
-    file    => $m->request_comp()->name(),
-    content => $docs,
-);
+unless ($toc) {
+    $toc = Text::TOC::HTML->new();
+    $toc->add_file(
+        file    => $m->request_comp()->name(),
+        content => $docs,
+    );
+}
 </%init>
 
 <%def .docs>