style(apidocs): fix code blocks

2021-08-19 12:52:52 +02:00 · 2021-08-19 12:52:52 +02:00 · 4e5989bb81
commit 4e5989bb81
parent 88cf1fa2c3
2 changed files with 13 additions and 9 deletions
--- 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
--- 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