Add syntax highlighting. Closes #310

qria · qria · commit 1d405e63e3e1 · 2018-08-16T19:38:15.000+09:00
diff --git a/src/Nirum/Targets/Docs.hs b/src/Nirum/Targets/Docs.hs
@@ -105,6 +105,9 @@ $doctype 5
         $forall Author { name = name' } <- authors md
             <meta name="author" content="#{name'}">
         <link rel="stylesheet" href="#{root}style.css">
+        <link rel="stylesheet" href="#{hljsCss}">
+        <script src="#{hljsJs}"></script>
+        <script>hljs.initHighlightingOnLoad();</script>
     <body>
         #{preEscapedToMarkup $ docsHeader $ target pkg}
         <nav>
@@ -161,6 +164,16 @@ $doctype 5
     documentSortKey ("", _) = (False, 0, "")
     documentSortKey (fp@(fp1 : _), _) =
         (isUpper fp1, length (filter (== pathSeparator) fp), fp)
+    hljsCss :: T.Text
+    hljsCss = T.concat
+        [ "https://cdnjs.cloudflare.com/ajax/libs/highlight.js/9.12.0"
+        , "/styles/github.min.css"
+        ]
+    hljsJs :: T.Text
+    hljsJs = T.concat
+        [ "https://cdnjs.cloudflare.com/ajax/libs/highlight.js/9.12.0/"
+        , "highlight.min.js"
+        ]
 
 typeExpression :: BoundModule Docs -> TE.TypeExpression -> Html
 typeExpression _ expr = [shamlet|#{typeExpr expr}|]
@@ -490,7 +503,7 @@ strong code
 pre
     padding: 16px 10px
     background-color: #{gray1}
-    code
+    code, code.hljs
         background: none
 div
     border-top: 1px solid #{gray3}
