1 files changed, 3 insertions, 1 deletions
diff --git a/site.hs b/site.hs
index 8626fa3..e634f05 100644
--- a/site.hs
+++ b/site.hs
@@ -178,7 +178,9 @@ installPage mount pi = do
   fixedUrlDoc <-
     walkURLs (processLink $ pi ^. pagePath . to takeDirectory) $ pi ^. pageDoc
   checkTarget file
-  body <- io . runIOorExplode $ writeHtml5String htmlWriteOpts fixedUrlDoc
+  body <-
+    io . runIOorExplode $ writeHtml5String htmlWriteOpts $
+    addHeadingLinks "header-local-anchor" fixedUrlDoc
   let Y.Object meta' = pi ^. pageMeta
       meta = Y.Object $ KM.insert "body" (Y.String body) meta'
   meta <- addGlobalMeta meta >>= addPageMeta pi