lucienne-0.0.1: Lucienne/View/AddNewFeed.hs

module Lucienne.View.AddNewFeed
  (addNewFeed)
where

import           Text.Blaze ((!))
import qualified Text.Blaze.Html4.Strict as H
import qualified Text.Blaze.Html4.Strict.Attributes as A
import           Lucienne.View.Common (Errors,template,stringHtml,form)
import qualified Lucienne.Url as Url

addNewFeed :: Errors -> H.Html
addNewFeed errors = 
  template "Add new feed" [] errors $
  form Url.doAddNewFeed $
   H.fieldset $ 
    do H.legend "Add new feed"
       H.table $ 
        do H.tr $
            do H.td $ H.label ! A.for "url" $ stringHtml "URL"
               H.td $ (H.input ! A.type_ "input" ! A.name "url" ! A.value "" ! A.size "64")
           H.tr $ H.td ! A.colspan "2" $ 
            H.input ! A.type_ "submit" ! A.value "Add"