swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wip: login redirect

Browse source
This commit is contained in:
Swrup 2022-02-20 18:02:25 +01:00
parent 6a84f3dc94
commit 7e9effa723
5 changed files with 41 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/newthread_page.eml.html
View file

@ -1,7 +1,9 @@
let f request =
% begin match Dream.session "nick" request with
% | None ->
<a href="/login">Login</a> to make a new thread.
% let redirect = Dream.to_percent_encoded "/new_thread" in
% Format.printf "%s@." redirect;
<a href="/login?redirect=<%s redirect%>">Login</a> to make a new thread.
% | Some _nick ->
<script type="text/javascript" src="/assets/js/js_newthread.js" defer="defer"></script>
<h1>New thread</h1>