use flaguse

Author: srid

emanote/src/Emanote/Pandoc/Renderer.hs

@@ -50,6 +50,8 @@ mkRenderCtxWithPandocRenderers ::
   Map Text Text ->
   model ->
   route ->
+  -- | Enable syntax highlighting for code blocks
+  Bool ->
   HeistT Identity m Splices.RenderCtx
 mkRenderCtxWithPandocRenderers nr@PandocRenderers {..} classRules model x =
   Splices.mkRenderCtx

emanote/src/Emanote/View/Common.hs

@@ -90,9 +90,13 @@ mkTemplateRenderCtx model r meta =
           classRules
           model
           r
+          enableSyntaxHighlighting
     classRules :: Map Text Text
     classRules =
       SData.lookupAeson mempty ("pandoc" :| ["rewriteClass"]) meta
+    enableSyntaxHighlighting :: Bool
+    enableSyntaxHighlighting =
+      SData.lookupAeson True ("emanote" :| ["syntaxHighlighting"]) meta
 
 defaultRouteMeta :: Model -> (LMLRoute, Aeson.Value)
 defaultRouteMeta model =