/
ClassProps.purs
173 lines (118 loc) · 4.64 KB
/
ClassProps.purs
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
-- | CSS class names as Concur-React Props, used in [metajelo-ui](https://github.com/labordynamicsinstitute/metajelo-ui)
module Metajelo.CSS.Web.ClassProps where
import Metajelo.CSS.Web.ClassNames as CN
import Metajelo.CSS.Web.Util as U
import Concur.React.Props (ReactProps)
productGroup :: ∀ a. ReactProps a
productGroup = U.mjWebClass CN.productGroup
productCitation :: ∀ a. ReactProps a
productCitation = U.mjWebClass CN.productCitation
appliesMaybe :: ∀ a. ReactProps a
appliesMaybe = U.mjWebClass CN.appliesMaybe
appliesYes :: ∀ a. ReactProps a
appliesYes = U.mjWebClass CN.appliesYes
appliesNo :: ∀ a. ReactProps a
appliesNo = U.mjWebClass CN.appliesNo
appliesInfo :: ∀ a. ReactProps a
appliesInfo = U.mjWebClass CN.appliesInfo
idUrl :: ∀ a. ReactProps a
idUrl = U.cList [CN.url, CN.idUrl]
errorDisplayBox :: ∀ a. ReactProps a
errorDisplayBox = U.mjWebClass CN.errorDisplayBox
errorDisplay :: ∀ a. ReactProps a
errorDisplay = U.mjWebClass CN.errorDisplay
------- Common classes follow ----------------------------
record :: ∀ a. ReactProps a
record = U.mjWebClass CN.record
recordId :: ∀ a. ReactProps a
recordId = U.mjWebClass CN.recordId
product :: ∀ a. ReactProps a
product = U.mjWebClass CN.product
-- | A list of products
productList :: ∀ a. ReactProps a
productList = U.mjWebClass CN.productList
-- | A header for the list of supplementary products
productsHeader :: ∀ a. ReactProps a
productsHeader = U.mjWebClass CN.productsHeader
-- | A header for the list of supplementary products and the associated header
products :: ∀ a. ReactProps a
products = U.mjWebClass CN.products
location :: ∀ a. ReactProps a
location = U.mjWebClass CN.location
sustainability :: ∀ a. ReactProps a
sustainability = U.mjWebClass CN.sustainability
missionStatement :: ∀ a. ReactProps a
missionStatement = U.cList [CN.url, CN.missionStatement]
fundingStatement :: ∀ a. ReactProps a
fundingStatement = U.cList [CN.url, CN.fundingStatement]
identifier :: ∀ a. ReactProps a
identifier = U.mjWebClass CN.identifier
id :: ∀ a. ReactProps a
id = U.mjWebClass CN.id
idType :: ∀ a. ReactProps a
idType = U.mjWebClass CN.idType
relatedId :: ∀ a. ReactProps a
relatedId = U.mjWebClass CN.relatedId
relType :: ∀ a. ReactProps a
relType = U.mjWebClass CN.relType
-- | A list of related identifiers
relatedIdList :: ∀ a. ReactProps a
relatedIdList = U.mjWebClass CN.relatedIdList
-- | A header for a list of related identifiers
relatedIdsHeader :: ∀ a. ReactProps a
relatedIdsHeader = U.mjWebClass CN.relatedIdsHeader
-- | A list of related identifiers and the associated header
relatedIds :: ∀ a. ReactProps a
relatedIds = U.mjWebClass CN.relatedIds
basicMetadata :: ∀ a. ReactProps a
basicMetadata = U.mjWebClass CN.basicMetadata
creator :: ∀ a. ReactProps a
creator = U.mjWebClass CN.creator
pubyear :: ∀ a. ReactProps a
pubyear = U.mjWebClass CN.pubyear
title :: ∀ a. ReactProps a
title = U.mjWebClass CN.title
resourceId :: ∀ a. ReactProps a
resourceId = U.mjWebClass CN.resourceId
resourceType :: ∀ a. ReactProps a
resourceType = U.mjWebClass CN.resourceType
resourceTypeGen :: ∀ a. ReactProps a
resourceTypeGen = U.mjWebClass CN.resourceTypeGen
resourceTypeDescr :: ∀ a. ReactProps a
resourceTypeDescr = U.mjWebClass CN.resourceTypeDescr
-- | Resource Metadata Source
resourceMDSource :: ∀ a. ReactProps a
resourceMDSource = U.mjWebClass CN.resourceMDSource
institutionName :: ∀ a. ReactProps a
institutionName = U.mjWebClass CN.institutionName
institutionId :: ∀ a. ReactProps a
institutionId = U.mjWebClass CN.institutionId
institutionType :: ∀ a. ReactProps a
institutionType = U.mjWebClass CN.institutionType
institutionContact :: ∀ a. ReactProps a
institutionContact = U.mjWebClass CN.institutionContact
contactEmail :: ∀ a. ReactProps a
contactEmail = U.mjWebClass CN.contactEmail
contactType :: ∀ a. ReactProps a
contactType = U.mjWebClass CN.contactType
institutionPolicy :: ∀ a. ReactProps a
institutionPolicy = U.mjWebClass CN.institutionPolicy
-- | A list of institutional policies
institutionPolicies :: ∀ a. ReactProps a
institutionPolicies = U.mjWebClass CN.institutionPolicies
policy :: ∀ a. ReactProps a
policy = U.mjWebClass CN.policy
policyType :: ∀ a. ReactProps a
policyType = U.mjWebClass CN.policyType
applies :: ∀ a. ReactProps a
applies = U.mjWebClass CN.applies
superOrg :: ∀ a. ReactProps a
superOrg = U.mjWebClass CN.superOrg
versioning :: ∀ a. ReactProps a
versioning = U.mjWebClass CN.versioning
format :: ∀ a. ReactProps a
format = U.mjWebClass CN.format
formatList :: ∀ a. ReactProps a
formatList = U.mjWebClass CN.formatList
url :: ∀ a. ReactProps a
url = U.mjWebClass CN.url