frontend/src/app.sass

@@ -1444,14 +1444,14 @@ a.breadcrumbs__home
   &__label
     grid-area: label
 
-code
-  display: block
-  box-shadow: inset 0 0 4px 4px var(--color-grey-light)
-  white-space: pre-wrap
-  font-family: monospace
-  overflow-x: auto
-  tab-size: 2
-  padding: 10px
+.apidocs
+  pre
+    display: block
+    box-shadow: inset 0 0 4px 4px var(--color-grey-light)
+    white-space: pre-wrap
+    overflow-x: auto
+    tab-size: 2
+    padding: 10px
 
 .news__system-messages
   overflow-y: auto

src/Handler/ApiDocs.hs

@@ -18,7 +18,11 @@ getApiDocsR = selectRep $ do
     Right html -> provideRep . siteLayoutMsg MsgBreadcrumbApiDocs $ do
       setTitleI MsgBreadcrumbApiDocs
 
-      toWidget html
+      [whamlet|
+        $newline never
+        <div .apidocs>
+          ^{html}
+      |]
     Left  _err -> return ()
   provideRepType "text/markdown" $ return mdDocs
   where