Module Bracetax_commands.Stack

module Stack: sig .. end

type image_size = [ `none | `wpercent of int | `wpx of int ] 

type environment = [ `authors
       | `bold
       | `bypass
       | `cell of bool * int * [ `center | `left | `right ]
       | `close_brace
       | `cmd_begin of string * string list
       | `cmd_end
       | `cmd_inside of environment
       | `code of string list
       | `em_dash
       | `en_dash
       | `header
       | `horizontal_ellipsis
       | `ignore
       | `image of string * image_size * string
       | `italic
       | `item
       | `link of Bracetax_commands.Link.t
       | `list of [ `itemize | `numbered ] * string list * bool Pervasives.ref
       | `mono_space
       | `new_line
       | `non_break_space
       | `note
       | `open_brace
       | `paragraph
       | `quotation of string * string
       | `quote
       | `section of int * string
       | `sharp
       | `subscript
       | `subtitle
       | `superscript
       | `table of int * string option
       | `text
       | `title
       | `unknown of string * string list
       | `utf8_char of int ] 

type t = environment list Pervasives.ref 

val empty : unit -> 'a list Pervasives.ref

val push : 'a list Pervasives.ref -> 'a -> unit

val pop : 'a list Pervasives.ref -> 'a option

val head : 'a list Pervasives.ref -> 'a option

val to_list : 'a Pervasives.ref -> 'a