latex-svg-hakyll 0.1 → 0.2

raw patch · 2 files changed

+13/−9 lines, 2 filesdep ~latex-svg-imagedep ~latex-svg-pandocPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: latex-svg-image, latex-svg-pandoc

API changes (from Hackage documentation)

Files

• latex-svg-hakyll.cabal +3/−3
• src/Hakyll/Contrib/LaTeX.hs +10/−6

@@ -1,6 +1,6 @@ cabal-version: 2.2 name:          latex-svg-hakyll-version:       0.1+version:       0.2 synopsis:      Use actual LaTeX to render formulae inside Hakyll pages description:   This library provides functions to render all math formulae inside@@ -31,7 +31,7 @@   build-depends:     , base              >=4.10      && <4.14     , hakyll            ^>=4.12.5.2 || ^>=4.13.0.0-    , latex-svg-image   ^>=0.1-    , latex-svg-pandoc  ^>=0.1+    , latex-svg-image   ^>=0.2+    , latex-svg-pandoc  ^>=0.2     , lrucache          ^>=1.2     , pandoc-types      ^>=1.17.6.1 || ^>=1.20

@@ -13,6 +13,7 @@     ) where  import Data.Char              (isSpace)+import Data.Maybe             (fromMaybe) import Hakyll.Core.Compiler   (Compiler, unsafeCompiler) import Text.Pandoc.Definition (Pandoc) @@ -45,9 +46,9 @@ initFormulaCompilerSVG cs eo = do     mImageForFormula <- curry <$> memoizeLru (Just cs) (uncurry drawFormula)     let eachFormula x y = do-          putStrLn $ "    formula (" ++ environment x ++ ") \"" ++ equationPreview y ++ "\""+          putStrLn $ "    formula (" ++ environment' x ++ ") \"" ++ equationPreview y ++ "\""           mImageForFormula x y-    return $ \fo -> unsafeCompiler . convertAllFormulaeSVGWith eachFormula fo+    return $ \fo -> unsafeCompiler . convertFormulaSvgPandocWith eachFormula fo   where     drawFormula x y = do         putStrLn "      drawing..."@@ -72,10 +73,10 @@ initFormulaCompilerSVGPure eo fo pandoc = do     let mImageForFormula = drawFormula     let eachFormula x y = do-          putStrLn $ "    formula (" ++ environment x ++ ") \"" ++ equationPreview y ++ "\""+          putStrLn $ "    formula (" ++ environment' x ++ ") \"" ++ equationPreview y ++ "\""           mImageForFormula x y -    unsafeCompiler (convertAllFormulaeSVGWith eachFormula fo pandoc)+    unsafeCompiler (convertFormulaSvgPandocWith eachFormula fo pandoc)   where     drawFormula x y = do         putStrLn "      drawing..."@@ -91,10 +92,10 @@     -> Pandoc -> Compiler Pandoc compileFormulaeSVG eo po =     let eachFormula x y = do-          putStrLn $ "    formula (" ++ environment x ++ ") \"" ++ equationPreview y ++ "\""+          putStrLn $ "    formula (" ++ environment' x ++ ") \"" ++ equationPreview y ++ "\""           putStrLn   "      drawing..."           imageForFormula eo x y-    in unsafeCompiler . convertAllFormulaeSVGWith eachFormula po+    in unsafeCompiler . convertFormulaSvgPandocWith eachFormula po  equationPreview :: String -> String equationPreview x'@@ -114,3 +115,6 @@                 ret <- action arg                 LRU.insert arg ret lru                 return ret++environment' :: FormulaOptions -> String+environment'  = fromMaybe "-" . environment