Permalink
Browse files

Pretty: Added nestle. API change, minor version bump to 1.12.3.

  • Loading branch information...
1 parent 4e7aadb commit 452a140d0cd808abbdfbb1f91dc35280b1f90794 John MacFarlane committed Jan 3, 2014
Showing with 11 additions and 2 deletions.
  1. +1 −1 pandoc.cabal
  2. +10 −1 src/Text/Pandoc/Pretty.hs
View
@@ -1,5 +1,5 @@
Name: pandoc
-Version: 1.12.2.1
+Version: 1.12.3
Cabal-Version: >= 1.10
Build-Type: Custom
License: GPL
View
@@ -60,6 +60,7 @@ module Text.Pandoc.Pretty (
, hsep
, vcat
, vsep
+ , nestle
, chomp
, inside
, braces
@@ -72,7 +73,7 @@ module Text.Pandoc.Pretty (
)
where
-import Data.Sequence (Seq, fromList, (<|), singleton, mapWithIndex)
+import Data.Sequence (Seq, fromList, (<|), singleton, mapWithIndex, viewl, ViewL(..))
import Data.Foldable (toList)
import Data.List (intercalate)
import Data.Monoid
@@ -186,6 +187,14 @@ vcat = foldr ($$) empty
vsep :: [Doc] -> Doc
vsep = foldr ($+$) empty
+-- | Removes leading blank lines from a 'Doc'.
+nestle :: Doc -> Doc
+nestle (Doc d) = Doc $ go d
+ where go x = case viewl x of
+ (BlankLine :< rest) -> go rest
+ (NewLine :< rest) -> go rest
+ _ -> x
+
-- | Chomps trailing blank space off of a 'Doc'.
chomp :: Doc -> Doc
chomp d = Doc (fromList dl')

0 comments on commit 452a140

Please sign in to comment.