git.iko.soy/typeable/pandoc
on master help sign in
Slight improvement to last commit.
a331c69John MacFarlane
src/Text/Pandoc/Citeproc.hs+4−1
compare with master
unifiedsplit
@@ -165,7 +165,10 @@ insertSpace ils =
165 case Seq.lookup 0 rest of
165 case Seq.lookup 0 rest of
166 Just (Span ("",["csl-right-inline"],[]) _) ->
166 Just (Span ("",["csl-right-inline"],[]) _) ->
167 Many $
167 Many $
168− Span ("",["csl-left-margin"],[]) (xs ++ [Space]) Seq.<| rest
168+ Span ("",["csl-left-margin"],[]) (xs ++ case lastMay xs of
169+ Just Space -> []
170+ _ -> [Space])
171+ Seq.<| rest
169 _ -> ils
172 _ -> ils
170 _ -> ils
173 _ -> ils
171
174