Support GitHub-flavoured markdown in readmes (fix flora-pm#205)

src/Flora/OddJobs.hs

@@ -19,11 +19,13 @@ module Flora.OddJobs
 where
 
 import Commonmark qualified
+import Commonmark.Extensions (defaultSyntaxSpec, gfmExtensions)
 import Control.Concurrent (forkIO)
 import Control.Exception
 import Control.Monad
 import Control.Monad.IO.Class
 import Data.Aeson (Result (..), fromJSON, toJSON)
+import Data.Function ((&))
 import Data.Pool
 import Data.Text
 import Data.Text.Display
@@ -122,10 +124,9 @@ makeReadme pay@MkReadmePayload{..} = localDomain "fetch-readme" $ do
       logInfo ("got a body for package " <> display mpPackage) (object ["release_id" .= mpReleaseId])
 
       htmlTxt <- do
-        -- let extensions = emojiSpec
-        -- Commonmark.commonmarkWith extensions ("readme " <> show mpPackage) bodyText
-        pure (Commonmark.commonmark ("readme " <> show mpPackage) bodyText)
-          >>= \case
+        let extensions = gfmExtensions <> defaultSyntaxSpec
+        Commonmark.commonmarkWith extensions ("readme " <> show mpPackage) bodyText
+          & \case
             Left exception -> throw (MarkdownFailed exception)
             Right (y :: Commonmark.Html ()) -> pure $ Commonmark.renderHtml y