Eclectic Media Git rhapsode / 8a54027
Don't let marks interfer with silence collapsing. Adrian Cochrane 4 months ago
1 changed file(s) with 3 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all
5555 buildVoices [] children = children
5656
5757 buildBox self childs = concat [
58 el "mark" [("name", marker self)] [],
5859 breakEl $ pauseBefore self,
5960 audioEl $ cueBefore self,
6061 breakEl $ restBefore self,
61 el "mark" [("name", marker self)] [],
6262 childs,
6363 breakEl $ restAfter self,
6464 audioEl $ cueAfter self,
9494 | break@(NodeElement (Element "break" _ _)):nodes <- reverse $ floatBreaks' childs =
9595 floatBreaks el{elementNodes = reverse nodes} ++ [break]
9696 | otherwise = [NodeElement el]
97 floatBreaks' (NodeElement m@(Element "mark" _ _):NodeElement b@(Element "break" _ _):nodes) =
98 NodeElement b : floatBreaks' (NodeElement m:nodes)
9799 floatBreaks' (NodeElement el:nodes) = floatBreaks el ++ floatBreaks' nodes
98100 floatBreaks' (node:nodes) = node : floatBreaks' nodes
99101 floatBreaks' [] = []