@@ -110,6 +110,12 @@ blockToLaTeX (BulletList lst) = "\\begin{itemize}\n" ++
110 (concatMap listItemToLaTeX lst) ++ "\\end{itemize}\n"
110 (concatMap listItemToLaTeX lst) ++ "\\end{itemize}\n"
111blockToLaTeX (OrderedList lst) = "\\begin{enumerate}\n" ++
111blockToLaTeX (OrderedList lst) = "\\begin{enumerate}\n" ++
112 (concatMap listItemToLaTeX lst) ++ "\\end{enumerate}\n"
112 (concatMap listItemToLaTeX lst) ++ "\\end{enumerate}\n"
113+blockToLaTeX (DefinitionList lst) =
114+ let defListItemToLaTeX (term, def) = "\\item[" ++
115+ substitute "]" "\\]" (inlineListToLaTeX term) ++ "] " ++
116+ concatMap blockToLaTeX def
117+ in "\\begin{description}\n" ++ concatMap defListItemToLaTeX lst ++
118+ "\\end{description}\n"
113blockToLaTeX HorizontalRule =
119blockToLaTeX HorizontalRule =
114 "\\begin{center}\\rule{3in}{0.4pt}\\end{center}\n\n"
120 "\\begin{center}\\rule{3in}{0.4pt}\\end{center}\n\n"
115blockToLaTeX (Header level lst) =
121blockToLaTeX (Header level lst) =
@@ -140,7 +146,6 @@ blockToLaTeX (Table caption aligns widths heads rows) =
140 then centered tableBody ++ "\n"
146 then centered tableBody ++ "\n"
141 else "\\begin{table}[h]\n" ++ centered tableBody ++ "\\caption{" ++
147 else "\\begin{table}[h]\n" ++ centered tableBody ++ "\\caption{" ++
142 captionText ++ "}\n" ++ "\\end{table}\n\n"
148 captionText ++ "}\n" ++ "\\end{table}\n\n"
145printDecimal :: Float -> String
150printDecimal :: Float -> String
146printDecimal = printf "%.2f"
151printDecimal = printf "%.2f"