83e9a4e · warden · git.iko.soy

6import Html.Attributes as Attr

7import Html.Events as Ev

8import Page exposing (..)

9−import Types exposing (CipherId)

10import Utils exposing (..)

9import Utils exposing (..)

11

10

12

11

85

84

86view : Model -> List (Html Msg)

85view : Model -> List (Html Msg)

87view { fullCipher } =

86view { fullCipher } =

88− case fullCipher.cipher of

87+ [ row

89− Bridge.LoginCipher cipher ->

88+ { name = "Entry name"

90− let

89+ , nameIcon = ""

91− { username, password, uris } =

90+ , attrs =

92− cipher

91+ [ Attr.type_ "text"

93−

92+ , Attr.value fullCipher.name

94− edit c =

95− { fullCipher | cipher = Bridge.LoginCipher c } |> EditCipher

93+ , Ev.onInput (\x -> { fullCipher | name = x } |> EditCipher)

96− in

97− [ row

98− { name = "Username"

99− , nameIcon = "user"

100− , attrs =

101− [ Attr.type_ "text"

102− , Attr.value (Maybe.withDefault "" username)

103− , Ev.onInput (\x -> edit { cipher | username = Just x })

104− , Attr.attribute "autocomplete" "username"

105− ]

106− }

107− , row

108− { name = "Password"

109− , nameIcon = "security"

110− , attrs =

111− [ Attr.type_ "text"

112− , Attr.value (Maybe.withDefault "" password)

113− , Ev.onInput (\x -> edit { cipher | password = Just x })

114− , Attr.attribute "autocomplete" "new-password"

94+ , Attr.attribute "autocomplete" "off"

115− ]

116− }

117 ]

95 ]

118− ++ (uris

96+ }

119− |> List.indexedMap

97+ ]

120− (\i uri ->

98+ ++ (case fullCipher.cipher of

121− row

99+ Bridge.LoginCipher cipher ->

122− { name = "URL"

100+ let

123− , nameIcon = "get-link"

101+ { username, password, uris } =

124− , attrs =

102+ cipher

125− [ Attr.type_ "url"

103+

126− , Attr.value uri

104+ edit c =

127− , Ev.onInput (\x -> edit { cipher | uris = replace i x uris })

105+ { fullCipher | cipher = Bridge.LoginCipher c } |> EditCipher

128− ]

106+ in

129− }

130− )

131− )

132− ++ [ row

107+ [ row

133− { name = "URL"

108+ { name = "Username"

134− , nameIcon = "get-link"

109+ , nameIcon = "user"

135 , attrs =

110 , attrs =

136− [ Attr.type_ "url"

111+ [ Attr.type_ "text"

112+ , Attr.value (Maybe.withDefault "" username)

137− , Ev.onInput (\x -> edit { cipher | uris = uris ++ [ x ] })

113+ , Ev.onInput (\x -> edit { cipher | username = Just x })

114+ , Attr.attribute "autocomplete" "username"

115+ ]

116+ }

117+ , row

118+ { name = "Password"

119+ , nameIcon = "security"

120+ , attrs =

121+ [ Attr.type_ "text"

122+ , Attr.value (Maybe.withDefault "" password)

123+ , Ev.onInput (\x -> edit { cipher | password = Just x })

124+ , Attr.attribute "autocomplete" "new-password"

138 ]

125 ]

139 }

126 }

140− ]

141−

142− Bridge.NoteCipher contents ->

143− [ p []

144− [ heading "switcher-environments" "Note"

145− , br [] []

146− , textarea

147− [ Attr.spellcheck True

148− , Attr.style "height" "70vh"

149− , Attr.value contents

150− , Ev.onInput (\x -> EditCipher { fullCipher | cipher = Bridge.NoteCipher x })

151− ]

152− []

153− ]

154− ]

155−

156− Bridge.CardCipher cipher ->

157− let

158− { number, code, cardholderName, expMonth, expYear } =

159− cipher

160−

161− edit c =

162− { fullCipher | cipher = Bridge.CardCipher c } |> EditCipher

163− in

164− [ row

165− { name = "Card number"

166− , nameIcon = "containers"

167− , attrs =

168− [ Attr.attribute "autocomplete" "cc-number"

169− , Attr.type_ "text"

170− , Attr.value (Maybe.withDefault "" number)

171− , Ev.onInput (\x -> edit { cipher | number = Just x })

172− ]

173− }

174− , p []

175− [ heading "timed-out" "Expiration date"

176− , br [] []

177− , input

178− [ Attr.attribute "autocomplete" "cc-exp-month"

179− , Attr.type_ "text"

180− , Attr.value (Maybe.withDefault "" expMonth)

181− , Ev.onInput (\x -> edit { cipher | expMonth = Just x })

182− , Attr.style "width" "20%"

183− , Attr.class "u-align--right"

184− ]

185− []

186− , text " / "

187− , input

188− [ Attr.attribute "autocomplete" "cc-exp-year"

189− , Attr.type_ "text"

190− , Attr.value (Maybe.withDefault "" expYear)

191− , Ev.onInput (\x -> edit { cipher | expYear = Just x })

192− , Attr.style "width" "20%"

193− ]

194− []

195− ]

196− , row

197− { name = "CVV"

198− , nameIcon = "security"

199− , attrs =

200− [ Attr.attribute "autocomplete" "cc-csc"

201− , Attr.type_ "text"

202− , Attr.value (Maybe.withDefault "" code)

203− , Ev.onInput (\x -> edit { cipher | code = Just x })

204 ]

127 ]

205− }

128+ ++ (uris

129+ |> List.indexedMap

130+ (\i uri ->

206− , row

131+ row

207− { name = "Cardholder name"

132+ { name = "URL"

208− , nameIcon = "user"

133+ , nameIcon = "get-link"

209− , attrs =

134+ , attrs =

210− [ Attr.attribute "autocomplete" "cc-name"

135+ [ Attr.type_ "url"

136+ , Attr.value uri

137+ , Ev.onInput (\x -> edit { cipher | uris = replace i x uris })

138+ ]

139+ }

140+ )

141+ )

142+ ++ [ row

143+ { name = "URL"

144+ , nameIcon = "get-link"

145+ , attrs =

211− , Attr.type_ "text"

146+ [ Attr.type_ "url"

212− , Attr.value (Maybe.withDefault "" cardholderName)

147+ , Ev.onInput (\x -> edit { cipher | uris = uris ++ [ x ] })

213− , Ev.onInput (\x -> edit { cipher | cardholderName = Just x })

148+ ]

149+ }

150+ ]

151+

152+ Bridge.NoteCipher contents ->

153+ [ p []

154+ [ heading "switcher-environments" "Note"

155+ , br [] []

156+ , textarea

157+ [ Attr.spellcheck True

158+ , Attr.style "height" "70vh"

159+ , Attr.value contents

160+ , Ev.onInput (\x -> EditCipher { fullCipher | cipher = Bridge.NoteCipher x })

161+ ]

162+ []

163+ ]

214 ]

164 ]

215− }

216− ]

217

165

218− Bridge.IdentityCipher cipher ->

166+ Bridge.CardCipher cipher ->

219− let

167+ let

220− { address1, address2, address3, company, email, firstName, lastName, licenseNumber, middleName, passportNumber, phone, ssn, username } =

168+ { number, code, cardholderName, expMonth, expYear } =

221− cipher

169+ cipher

222−

170+

223− edit c =

171+ edit c =

224− { fullCipher | cipher = Bridge.IdentityCipher c } |> EditCipher

172+ { fullCipher | cipher = Bridge.CardCipher c } |> EditCipher

225− in

173+ in

226− [ row

174+ [ row

227− { name = "First name"

175+ { name = "Card number"

228− , nameIcon = ""

176+ , nameIcon = "containers"

229− , attrs =

177+ , attrs =

230− [ Attr.attribute "autocomplete" "given-name"

178+ [ Attr.attribute "autocomplete" "cc-number"

231− , Attr.type_ "text"

179+ , Attr.type_ "text"

232− , Attr.value (Maybe.withDefault "" firstName)

180+ , Attr.value (Maybe.withDefault "" number)

233− , Ev.onInput (\x -> edit { cipher | firstName = Just x })

181+ , Ev.onInput (\x -> edit { cipher | number = Just x })

234− ]

182+ ]

235− }

183+ }

236− , row

184+ , p []

237− { name = "Middle name"

185+ [ heading "timed-out" "Expiration date"

238− , nameIcon = ""

186+ , br [] []

239− , attrs =

187+ , input

240− [ Attr.attribute "autocomplete" "additional-name"

188+ [ Attr.attribute "autocomplete" "cc-exp-month"

241− , Attr.type_ "text"

189+ , Attr.type_ "text"

242− , Attr.value (Maybe.withDefault "" middleName)

190+ , Attr.value (Maybe.withDefault "" expMonth)

243− , Ev.onInput (\x -> edit { cipher | middleName = Just x })

191+ , Ev.onInput (\x -> edit { cipher | expMonth = Just x })

244− ]

192+ , Attr.style "width" "20%"

245− }

193+ , Attr.class "u-align--right"

246− , row

194+ ]

247− { name = "Last name"

248− , nameIcon = ""

249− , attrs =

250− [ Attr.attribute "autocomplete" "family-name"

251− , Attr.type_ "text"

252− , Attr.value (Maybe.withDefault "" lastName)

253− , Ev.onInput (\x -> edit { cipher | lastName = Just x })

254− ]

195+ []

255− }

196+ , text " / "

256− , row

197+ , input

257− { name = "Username"

258− , nameIcon = ""

259− , attrs =

260− [ Attr.attribute "autocomplete" "username"

198+ [ Attr.attribute "autocomplete" "cc-exp-year"

261− , Attr.type_ "text"

199+ , Attr.type_ "text"

262− , Attr.value (Maybe.withDefault "" username)

200+ , Attr.value (Maybe.withDefault "" expYear)

263− , Ev.onInput (\x -> edit { cipher | username = Just x })

201+ , Ev.onInput (\x -> edit { cipher | expYear = Just x })

264− ]

202+ , Attr.style "width" "20%"

265− }

203+ ]

266− , row

204+ []

267− { name = "Company"

205+ ]

268− , nameIcon = ""

206+ , row

269− , attrs =

207+ { name = "CVV"

270− [ Attr.attribute "autocomplete" "organization"

271− , Attr.type_ "text"

272− , Attr.value (Maybe.withDefault "" company)

273− , Ev.onInput (\x -> edit { cipher | company = Just x })

274− ]

275− }

276− , row

277− { name = "Social security number"

208+ , nameIcon = "security"

278− , nameIcon = ""

279− , attrs =

280− [ Attr.attribute "autocomplete" "off"

281− , Attr.type_ "number"

282− , Attr.value (Maybe.withDefault "" ssn)

283− , Ev.onInput (\x -> edit { cipher | ssn = Just x })

284− ]

285− }

286− , row

287− { name = "Passport number"

288− , nameIcon = ""

289− , attrs =

290− [ Attr.attribute "autocomplete" "off"

291− , Attr.type_ "number"

292− , Attr.value (Maybe.withDefault "" passportNumber)

293− , Ev.onInput (\x -> edit { cipher | passportNumber = Just x })

294− ]

295− }

296− , row

297− { name = "License Number"

298− , nameIcon = ""

299− , attrs =

300− [ Attr.attribute "autocomplete" "off"

301− , Attr.type_ "number"

302− , Attr.value (Maybe.withDefault "" licenseNumber)

303− , Ev.onInput (\x -> edit { cipher | licenseNumber = Just x })

304− ]

305− }

306− , row

307− { name = "Email"

308− , nameIcon = ""

309− , attrs =

310− [ Attr.attribute "autocomplete" "email"

311− , Attr.type_ "email"

312− , Attr.value (Maybe.withDefault "" email)

313− , Ev.onInput (\x -> edit { cipher | email = Just x })

314− ]

315− }

316− , row

317− { name = "Phone number"

318− , nameIcon = ""

319− , attrs =

209+ , attrs =

320− [ Attr.attribute "autocomplete" "tel"

210+ [ Attr.attribute "autocomplete" "cc-csc"

321− , Attr.type_ "tel"

211+ , Attr.type_ "text"

322− , Attr.value (Maybe.withDefault "" phone)

212+ , Attr.value (Maybe.withDefault "" code)

323− , Ev.onInput (\x -> edit { cipher | phone = Just x })

213+ , Ev.onInput (\x -> edit { cipher | code = Just x })

324− ]

214+ ]

325− }

215+ }

326− , row

216+ , row

327− { name = "Address line 1"

217+ { name = "Cardholder name"

328− , nameIcon = ""

218+ , nameIcon = "user"

329− , attrs =

219+ , attrs =

330− [ Attr.attribute "autocomplete" "address-line1"

220+ [ Attr.attribute "autocomplete" "cc-name"

331− , Attr.type_ "text"

221+ , Attr.type_ "text"

332− , Attr.value (Maybe.withDefault "" address1)

222+ , Attr.value (Maybe.withDefault "" cardholderName)

333− , Ev.onInput (\x -> edit { cipher | address1 = Just x })

223+ , Ev.onInput (\x -> edit { cipher | cardholderName = Just x })

334− ]

224+ ]

335− }

225+ }

336− , row

337− { name = "Address line 2"

338− , nameIcon = ""

339− , attrs =

340− [ Attr.attribute "autocomplete" "address-line2"

341− , Attr.type_ "text"

342− , Attr.value (Maybe.withDefault "" address2)

343− , Ev.onInput (\x -> edit { cipher | address2 = Just x })

344 ]

226 ]

345− }

227+

228+ Bridge.IdentityCipher cipher ->

229+ let

230+ { address1, address2, address3, company, email, firstName, lastName, licenseNumber, middleName, passportNumber, phone, ssn, username } =

231+ cipher

232+

233+ edit c =

234+ { fullCipher | cipher = Bridge.IdentityCipher c } |> EditCipher

235+ in

236+ [ row

237+ { name = "First name"

238+ , nameIcon = ""

239+ , attrs =

240+ [ Attr.attribute "autocomplete" "given-name"

241+ , Attr.type_ "text"

242+ , Attr.value (Maybe.withDefault "" firstName)

243+ , Ev.onInput (\x -> edit { cipher | firstName = Just x })

244+ ]

245+ }

346− , row

246+ , row

247+ { name = "Middle name"

248+ , nameIcon = ""

249+ , attrs =

250+ [ Attr.attribute "autocomplete" "additional-name"

251+ , Attr.type_ "text"

252+ , Attr.value (Maybe.withDefault "" middleName)

253+ , Ev.onInput (\x -> edit { cipher | middleName = Just x })

254+ ]

255+ }

256+ , row

257+ { name = "Last name"

258+ , nameIcon = ""

259+ , attrs =

260+ [ Attr.attribute "autocomplete" "family-name"

261+ , Attr.type_ "text"

262+ , Attr.value (Maybe.withDefault "" lastName)

263+ , Ev.onInput (\x -> edit { cipher | lastName = Just x })

264+ ]

265+ }

266+ , row

267+ { name = "Username"

268+ , nameIcon = ""

269+ , attrs =

270+ [ Attr.attribute "autocomplete" "username"

271+ , Attr.type_ "text"

272+ , Attr.value (Maybe.withDefault "" username)

273+ , Ev.onInput (\x -> edit { cipher | username = Just x })

274+ ]

275+ }

276+ , row

277+ { name = "Company"

278+ , nameIcon = ""

279+ , attrs =

280+ [ Attr.attribute "autocomplete" "organization"

281+ , Attr.type_ "text"

282+ , Attr.value (Maybe.withDefault "" company)

283+ , Ev.onInput (\x -> edit { cipher | company = Just x })

284+ ]

285+ }

286+ , row

287+ { name = "Social security number"

288+ , nameIcon = ""

289+ , attrs =

290+ [ Attr.attribute "autocomplete" "off"

291+ , Attr.type_ "number"

292+ , Attr.value (Maybe.withDefault "" ssn)

293+ , Ev.onInput (\x -> edit { cipher | ssn = Just x })

294+ ]

295+ }

296+ , row

297+ { name = "Passport number"

298+ , nameIcon = ""

299+ , attrs =

300+ [ Attr.attribute "autocomplete" "off"

301+ , Attr.type_ "number"

302+ , Attr.value (Maybe.withDefault "" passportNumber)

303+ , Ev.onInput (\x -> edit { cipher | passportNumber = Just x })

304+ ]

305+ }

306+ , row

307+ { name = "License Number"

308+ , nameIcon = ""

309+ , attrs =

310+ [ Attr.attribute "autocomplete" "off"

311+ , Attr.type_ "number"

312+ , Attr.value (Maybe.withDefault "" licenseNumber)

313+ , Ev.onInput (\x -> edit { cipher | licenseNumber = Just x })

314+ ]

315+ }

316+ , row

317+ { name = "Email"

318+ , nameIcon = ""

319+ , attrs =

320+ [ Attr.attribute "autocomplete" "email"

321+ , Attr.type_ "email"

322+ , Attr.value (Maybe.withDefault "" email)

323+ , Ev.onInput (\x -> edit { cipher | email = Just x })

324+ ]

325+ }

326+ , row

327+ { name = "Phone number"

328+ , nameIcon = ""

329+ , attrs =

330+ [ Attr.attribute "autocomplete" "tel"

331+ , Attr.type_ "tel"

332+ , Attr.value (Maybe.withDefault "" phone)

333+ , Ev.onInput (\x -> edit { cipher | phone = Just x })

334+ ]

335+ }

336+ , row

337+ { name = "Address line 1"

338+ , nameIcon = ""

339+ , attrs =

340+ [ Attr.attribute "autocomplete" "address-line1"

341+ , Attr.type_ "text"

342+ , Attr.value (Maybe.withDefault "" address1)

343+ , Ev.onInput (\x -> edit { cipher | address1 = Just x })

344+ ]

345+ }

346+ , row

347+ { name = "Address line 2"

348+ , nameIcon = ""

349+ , attrs =

350+ [ Attr.attribute "autocomplete" "address-line2"

351+ , Attr.type_ "text"

352+ , Attr.value (Maybe.withDefault "" address2)

353+ , Ev.onInput (\x -> edit { cipher | address2 = Just x })

354+ ]

355+ }

356+ , row

347− { name = "Address line 3"

357+ { name = "Address line 3"

348− , nameIcon = ""

358+ , nameIcon = ""

349− , attrs =

359+ , attrs =

350− [ Attr.attribute "autocomplete" "address-line3"

360+ [ Attr.attribute "autocomplete" "address-line3"

351− , Attr.type_ "text"

361+ , Attr.type_ "text"

352− , Attr.value (Maybe.withDefault "" address3)

362+ , Attr.value (Maybe.withDefault "" address3)

353− , Ev.onInput (\x -> edit { cipher | address3 = Just x })

363+ , Ev.onInput (\x -> edit { cipher | address3 = Just x })

364+ ]

365+ }

354 ]

366 ]

355− }

367+ )

356− ]

357

368

358

369

359hiddenPassword : String

370hiddenPassword : String