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")
  ; Website
  (define *website*
    (website
      "" weblet pages:home
      ("AboutMe" weblet pages:about-me)
      ("Fonts" weblet pages:fonts)
      ("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)
        )
      ))
  ; 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)
      )
    )
  ; 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*))