From 4e5989bb8178323aa6b8ea550c8e82cf3dd687c7 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Thu, 19 Aug 2021 12:52:52 +0200
Subject: [PATCH] style(apidocs): fix code blocks

---
 frontend/src/app.sass  | 16 ++++++++--------
 src/Handler/ApiDocs.hs |  6 +++++-
 2 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/frontend/src/app.sass b/frontend/src/app.sass
index acc5e6aa1..c085be12a 100644
--- a/frontend/src/app.sass
+++ b/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
diff --git a/src/Handler/ApiDocs.hs b/src/Handler/ApiDocs.hs
index 51d9594a2..6775333dc 100644
--- a/src/Handler/ApiDocs.hs
+++ b/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