Eventually-decentralized project hosting and management platform

[[ 🗃 ^WvWbo vervis ]] :: [📥 Inbox] [📤 Outbox] [🐤 Followers] [🤝 Collaborators] [🛠 Changes]

Clone

HTTPS: darcs clone https://vervis.peers.community/repos/WvWbo

SSH: darcs clone USERNAME@vervis.peers.community:WvWbo

Tags

TODO

src / Vervis / Form /

Group.hs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

{- This file is part of Vervis.
 -
 - Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
 -
 - ♡ Copying is an act of love. Please copy, reuse and share.
 -
 - The author(s) have dedicated all copyright and related and neighboring
 - rights to this software to the public domain worldwide. This software is
 - distributed without any warranty.
 -
 - You should have received a copy of the CC0 Public Domain Dedication along
 - with this software. If not, see
 - <http://creativecommons.org/publicdomain/zero/1.0/>.
 -}

module Vervis.Form.Group
    ( NewGroup (..)
    , newGroupForm
    , NewGroupMember (..)
    , newGroupMemberForm
    )
where

import Data.Text (Text)
import Yesod.Form.Fields (textField, selectFieldList)
import Yesod.Form.Functions (aopt, areq, renderDivs)
import Yesod.Form.Types (AForm)

import Vervis.Field.Sharer
import Vervis.Foundation (Handler, Form, AppDB)
import Vervis.Model
import Vervis.Model.Group (GroupRole (..))
import Vervis.Model.Ident (ShrIdent)

data NewGroup = NewGroup
    { ngIdent :: ShrIdent
    , ngName  :: Maybe Text
    }

newGroupAForm :: AForm Handler NewGroup
newGroupAForm = NewGroup
    <$> areq newSharerIdentField "Name*"     Nothing
    <*> aopt textField           "Full name" Nothing

newGroupForm :: Form NewGroup
newGroupForm = renderDivs newGroupAForm

data NewGroupMember = NewGroupMember
    { ngmIdent :: ShrIdent
    , ngmRole  :: GroupRole
    }

newGroupMemberAForm :: AppDB GroupId -> AForm Handler NewGroupMember
newGroupMemberAForm getgid = NewGroupMember
    <$> areq (existingPersonNotMemberIdentField getgid) "Name*" Nothing
    <*> areq (selectFieldList l)                        "Role*" Nothing
    where
    l = [("Admin" :: Text, GRAdmin), ("Member", GRMember)]

newGroupMemberForm :: AppDB GroupId -> Form NewGroupMember
newGroupMemberForm getgid = renderDivs $ newGroupMemberAForm getgid
[See repo JSON]