> module Codeblock
>        (codeblock
>        ,markblocks)

>        where

> import Codec.Binary.Base64.String (encode)
> import Data.List
> import Process
> import Sorttags
> import Delimiters

> alldash :: [Char] -> Bool
> alldash line = nub line == "-"

> markblock :: [Char] -> [Char]
> markblock line | alldash line = [mark]
>                | otherwise = line

> markblocks :: String -> String
> markblocks s = unlines (map markblock (lines s))

> markit :: String -> [Char]
> markit l = [inv1] ++ (encode l) ++ [inv2]

> codeblock :: [Char] -> [Char]
> codeblock = (sorttags "<verbatim>" "</verbatim>" markit) .
>             (process mark mark "<verbatim>" "</verbatim>")