diff options
Diffstat (limited to 'trunk/versify.hs')
-rw-r--r-- | trunk/versify.hs | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/trunk/versify.hs b/trunk/versify.hs deleted file mode 100644 index 48e9c00..0000000 --- a/trunk/versify.hs +++ /dev/null | |||
@@ -1,15 +0,0 @@ | |||
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"], []) | ||