scripths 0.2.0.1 → 0.2.0.2

raw patch · 3 files changed

+9/−9 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• scripths.cabal +1/−1
• src/ScriptHs/Markdown.hs +4/−8

@@ -1,5 +1,9 @@ # Revision history for scripths +## 0.2.0.2 -- 2026-03-14++* Stop adding extra white space to code cells.+ ## 0.2.0.1 -- 2026-03-01  * Fix issue with SVG mime type.

@@ -1,6 +1,6 @@ cabal-version:      3.0 name:               scripths-version:            0.2.0.1+version:            0.2.0.2 synopsis:           GHCi scripts for standalone execution and Markdown documentation. description:        GHCi scripts for standalone execution (with dependency resolution) and Markdown documentation (produces inline output). homepage:           https://www.datahaskell.org/

@@ -39,7 +39,7 @@         let             prose = T.unlines acc             (codeLines, rest') = fmap (drop 1) (break ((== fence) . T.strip) rest)-            (output, rest'') = case (dropWhile ((== "") . T.strip) rest') of+            (output, rest'') = case dropWhile ((== "") . T.strip) rest' of                 (x : xs) ->                     if not (T.isPrefixOf "> <!-- sabela:mime" x)                         then (Nothing, rest')@@ -63,12 +63,8 @@  fenceCodeSegment :: Text -> Text -> Text fenceCodeSegment lang output-    | T.null output = ""-    | otherwise = T.unlines ["", fence <> lang, ensureNewLine output, fence, ""]-  where-    ensureNewLine t-        | "\n" `T.isSuffixOf` t = t-        | otherwise = T.snoc t '\n'+    | T.null (T.strip output) = ""+    | otherwise = T.unlines ["", fence <> lang, T.stripEnd output, fence, ""]  reassemble :: [Segment] -> Text reassemble = T.concat . map renderSegment@@ -81,7 +77,7 @@ blockQuote :: CodeOutput -> Text blockQuote (CodeOutput mimeType t) =     let-        ls = ["<!-- sabela:mime " <> mimeIndicator mimeType <> " -->"] ++ T.lines t+        ls = ("<!-- sabela:mime " <> mimeIndicator mimeType <> " -->") : T.lines t         trimmed = reverse $ dropWhile T.null $ reverse ls         quoted = T.unlines $ map (\l -> if T.null l then "> " else "> " <> l) trimmed      in