28 lines
1.2 KiB
HTML
28 lines
1.2 KiB
HTML
let f (user: User.t) request =
|
|
<h1><%s Format.sprintf "Account settings" %></h1>
|
|
<h2>Change email</h2>
|
|
<%s! Dream.form_tag ~action:"/account" request %>
|
|
<div class="mb-3">
|
|
<label for="email" class="form-label">Email:</label>
|
|
<input name="email" type="text" class="form-control" id="email" value="<%s! user.email %>"></input>
|
|
</div>
|
|
<button type="submit" class="btn btn-primary">Save</button>
|
|
</form>
|
|
<br />
|
|
<br />
|
|
<h2>Change password</h2>
|
|
<%s! Dream.form_tag ~action:"/account" request %>
|
|
<div class="mb-3">
|
|
<label for="new-password" class="form-label">New password:</label>
|
|
<input name="new-password" type="password" class="form-control" id="new-password"></input>
|
|
<label for="confirm-new-password" class="form-label">Confirm new password:</label>
|
|
<input name="confirm-new-password" type="password" class="form-control" id="confirm-new-password"></input>
|
|
</div>
|
|
<button type="submit" class="btn btn-primary">Save</button>
|
|
</form>
|
|
<br />
|
|
<br />
|
|
<h2>Delete account</h2>
|
|
<%s! Dream.form_tag ~action:"/account" request %>
|
|
<button name="delete" id="delete-button" type="submit" class="btn btn-danger">DELETE ACCOUNT</button>
|
|
</form>
|