summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAlasdair Armstrong2020-09-28 14:24:21 +0100
committerGitHub2020-09-28 14:24:21 +0100
commit551bca444eaf0acd97324c12005e9a8280437217 (patch)
treef1dab8ac1a2444ec1c164f380ce0d217dc8b357f /src
parentc79b2759fa85373d25c1d2d64c3599a5773a4c68 (diff)
parent263ffca94d22e1ff7ce32d8f6ba782b0fcacd0d7 (diff)
Merge pull request #98 from arichardson/add-sectioning-commands
Handle sectioning commands in saildoc LaTeX output
Diffstat (limited to 'src')
-rw-r--r--src/latex.ml8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/latex.ml b/src/latex.ml
index c59d8367..be3e8748 100644
--- a/src/latex.ml
+++ b/src/latex.ml
@@ -276,11 +276,15 @@ let latex_of_markdown str =
| (Ul list | Ulp list) ->
"\\begin{itemize}\n\\item "
^ Util.string_of_list "\n\\item " format list
- ^ "\n\\end{itemize}"
+ ^ "\n\\end{itemize}\n"
| (Ol list | Olp list) ->
"\\begin{enumerate}\n\\item "
^ Util.string_of_list "\n\\item " format list
- ^ "\n\\end{enumerate}"
+ ^ "\n\\end{enumerate}\n"
+ | H1 header -> "\\section*{" ^ (format header) ^ "}\n"
+ | H2 header -> "\\subsection*{" ^ (format header) ^ "}\n"
+ | H3 header -> "\\subsubsection*{" ^ (format header) ^ "}\n"
+ | H4 header -> "\\paragraph*{" ^ (format header) ^ "}\n"
| Br -> "\n"
| NL -> "\n"
| elem -> failwith ("Can't convert to latex: " ^ Omd_backend.sexpr_of_md [elem])