Remove the home page (merge it in the about page). Set the generator page as the home page. Change the listening port to 8181.

main.rkt

@@ -14,23 +14,22 @@
   ; Website
   (define *website*
     (website
-      "" weblet pages:floraverse
-      ("CharacterGenerator" weblet pages:floraverse-character-generator
-        ("Tweet" weblet pages:floraverse-character-generator-tweet))
-      ("AboutCharacterGenerator" weblet pages:floraverse-character-generator-about)
+      "" weblet pages:floraverse-character-generator
+      ("Tweet" weblet pages:floraverse-character-generator-tweet)
       ("Calendar" weblet pages:floraverse-calendar)
       ("Calendar/{month}/{day}" matching-weblet pages:floraverse-calendar)
+      ("About" weblet pages:floraverse-about)
       ))
   ; Sitemap
   (sitemap
-    '(("Home" "/" #f)
-      ("Character Generator" "/CharacterGenerator" #t)
+    '(("Character Generator" "/" #t)
       ("Calendar" "/Calendar" #f)
-      ("About the character generator" "/AboutCharacterGenerator" #f))
+      ("About" "/About" #f))
     )
   ; Webcontainer
   (define *webcontainer*
     (make-webcontainer
+      #:port 8181
       #:static
         (make-immutable-hash
           `(("" . "./static")))))

postbot/floraverse.rkt

@@ -6,7 +6,7 @@
          "configuration.rkt"
          srfi/8)
 
-(define character-generator (string-append feuforeve:website "/CharacterGenerator/Tweet"))
+(define character-generator (string-append feuforeve:website "/Tweet"))
 (define (pick-character)
   (read-json
     (get-pure-port

src/pages/floraverse.rkt

@@ -19,8 +19,7 @@
 
 (provide
   pages:not-found
-  pages:floraverse
-  pages:floraverse-character-generator-about
+  pages:floraverse-about
   pages:floraverse-character-generator
   pages:floraverse-character-generator-tweet
   pages:floraverse-calendar)
@@ -36,23 +35,16 @@
 (define *FloraGenDataDir* "/data/flora-generator-data")
 (define *FloraGen* (make-flora-generator "./static" *FloraGenDataDir* "/data/phonagen.json"))
 
-; Floraverse welcome page
-(define pages:floraverse
-  (pages:template
-    #:title "Home: Generator.Beleth.Pink"
-    #:content
-      '(article
-        (p "As I'm a fan of the " (a ((href "http://floraverse.com")) "Floraverse comic") ", I wrote a generator making characters living in the world of the comic. "
-           "Initially on my main website, I moved the generator and other related Floraverse tools on its own website here, next to the "
-           (a ((href "http://beleth.pink")) "Toy Cat Creator") ". ")
-        )))
-
 ; About the generator
-(define pages:floraverse-character-generator-about
+(define pages:floraverse-about
   (pages:template
     #:title "About the Floraverse Character Generator"
     #:content
       '(article
+        (section
+          "As I'm a fan of the " (a ((href "http://floraverse.com")) "Floraverse comic") ", I wrote a generator making characters living in the world of the comic. " (br)
+          "Initially on my main website, I moved the generator and other related Floraverse tools on its own website here, next to the "
+           (a ((href "http://beleth.pink")) "Toy Cat Creator") ". ")
         (section
           (h3 "Origin")
           (p "The character generator is inspired by " (a ((href "http://fav.me/d7569je")) "this journal post on deviantArt") ", "
@@ -61,8 +53,7 @@
           (h3 "History")
           (p "The current generator is the fifth iteration of the generator. " (br)
              "The first version was a written in Java and started as a desktop application, before I added features to run it as a webservice. "
-             "This lead to the creation of the " (a ((href "http://feuforefe.fr")) "Feuforeve.fr website") ", to initially host that generator. " (br)
-             "This generator has since moved to its own website." (br)
+             "This lead to the creation of the " (a ((href "http://feuforeve.fr")) "Feuforeve.fr website") ", to initially host that generator. " (br)
              "The second version was written in Guile Scheme and ran only as a webservice. " (br)
              "The third version was based on the previous version and was the result of the merger "
              "of several generators I wrote and hosted on this website into a single project. " (br)
@@ -110,7 +101,7 @@
         `(article
           (section
             (form
-              ((action "/CharacterGenerator"))
+              ((action "/"))
               (label "Species "
                 (select ((name "species"))
                   (option ((value "")) "— random species —")