Skip to content
Browse files

Manage h5 and h6 headings

  • Loading branch information...
1 parent bd6d1a5 commit 060129e85e6b310f595890d9d6579c89eb6d09e7 @Armael Armael committed Feb 10, 2013
Showing with 3 additions and 1 deletion.
  1. +3 −1 lib/markdown.ml
View
4 lib/markdown.ml
@@ -416,7 +416,9 @@ and para p =
| Heading (1,pt) as h -> <:html<<h1>$heading_content h pt$</h1>&>>
| Heading (2,pt) as h -> <:html<<h2>$heading_content h pt$</h2>&>>
| Heading (3,pt) as h -> <:html<<h3>$heading_content h pt$</h3>&>>
- | Heading (_,pt) as h -> <:html<<h4>$heading_content h pt$</h4>&>>
+ | Heading (4,pt) as h -> <:html<<h4>$heading_content h pt$</h4>&>>
+ | Heading (5,pt) as h -> <:html<<h5>$heading_content h pt$</h5>&>>
+ | Heading (_,pt) as h -> <:html<<h6>$heading_content h pt$</h6>&>>
| Quote pl -> <:html<<blockquote>$paras pl$</blockquote>&>>
| Ulist (pl,pll) -> let l = pl :: pll in <:html<<ul>$li l$</ul>&>>
| Olist (pl,pll) -> let l = pl :: pll in <:html<<ol>$li l$</ol>&>>

0 comments on commit 060129e

Please sign in to comment.
Something went wrong with that request. Please try again.