feuforeve.v4/main.rkt

#lang racket/base

(module+ test
  (require rackunit)
  ;; Tests to be run with raco test
  )

(module+ main
  (require
    "src/webcontainer/webcontainer.rkt"
    "src/webcontainer/website.rkt"
    "src/pages/sitemap.rkt"
    "src/pages/home.rkt"
    "src/pages/other-generators.rkt"
    "src/pages/arnytron.rkt")
  ; Website
  (define *website*
    (website
      "" weblet pages:home
      ("AboutMe" weblet pages:about-me)
      ("Fonts" weblet pages:fonts)
      ("ToyCatCreator" redirection "http://beleth.pink")
      ("Generators" weblet pages:other-generators
        ("ColorScheme" weblet pages:color-scheme-generator)
        ("PictogrammicAdventurer" weblet pages:pictogrammic-adventurer)
        ("Phonagen" weblet pages:phonagen)
        ("GenerCommunes" weblet pages:gener-communes)
        )
      ("ArnYtron3000" weblet pages:arnytron
        ("brut" weblet pages:arnytron-raw)
        ("json" weblet pages:arnytron-json)
        ("About" weblet pages:arnytron-about)
        ("vraie" weblet pages:arnytron-real)
        ("vraie/{date}" matching-weblet pages:arnytron-real)
        )
      ))
  ; Sitemap
  (sitemap
    ("Home" "/" #f
      ("About Me" "/AboutMe" #f)
      ("Fonts I made" "/Fonts" #f))
    ("Miscellaneous Generators" "/Generators" #f
      ("Color Scheme" "/Generators/ColorScheme" #f)
      ("Pictogrammic Adventurer" "/Generators/PictogrammicAdventurer" #t)
      ("Phonagen" "/Generators/Phonagen" #f)
      ("Un Village en France" "/Generators/GenerCommunes" #f)
      )
    ("ArnYtron3000" "/ArnYtron3000" #t
      ("(texte brut)" "/ArnYtron3000/brut" #t)
      ("(json)" "/ArnYtron3000/json" #t)
      ("Vraie citation" "/ArnYtron3000/vraie" #t)
      ("À propos d'ArnYtron3000" "/ArnYtron3000/About" #t)
      )
    )
  ; Webcontainer
  (define *webcontainer* (make-webcontainer))
  (webcontainer-add-website! *webcontainer* *website*)
  (webcontainer-set-404-weblet! *webcontainer* pages:not-found)
  (display "Starting server...")(newline)
  (webcontainer-start *webcontainer*))