⚠️ Oops! This page doesn't appear to define a type called _.
Edit

Beware: the functions in this module may raise exceptions! If you use them, you should be careful.

other items defined

type r = Omd_representation.t

accumulator (beware, reversed tokens)

type p = list(tok)

context information: previous elements

type l = list(tok)

tokens to parse

type main_loop = ( ~?html: option(bool), r, p, l ) => Omd_representation.t

most important loop, which has to be given as an argument

let default_parse: ( ~?extensions: option(extensions), ~?default_lang: option(string), l ) => Omd_representation.t

Translate tokens to Markdown representation.

Param: lang

language for blocks of code where it was not specified. Default: "".

module Default_env : Env

module Make

This module does not have a toplevel documentation block.

let rc: ref_container

reference container

let extensions: extensions

reference container

let default_lang: string

list of parser extensions

let gh_uemph_or_bold_style: bool

default language for code blocks

let blind_html: bool

flag: bold/emph using using underscores is by default github-style, which means that underscores inside words are left as underscore, rather than special characters, because it's more convenient. However it is also less expressive because then you can't bold/emph a part of a word. You might want to set this flag to false.

let strict_html: bool

flag: if true, will not check whether a used HTML tag actually exists in HTML.

let htmlcodes_set: StringSet.t

set of known HTML codes

let inline_htmltags_set: StringSet.t

set of known inline HTML tags

let htmltags_set: StringSet.t

All known HTML tags

let unindent_rev: (int, list(tok)) => (list(tok), list(tok))

unindent_rev n l returns the same couple as unindent n l except that the first element (which is a list) is reversed. This function is used for lists.

let unindent: (int, list(tok)) => (list(tok), list(tok))

unindent n l returns (unindented, rest) where unindented is the consecutive lines of l that are indented with at least n spaces, and de-indented by n spaces. If l starts with a line that is indented by less than n spaces, then it returns ([], l).

(* This function is used for lists, so it does not require n *) (* spaces on every single line, but only on some specific ones of them. *)

This function is used for lists and blockquotes.

let is_blank: list(tok) => bool

is_blank l returns true if l only contains blanks, which are spaces and newlines.

let semph_or_bold: (int, list(tok)) => option( (list(tok), list(tok)) )

semph_or_bold n l returns None if l doesn't start with a bold/emph phrase (marked using stars), else it returns Some(x,y) where x is the emph and/or bold phrase at the beginning of l and y is the rest of l.

let sm_uemph_or_bold: (int, list(tok)) => option( (list(tok), list(tok)) )

sm_uemph_or_bold n l returns None if l doesn't start with a bold/emph phrase (marked using underscores), else it returns Some(x,y) where x is the emph and/or bold phrase at the beginning of l and y is the rest of l.

let gh_uemph_or_bold: (int, list(tok)) => option( (list(tok), list(tok)) )

gh_uemph_or_bold n l returns None if l doesn't start with a bold/emph phrase (marked using underscores), else it returns Some(x,y) where x is the emph and/or bold phrase at the beginning of l and y is the rest of l.

let uemph_or_bold: (int, list(tok)) => option( (list(tok), list(tok)) )

uemph_or_bold n l returns None if l doesn't start with a bold/emph phrase (marked using underscores), else it returns Some(x,y) where x is the emph and/or bold phrase at the beginning of l and y is the rest of l. N.B. if !gh_uemph_or_bold_style then in Github style (i.e., underscores inside words are considered as underscores).

let eat_blank: list(tok) => list(tok)

eat_blank l returns l where all blanks at the beginning of the list have been removed (it stops removing as soon as it meets an element that is not a blank). Blanks are spaces and newlines only.

let tag__maybe_h1: main_loop => tok

tag__maybe_h1 main_loop is a tag that is injected everywhere that might preceed a H1 title. It needs main_loop as argument because it is used to parse the contents of the titles.

let tag__maybe_h2: main_loop => tok

tag__maybe_h2 main_loop is the same as tag__maybe_h1 main_loop but for H2.

let tag__md: Omd_representation.t => tok

tag__md md encapsulates md to make it a value of type tok. Its purpose is to inject some pre-parsed markdown (i.e., md of type t) in a yet-to-parse token stream of type tok.

let tag_setext: (main_loop, list(tok)) => list(tok)

Tag used for the lines that *might* be titles using setext-style.

let hr_m: l => option(l)

hr_m l returns Some nl where nl is the remaining of l if l contains a horizontal rule "drawn" with dashes. If there's no HR, then returns None.

let hr_s: l => option(l)

hr_s l is the same as hr_m l but for horizontal rules "drawn" with stars instead.

let read_until_gt: ( ~?bq: option(bool), ~?no_nl: option(bool), list(tok) ) => (list(tok), list(tok))

let read_until_lt: ( ~?bq: option(bool), ~?no_nl: option(bool), list(tok) ) => (list(tok), list(tok))

let read_until_cparenth: ( ~?bq: option(bool), ~?no_nl: option(bool), list(tok) ) => (list(tok), list(tok))

let read_until_oparenth: ( ~?bq: option(bool), ~?no_nl: option(bool), list(tok) ) => (list(tok), list(tok))

let read_until_dq: ( ~?bq: option(bool), ~?no_nl: option(bool), list(tok) ) => (list(tok), list(tok))

let read_until_q: ( ~?bq: option(bool), ~?no_nl: option(bool), list(tok) ) => (list(tok), list(tok))

let read_until_obracket: ( ~?bq: option(bool), ~?no_nl: option(bool), list(tok) ) => (list(tok), list(tok))

let read_until_cbracket: ( ~?bq: option(bool), ~?no_nl: option(bool), list(tok) ) => (list(tok), list(tok))

let read_until_space: ( ~?bq: option(bool), ~?no_nl: option(bool), list(tok) ) => (list(tok), list(tok))

let read_until_newline: list(tok) => (list(tok), list(tok))

read_until_... are functions that read from a token list and return two token lists: the first one is the tokens read until a specific token is met, and the second one is the remainder. The particularity of these functions is that they do consider backslash-escaped characters and closing characters. For instance, read_until_gt "1 < 2 > 3 > 4" returns "1 < 2 > 3 ", " 4": note that the ">" before " 4" has disappeared and that read_until_gt takes a tok list (not a string) and returns a couple of tok list (not a couple of strings), the string notation is used here for concision.

Until otherwise noted, those functions do *not* consider backquote-trapped sections. For instance, read_until_gt "1 < 2 > 3 `>` 4" returns "1 < 2 > 3 `", "` 4". If you use these functions, you should make sure that they do what you think they do (i.e., do look at the code).

If the expected characters are not found, the exception Premature_ending is raised. For instance, read_until_gt "1 < > 3" raises Premature_ending.

If no_nl is true (default value for no_nl is false) and '\n' occurs before the splitting character, then NL_exception is raised.

let read_title: (main_loop, int, r, p, l) => option( (r, p, l) )

read_title main_loop n r p l returns Some(r,p,l) if it succeeds, None otherwise.

read_title main_loop n r p l expects to read a n-level hash-declared title from l, where the hashes have *already* been *removed*. If n is not between 1 and 6 (included), then it returns None.

main_loop is used to parse the contents of the title.

r and p are the classical "result" and "previous" parameters.

let maybe_extension: (extensions, r, p, l) => option( (r, p, l) )

maybe_extension e r p l returns None if there is no extension or if extensions haven't had any effect, returns Some(nr, np, nl) if at least one extension has applied successfully.

let emailstyle_quoting: (main_loop, r, p, l) => option( (r, p, l) )

emailstyle_quoting main_loop r p l returns Some(r,p,l) with r being the updated result, p being the last parsed token and l being the remaining tokens to parse. If emailstyle_quoting fails, then it returns None, in which case its user is advise to investigate why it returns None because there's possibly a real problem.

let maybe_reference: ( main_loop, ref_container, r, p, l ) => option((r, p, l))

maybe_reference tries to parse a reference, a reference definition or a github-style short reference (e.g., foo as a shortcut for foo), and returns Some(r,p,l) if it succeeds, None otherwise.

let maybe_link: (main_loop, r, p, l) => option((r, p, l))

maybe_link tries to parse a link, and returns Some(r,p,l) if it succeeds, None otherwise.

let parse_list: (main_loop, r, p, l) => (r, p, l)

parse_list main_loop r p l parses a list from l.

***Important property*** It is considered in Omd that a sub-list is always more indented than the item that contains it (so, 2 items with different indentations cannot have the direct same parent).

let make_paragraphs: Omd_representation.t => Omd_representation.t

Since Omd_parser.parse doesn't build paragraphs, if you want Markdown-style paragraphs, you need to apply this function to the result of Omd_parser.parse.

let bcode: ( ~?default_lang: option(name), r, p, l ) => option((r, p, l))

bcode default_lang r p l tries to parse some code that's delimited by backquotes, and returns Some(r,p,l) if it succeeds, None otherwise.

let icode: ( ~?default_lang: option(name), r, p, l ) => option((r, p, l))

icode default_lang r p l tries to parse some code that's delimited by space indentation. It should always return Some(r,p,l), if it returns None it means that it's been misused or there's a bug.

let main_loop_rev: (~?html: option(bool), r, p, l) => r

let main_loop: ( ~?html: option(bool), r, p, l ) => Omd_representation.t

let parse: list(tok) => Omd_representation.t