remove homepage, add /about, change navbar

src/content/about.md

@@ -0,0 +1,23 @@
+# What is Permap
+
+Permap is a open source geo-message-board software written in OCaml.
+
+Permap was initially made to be a gardening/permaculture forum.
+Permap's aim is to help people find friends with similar interests around them
+and build local communities.
+
+You can make threads with geographical coordinate, 
+this way you can find people near you doing interesting stuffs, 
+socialize with them and share local knowledge. 
+
+## Permap's future
+
+- Make permap federate
+
+- More than coordinates
+
+Make threads on anything with a geographical position.
+Instead of making threads with a simple (latitude * longitude) data,
+we want to be able to make threads on any OpenStreetMap's item/ActivityPub object 
+that can resolve to a geographical position.
+

src/content/assets/css/style.css

@@ -1,5 +1,5 @@
 body {
-  padding-top: 3rem;
+  padding-top: 0rem;
   padding-bottom: 3rem;
   color: #5a5a5a;
   background-color: #e8eaf6;

src/content/index.md

@@ -1,2 +0,0 @@
-# Hello world
-Permap is cool

src/permap.ml

@@ -37,7 +37,7 @@ let page name request =
     let content = Omd.of_string page |> Omd.to_html in
     render_unsafe content request
 
-let homepage request = page "index" request
+let about request = page "about" request
 
 let register_get request = render_unsafe (Register.f request) request
 
@@ -260,11 +260,17 @@ let reply_post request =
     | `Wrong_content_type ->
       Dream.empty `Bad_Request )
 
+let redirect_to_babillard _request =
+  Dream.respond ~status:`Moved_Permanently
+    ~headers:[ ("Location", "/babillard") ]
+    ""
+
 let () =
   Dream.run @@ Dream.logger @@ Dream.memory_sessions
   @@ Dream.router
        [ Dream.get "/assets/**" (Dream.static ~loader:asset_loader "")
-       ; Dream.get "/" homepage
+       ; Dream.get "/" redirect_to_babillard
+       ; Dream.get "/about" about
        ; Dream.get "/register" register_get
        ; Dream.post "/register" register_post
        ; Dream.get "/login" login_get

src/template.eml.html

@@ -12,15 +12,17 @@ let render_unsafe ~title ~content request =
       <header>
           <nav class="navbar navbar-expand-md navbar-dark fixed-top bg-dark">
               <div class="container-fluid">
-                <a class="navbar-brand" href="/"><img src="/assets/img/favicon.png" alt="Permap" height="42" /></a>
+                <a class="navbar-brand" href="/"><img src="/assets/img/favicon.png" alt="Permap" height="22" /></a>
                   <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbarCollapse" aria-controls="navbarCollapse" aria-expanded="false" aria-label="Toggle navigation">
                       <span class="navbar-toggler-icon"></span>
                   </button>
                   <div class="collapse navbar-collapse" id="navbarCollapse">
                       <ul class="navbar-nav me-auto mb-2 mb-md-0">
                           <li class="nav-item">
-                              <a class="nav-link" href="/">Home</a>
+                              <a class="nav-link" href="/babillard">Babillard</a>
                           </li>
+                      </ul>
+                      <ul class="navbar-nav ms-auto mb-2 mb-md-0">
 % begin match Dream.session "nick" request with
 % | None ->
                           <li class="nav-item">
@@ -38,10 +40,10 @@ let render_unsafe ~title ~content request =
                           </li>
 % end;
                           <li class="nav-item">
-                              <a class="nav-link" href="/babillard">Babillard</a>
+                              <a class="nav-link" href="/user">Users</a>
                           </li>
                           <li class="nav-item">
-                              <a class="nav-link" href="/user">Users</a>
+                              <a class="nav-link" href="/about">About</a>
                           </li>
                       </ul>
                   </div>