fix login button

src/babillard_page.eml.html

@@ -1,9 +1,8 @@
 let f request =
 
-% let redirect = Dream.to_percent_encoded "/new_thread" in
 % let new_thread_url =
 %   if Option.is_none @@ Dream.session "nick" request then
-%     Format.sprintf "/login?redirect=%s" redirect
+%     Format.sprintf "/login?redirect=%s" (Dream.to_percent_encoded "/new_thread")
 %   else "/new_thread"
 % in
   <script type="text/javascript" src="/assets/js/js_babillard.js" defer="defer"></script>

src/login.eml.html

@@ -1,5 +1,12 @@
 let f request =
-<%s! Dream.form_tag ~action:"/login" request %>
+
+% let url =
+%   match Dream.query request "redirect" with
+%       | None -> "/login"
+%       | Some r -> 
+%     Format.sprintf "/login?redirect=%s" r
+% in
+<%s! Dream.form_tag ~action:url request %>
   <div class="mb-3">
     <label for="nick" class="form-label">Nick</label>
     <input name="nick" type="text" class="form-control" id="nick" aria-describedby="nickHelp">

src/newthread_page.eml.html

@@ -2,8 +2,7 @@ let f request =
 % begin match Dream.session "nick" request with
 % | None ->
 % 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.
+  <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>

src/permap.ml

@@ -54,7 +54,7 @@ let login_post request =
     | Ok () ->
       let url =
         match Dream.query request "redirect" with
-        | None -> "/jpp"
+        | None -> "/"
         | Some redirect -> Dream.from_percent_encoded redirect
       in
       Dream.respond ~status:`See_Other

src/thread_page.eml.html

@@ -3,8 +3,8 @@ let f thread_view thread_id request =
       <%s! thread_view %>
 % begin match Dream.session "nick" request with
 % | None ->
-% let redirect = Dream.to_percent_encoded (Format.sprintf "redirect=/thread/%s" thread_id) in
-<a href="/login?<%s redirect%>">Login to reply!</a>
+% let redirect = Dream.to_percent_encoded (Format.sprintf "/thread/%s" thread_id) in
+<a href="/login?redirect=<%s redirect%>">Login to reply!</a>
 % | Some _ ->
     <div class="post-form">
         <%s! Dream.form_tag ~action:( Format.sprintf "/thread/%s" thread_id)