,("/js/",serveDirectory "wwwroot/js")

           ,("",run Home.handle)

           ,("/:id",run Paste.handle)

           ,("/raw/:id",run Raw.handle)

           ,("/new",run New.handle)

           ,("/browse/page/:page/offset/:offset",run Browse.handle)

           ,("/browse/page/:page",run Browse.handle)

           ,("/browse",run Browse.handle)

           ]

  run = runHandler p cache

import           Amelie.View.Hlint           (viewHints)

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.Text                   (Text)

import           Data.Text.Lazy              (fromStrict)

import           Data.Time.Show              (showDateTime)

import           Data.Traversable

import           Prelude                     hiding ((++))

import           Safe                        (readMay)

  PasteSubmit

    <$> pure (getPasteId pf)

    <*> req (textInput "title" "Title")

    <*> req (textInput "author" "Author")

    <*> parse (traverse lookupLang)

    <*> parse (traverse lookupChan)

    <*> req (areaInput "paste" "Paste")

    <*> opt (wrap (H.div ! aClass "spam") (textInput "email" "Email"))

    where channels = options channelName channelName pfChannels

          languages = options languageName languageTitle pfLanguages

          lookupLang slug = findOption ((==slug).languageName) pfLanguages languageId

          lookupChan slug = findOption ((==slug).channelName) pfChannels channelId

-- | Get the paste id.

getPasteId :: PasteFormlet -> Maybe PasteId

getPasteId PasteFormlet{..} =

  M.lookup "paste_id" pfParams >>=

   pfSubmitted :: Bool

 , pfErrors :: [Text]

 , pfParams :: Params

 , pfLanguages :: [Language]

 , pfChannels :: [Channel]

}

data PastePage = PastePage {

    ppPaste :: Paste

  , ppChans :: [Channel]

handle = do

  html <- cache Key.Home $ do

    pastes <- model $ getLatestPastes

    chans <- model $ getChannels

    langs <- model $ getLanguages

    return $ Just $ page chans langs pastes form

  maybe (return ()) outputText html

import Amelie.Model

import Amelie.Model.Channel    (getChannels)

import Amelie.Model.Language   (getLanguages)

import Amelie.View.New         (page)

handle :: Controller ()

handle = do

  chans <- model $ getChannels

  langs <- model $ getLanguages

  output $ page form

import Control.Monad           ((>=>))

import Data.ByteString.UTF8    (toString)

import Data.Maybe

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

import Data.String             (fromString)

import Prelude                 hiding ((++))

import Safe

import Snap.Types

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

import Text.Formlet

            , ppPaste       = paste

            }

      justOrGoHome html outputText

-- | Control paste editing / submission.

  params <- getParams

  submitted <- isJust <$> getParam "submit"

  let formlet = PasteFormlet {

          pfSubmitted = submitted

        , pfErrors    = []

        , pfParams    = params

        , pfChannels  = channels

        , pfLanguages = languages

        }

      (getValue,_) = pasteFormlet formlet

      value = formletValue getValue params

      errors = either id (const []) value

      (_,html) = pasteFormlet formlet { pfErrors = errors }