lib/mlton/basic/html.sig

   1 (* Copyright (C) 2009 Matthew Fluet.
   2  * Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
   3  *    Jagannathan, and Stephen Weeks.
   4  *
   5  * MLton is released under a BSD-style license.
   6  * See the file MLton-LICENSE for details.
   7  *)
   8
   9 signature HTML =
  10    sig
  11       structure Align:
  12          sig
  13             datatype t = Left | Center | Right
  14          end
  15       structure Element:
  16          sig
  17             type t
  18
  19             datatype tableOption =
  20                Border of int
  21              | CellPadding of int
  22              | CellSpacing of int
  23
  24             val a: Url.t * t -> t
  25             val br: t
  26             val img: {src: Url.t} -> t
  27             val layout: t -> Layout.t
  28             val pre: t -> t
  29             val seq: t list -> t
  30             val str: string -> t
  31             val tt: t -> t
  32             val table: tableOption list * t list list -> t
  33          end
  34       structure Option:
  35          sig
  36             datatype t =
  37                Redirect of {seconds: int,
  38                             uri: Url.t}
  39              | Title of string
  40          end
  41
  42       datatype t = T of {options: Option.t list,
  43                          body: Element.t}
  44       val layout: t -> Layout.t
  45    end