,pasteLink

  ,pasteRawLink)

  where

import           Amelie.Types

import           Amelie.View.Html

import           Amelie.View.Layout

import           Control.Applicative              ((<$>),(<*>),pure)

import           Control.Monad                    (when)

import           Data.ByteString.UTF8             (toString)

import qualified Data.Map                         as M

import           Data.Monoid.Operator             ((++))

import           Data.String                      (fromString)

import           Data.Text                        (Text)

import           Data.Text.Lazy                   (fromStrict)

import           Data.Time.Show                   (showDateTime)

import           Data.Traversable

import           Prelude                          hiding ((++))

import           Safe                             (readMay)

import           Text.Blaze.Html5                 as H hiding (map)

import qualified Text.Blaze.Html5.Attributes      as A

import           Text.Blaze.Html5.Extra

import           Text.Formlet

-- | A formlet for paste submission / editing.

pasteFormlet :: PasteFormlet -> (Formlet PasteSubmit,Html)

pasteFormlet PasteFormlet{..} =

  let form = postForm ! A.action "/new" $ do

-- | View a paste's details and content.

viewPaste :: [Channel] -> [Language] -> Paste -> Html

viewPaste chans langs paste@Paste{..} = do

  pasteDetails chans langs paste

-- | List the details of the page in a dark section.

pasteDetails :: [Channel] -> [Language] -> Paste -> Html

pasteDetails chans langs paste@Paste{..} =

  darkSection (fromStrict pasteTitle) $ do

    where detail title content = do

            li $ do strong (title ++ ":"); toHtml content

-- | Show the paste content with highlighting.

-- | The href link to a paste.

pasteLink :: ToHtml html => Paste -> html -> Html

pasteLink Paste{..} inner = href ("/" ++ show pasteId) inner

    tokenColor "kr" "#397460"

    tokenColor "s" "#366354"

    tokenColor "sc" "#366354"

    tokenColor "se" "#743838"

    tokenColor "kt" "#4F4371"

    tokenColor "ow" "#333"

    tokenColor "o" "#3E394D"

    tokenColor "n" "#343634"

    tokenColor "nf" "#222"

    -- This is a weird one.