diff options
| author | simonmar <unknown> | 2004-03-25 15:17:24 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-03-25 15:17:24 +0000 |
| commit | 40f44d7bd3afb519fb92297cf03aa52db2844eda (patch) | |
| tree | 4e680e63c17b7fb0c91218eaa738a1720d500af2 /src/Html.hs | |
| parent | 7b87344c5f8aa3017aa6aebc851ce14b7bee0696 (diff) | |
[haddock @ 2004-03-25 15:17:23 by simonmar]
Add support for collaspible parts of the page, with a +/- button and a
bit of JavaScript. Make the instances collapsible, and collapse them
by default.
This makes documentation with long lists of instances (eg. the
Prelude) much easier to read. Maybe we should give other
documentation sections the same treatment.
Diffstat (limited to 'src/Html.hs')
| -rw-r--r-- | src/Html.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/Html.hs b/src/Html.hs index 04294b81..81cbad93 100644 --- a/src/Html.hs +++ b/src/Html.hs @@ -9,7 +9,7 @@ -- Stability : experimental -- Portability : portable -- --- $Id: Html.hs,v 1.2 2002/07/24 09:42:18 simonmar Exp $ +-- $Id: Html.hs,v 1.3 2004/03/25 15:17:24 simonmar Exp $ -- -- An Html combinator library -- @@ -214,6 +214,7 @@ blockquote :: Html -> Html body :: Html -> Html bold :: Html -> Html br :: Html +button :: Html -> Html caption :: Html -> Html center :: Html -> Html cite :: Html -> Html @@ -249,6 +250,7 @@ paragraph :: Html -> Html param :: Html pre :: Html -> Html sample :: Html -> Html +script :: Html -> Html select :: Html -> Html small :: Html -> Html strong :: Html -> Html @@ -283,6 +285,7 @@ blockquote = tag "BLOCKQUOTE" body = tag "BODY" bold = tag "B" br = itag "BR" +button = tag "BUTTON" caption = tag "CAPTION" center = tag "CENTER" cite = tag "CITE" @@ -318,6 +321,7 @@ paragraph = tag "P" param = itag "PARAM" pre = tag "PRE" sample = tag "SAMP" +script = tag "SCRIPT" select = tag "SELECT" small = tag "SMALL" strong = tag "STRONG" @@ -391,6 +395,7 @@ nohref :: HtmlAttr noresize :: HtmlAttr noshade :: HtmlAttr nowrap :: HtmlAttr +onclick :: String -> HtmlAttr rel :: String -> HtmlAttr rev :: String -> HtmlAttr rows :: String -> HtmlAttr @@ -460,6 +465,7 @@ nohref = emptyAttr "NOHREF" noresize = emptyAttr "NORESIZE" noshade = emptyAttr "NOSHADE" nowrap = emptyAttr "NOWRAP" +onclick = strAttr "ONCLICK" rel = strAttr "REL" rev = strAttr "REV" rows = strAttr "ROWS" |