RawHTML Plugin

A very simple plugin that allows you to insert raw HTML into a page. I used it to get the javascript code and the onClick action for my holiday photos

> import Network.Gitit.Interface
> {-
> Usage
> ~~~{.rawHTML}
> Insert HTML here
> ~~~
> -}
> plugin::Plugin
> plugin = mkPageTransformM transformBlock
> 
> transformBlock :: Block -> PluginM Block
> transformBlock (CodeBlock (_, classes, namevals) contents) 
>     | "rawHTML" `elem` classes = do
>   return $ RawHtml contents
> transformBlock x = return x