1 files changed, 15 insertions, 0 deletions
diff --git a/scripts/versify.hs b/scripts/versify.hs
new file mode 100644
index 0000000..48e9c00
--- /dev/null
+++ b/scripts/versify.hs

@@ -0,0 +1,15 @@
+import Text.Pandoc.JSON
+import Data.List.Split
+main :: IO ()
+main = toJSONFilter transformVerseParas
+transformVerseParas :: Block -> Block
+transformVerseParas (Para xs)
+    | LineBreak `elem` xs = Para (addLineSpans xs)
+    | otherwise = Para xs
+transformVerseParas x = x
+addLineSpans :: [Inline] -> [Inline]
+addLineSpans = map encloseInSpan . splitWhen (== LineBreak)
+    where encloseInSpan = Span ("", ["line"], [])

diff --git a/scripts/versify.hs b/scripts/versify.hs new file mode 100644 index 0000000..48e9c00 --- /dev/null +++ b/scripts/versify.hs
@@ -0,0 +1,15 @@
	1	import Text.Pandoc.JSON
	2	import Data.List.Split
	3
	4	main :: IO ()
	5	main = toJSONFilter transformVerseParas
	6
	7	transformVerseParas :: Block -> Block
	8	transformVerseParas (Para xs)
	9	\| LineBreak `elem` xs = Para (addLineSpans xs)
	10	\| otherwise = Para xs
	11	transformVerseParas x = x
	12
	13	addLineSpans :: [Inline] -> [Inline]
	14	addLineSpans = map encloseInSpan . splitWhen (== LineBreak)
	15	where encloseInSpan = Span ("", ["line"], [])