diff --git a/markdown2svg.cabal b/markdown2svg.cabal
--- a/markdown2svg.cabal
+++ b/markdown2svg.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>=1.8
 
 name:		markdown2svg
-version:	0.0.1.16
+version:	0.0.1.17
 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.16
+  tag:		0.0.1.17
 
 executable markdown2svg
   hs-source-dirs:	src
diff --git a/src/SVG.hs b/src/SVG.hs
--- a/src/SVG.hs
+++ b/src/SVG.hs
@@ -13,12 +13,12 @@
 import SepWords
 import Image
 
-headerFont, normalFont, codeFont :: String
-headerFont = "Kochi Gothic"
-normalFont = "Kochi Mincho"
+headerFont, normalFont, codeFont :: Font
+headerFont = Font "Kochi Gothic" Normal
+normalFont = Font "Kochi Mincho" Normal
 -- normalFont = "Kochi Gothic"
 -- codeFont = "Kochi Gothic"
-codeFont = "Monospace"
+codeFont = Font "Monospace" Normal
 
 textToSVG :: [(FilePath, String)] -> Bool -> Double -> [Text] -> [String]
 textToSVG fp n r = map (showSVG (width r) (height r)) . textToSVGData fp r (topMargin r) .