packages feed

BlogLiterately 0.7.1.4 → 0.7.1.5

raw patch · 3 files changed

+16/−16 lines, 3 files

Files

BlogLiterately.cabal view
@@ -1,5 +1,5 @@ Name:           BlogLiterately-Version:        0.7.1.4+Version:        0.7.1.5 Synopsis:       A tool for posting Haskelly articles to blogs Description:    Write blog posts in Markdown format, then use BlogLiterately                 to do syntax highlighting, format ghci sessions, and upload
src/Text/BlogLiterately/Options.hs view
@@ -263,7 +263,7 @@                     &= typFile                     &= name "style" &= name "s" &= explicit      , _hsHighlight = enum-       [ Just (HsColourInline defaultStylePrefs)+       [ Nothing          &= explicit          &= name "hscolour-icss"          &= help "highlight haskell: hscolour, inline style (default)"@@ -281,7 +281,7 @@          &= help "highlight haskell with highlighting-kate"        ]      , _otherHighlight = enum-       [ Just True+       [ Nothing          &= explicit          &= name "kate"          &= help "highlight non-Haskell code with highlighting-kate (default)"@@ -291,7 +291,7 @@          &= help "don't highlight non-Haskell code"        ]      , _toc = enum-       [ Just False+       [ Nothing          &= explicit          &= name "no-toc"          &= help "don't generate a table of contents (default)"@@ -323,7 +323,7 @@        &= help "tag (can specify more than one)"       , _citations = enum-        [ Just True+        [ Nothing           &= help "process citations (default)"           &= name "citations"           &= explicit
src/Text/BlogLiterately/Transform.hs view
@@ -336,7 +336,7 @@      >>> runTransforms xforms bl -    >=> _2 (return . writeHtml writeOpts)+    >=> (\(bl', p) -> return $ (bl', writeHtml (writeOpts bl') p) )     >=> _2 (return . renderHtml)   where     parseFile opts =@@ -355,16 +355,16 @@                                      `S.insert` readerExtensions def                 , readerSmart      = True                 }-    writeOpts = def-                { writerReferenceLinks = True-                , writerTableOfContents = toc' bl-                , writerHTMLMathMethod =-                  case math' bl of-                    ""  -> PlainMath-                    opt -> mathOption opt-                , writerStandalone     = True-                , writerTemplate       = blHtmlTemplate-                }+    writeOpts bl = def+                   { writerReferenceLinks = True+                   , writerTableOfContents = toc' bl+                   , writerHTMLMathMethod =+                     case math' bl of+                       ""  -> PlainMath+                       opt -> mathOption opt+                   , writerStandalone     = True+                   , writerTemplate       = blHtmlTemplate+                   }     mathOption opt       | opt `isPrefixOf` "latexmathml" ||         opt `isPrefixOf` "asciimathml" = LaTeXMathML (mathUrlMaybe opt)