You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
86 lines
2.5 KiB
86 lines
2.5 KiB
14 years ago
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
|
||
|
|
-- | XEP 0004: Data Forms (http://xmpp.org/extensions/xep-0004.html)
|
||
|
|
|
||
|
|
module Network.Xmpp.Xep.DataForms where
|
||
|
|
|
||
|
|
import qualified Data.Text as Text
|
||
|
|
import qualified Data.XML.Types as XML
|
||
|
|
|
||
|
|
import Data.XML.Pickle
|
||
|
|
import qualified Data.Text as Text
|
||
|
|
|
||
|
|
dataFormNs = "jabber:x:data"
|
||
|
|
|
||
|
|
data FormType = FormF | SubmitF | CancelF | ResultF
|
||
|
|
|
||
|
|
instance Show FormType where
|
||
|
|
show FormF = "form"
|
||
|
|
show SubmitF = "submit"
|
||
|
|
show CancelF = "cancel"
|
||
|
|
show ResultF = "result"
|
||
|
|
|
||
|
|
instance Read FormType where
|
||
|
|
readsPrec _ "form" = [(FormF , "")]
|
||
|
|
readsPrec _ "submit" = [(SubmitF, "")]
|
||
|
|
readsPrec _ "cancel" = [(CancelF, "")]
|
||
|
|
readsPrec _ "result" = [(ResultF, "")]
|
||
|
|
readsPrec _ _ = []
|
||
|
|
|
||
|
|
data Option = Option { label :: Text.Text
|
||
|
|
, options :: [Text.Text]
|
||
|
|
}
|
||
|
|
|
||
|
|
data Field = Field { fieldType :: FieldType
|
||
|
|
, desc :: Maybe Text.Text
|
||
|
|
, required :: Bool
|
||
|
|
, value :: [Text.Text]
|
||
|
|
, option :: [Option]
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
data Form = Form { formType :: FormType
|
||
|
|
, title :: Maybe Text.Text
|
||
|
|
, instructions :: Maybe Text.Text
|
||
|
|
, field :: [Field]
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
data FieldType = Boolean
|
||
|
|
| Fixed
|
||
|
|
| Hidden
|
||
|
|
| JidMulti
|
||
|
|
| JidSingle
|
||
|
|
| ListMulti
|
||
|
|
| ListSingle
|
||
|
|
| TextMulti
|
||
|
|
| TextPrivate
|
||
|
|
| TextSingle
|
||
|
|
|
||
|
|
|
||
|
|
instance Show FieldType where
|
||
|
|
show Boolean = "boolean"
|
||
|
|
show Fixed = "fixed"
|
||
|
|
show Hidden = "hidden"
|
||
|
|
show JidMulti = "jid-multi"
|
||
|
|
show JidSingle = "jid-single"
|
||
|
|
show ListMulti = "list-multi"
|
||
|
|
show ListSingle = "list-single"
|
||
|
|
show TextMulti = "text-multi"
|
||
|
|
show TextPrivate = "text-private"
|
||
|
|
show TextSingle = "text-single"
|
||
|
|
|
||
|
|
instance Read FieldType where
|
||
|
|
readsPrec _ "boolean" = [(Boolean ,"")]
|
||
|
|
readsPrec _ "fixed" = [(Fixed ,"")]
|
||
|
|
readsPrec _ "hidden" = [(Hidden ,"")]
|
||
|
|
readsPrec _ "jid-multi" = [(JidMulti ,"")]
|
||
|
|
readsPrec _ "jid-single" = [(JidSingle ,"")]
|
||
|
|
readsPrec _ "list-multi" = [(ListMulti ,"")]
|
||
|
|
readsPrec _ "list-single" = [(ListSingle ,"")]
|
||
|
|
readsPrec _ "text-multi" = [(TextMulti ,"")]
|
||
|
|
readsPrec _ "text-private" = [(TextPrivate ,"")]
|
||
|
|
readsPrec _ "text-single" = [(TextSingle ,"")]
|
||
|
|
readsPrec _ _ = []
|