markdown2svg 0.0.1.15 → 0.0.1.16

raw patch · 2 files changed

+8/−2 lines, 2 files

Files

• markdown2svg.cabal +2/−2
• src/SepWords.hs +6/−0

@@ -2,7 +2,7 @@ cabal-version:	>=1.8  name:		markdown2svg-version:	0.0.1.15+version:	0.0.1.16 stability:	Experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -31,7 +31,7 @@ source-repository	this   type:		git   location:	git://github.com/YoshikuniJujo/markdown2svg.git-  tag:		0.0.1.15+  tag:		0.0.1.16  executable markdown2svg   hs-source-dirs:	src

@@ -30,6 +30,12 @@  sepWords_ :: Int -> Int -> String -> [String] sepWords_ _ _ "" = [""]+sepWords_ n k (c : c'@('」') : cs)+	| k > n = [c, c'] : sepWords_ n 0 cs+	| otherwise = let l : ls = sepWords_ n (k + 4) cs in (c : c' : l) : ls+sepWords_ n k (c : c'@('、') : cs)+	| k > n = [c, c'] : sepWords_ n 0 cs+	| otherwise = let l : ls = sepWords_ n (k + 4) cs in (c : c' : l) : ls sepWords_ n k (c : c'@('。') : cs) 	| k > n = [c, c'] : sepWords_ n 0 cs 	| otherwise = let l : ls = sepWords_ n (k + 4) cs in (c : c' : l) : ls