HakyllのCompilerでemoji(:dogs:)をコンパイルする

Posted on 2017/06/27
Tags: [Haskell]

💠 🐕 💠 (:diamond_shape_with_a_dot_inside: :dog2: :diamond_shape_with_a_dot_inside:

🐶

 僕のこのブログのposts/*.mdは、以下のようにhtmlへ、site.hsによってコンパイルされます 👍

main :: IO ()
main = hakyll $ do
    -- 前略
    match "posts/*" $ do
    route $ setExtension "html"
    compile $ pandocCompiler
        >>= loadAndApplyTemplate "templates/post.html" postCtx
        >>= loadAndApplyTemplate "templates/default.html" postCtx
        >>= relativizeUrls
    -- 後略

pandocCompilerはhakyllによって以下のように定義されてます 😄

-- Hakyll.Web.Pandoc
pandocCompiler :: Compiler (Item String)
pandocCompiler = pandocCompilerWith defaultHakyllReaderOptions defaultHakyllWriterOptions
--pandocCompilerWith :: ReaderOptions -> WriterOptions -> Compiler (Item String)

:smile:のような絵文字をHakyllで使うには、pandocCompilerWithdefaultHakyllReaderOptionsreaderExtensionsText.Pandoc.Options.ExtensionExt_emojiを追加してあげます。

pandocCompilerWithEmoji :: Compiler (Item String)
pandocCompilerWithEmoji =
  let readerExtensions' = readerExtensions defaultHakyllReaderOptions
  in pandocCompilerWith
    defaultHakyllReaderOptions { readerExtensions = Set.insert Ext_emoji readerExtensions' }
    defaultHakyllWriterOptions

main :: IO ()
main = hakyll $ do
    -- 前略
    match "posts/*" $ do
    route $ setExtension "html"
    compile $ pandocCompilerWithEmoji -- !!
        >>= loadAndApplyTemplate "templates/post.html" postCtx
        >>= loadAndApplyTemplate "templates/default.html" postCtx
        >>= relativizeUrls
    -- 後略

👍 😃



この記事はこちらから修正リクエストを送ることができます。
HakyllのCompilerでemoji(:dogs:)をコンパイルする - github
ゴミ箱ボタンの左にある、鉛筆ボタンを押してね!