markdown2svg 0.0.1.22 → 0.0.1.23

raw patch · 2 files changed

+9/−4 lines, 2 files

Files

• markdown2svg.cabal +2/−2
• src/SVG.hs +7/−2

@@ -2,7 +2,7 @@ cabal-version:	>=1.8  name:		markdown2svg-version:	0.0.1.22+version:	0.0.1.23 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.22+  tag:		0.0.1.23  executable markdown2svg   hs-source-dirs:	src

@@ -59,7 +59,7 @@ normalSep = (* (4 / 3)) <$> normal  code, codeSep :: Double -> Double-code = (70 *)+code = (65 *) codeSep = (* (4 / 3)) <$> code  lineChars :: Int@@ -201,8 +201,13 @@ codeToSVGData _ _ h [] = (h, []) codeToSVGData cf r h (s : ss) = (h', l : svgs) 	where-	l = Text (TopLeft (codeLeftMargin r) (h + code r)) (code r) (ColorName "black") cf s+	l = Text+		(TopLeft+			(codeLeftMargin r + (code r) * spaces)+			(h + code r))+		(code r) (ColorName "black") cf s 	(h', svgs) = codeToSVGData cf r (h + codeSep r) ss+	spaces = (* (123 / 200)) $ fromIntegral $ length $ takeWhile (== ' ') s  addChapters :: [Maybe Int] -> [Text] -> [Text] addChapters _ [] = []