2019-11-06 16:27:38 +01:00
|
|
|
#lang racket/base
|
|
|
|
|
|
|
|
|
|
(module+ test
|
|
|
|
|
(require rackunit)
|
|
|
|
|
;; Tests to be run with raco test
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
(module+ main
|
2019-11-07 12:14:41 +01:00
|
|
|
(require
|
2019-11-07 19:39:50 +01:00
|
|
|
"src/webcontainer/webcontainer.rkt"
|
|
|
|
|
"src/webcontainer/website.rkt"
|
|
|
|
|
"src/pages/sitemap.rkt"
|
|
|
|
|
"src/pages/home.rkt")
|
2019-11-07 15:09:19 +01:00
|
|
|
; Website
|
|
|
|
|
(define *website*
|
|
|
|
|
(website
|
2019-11-07 19:39:50 +01:00
|
|
|
"" weblet pages:home
|
|
|
|
|
("AboutMe" weblet pages:about-me)))
|
|
|
|
|
; Sitemap
|
|
|
|
|
(sitemap
|
|
|
|
|
("Home" "/" #f
|
|
|
|
|
("About Me" "/AboutMe" #f))
|
|
|
|
|
)
|
2019-11-07 15:09:19 +01:00
|
|
|
; Webcontainer
|
|
|
|
|
(define *webcontainer* (make-webcontainer))
|
|
|
|
|
(webcontainer-add-website! *webcontainer* *website*)
|
2019-11-07 19:39:50 +01:00
|
|
|
(webcontainer-set-404-weblet! *webcontainer* pages:not-found)
|
2019-11-07 12:14:41 +01:00
|
|
|
(display "Starting server...")(newline)
|
|
|
|
|
(webcontainer-start *webcontainer*))
|
2019-11-07 15:09:19 +01:00
|
|
|
|
|
|
|
|
;(website
|
2019-11-07 19:39:50 +01:00
|
|
|
; "" weblet home-page
|
|
|
|
|
; ("ToyCatCreator" redirection "http://beleth.pink")
|
|
|
|
|
; ("About" weblet about-me-page)
|
|
|
|
|
; ("Fonts" weblet fonts-page)
|
|
|
|
|
; ("FlagGenerator" weblet flag-generator-page
|
|
|
|
|
; ("RawFlag" weblet flag-generator-raw-page)
|
|
|
|
|
; ("About" weblet about-flag-generator-page))
|
2019-11-07 15:09:19 +01:00
|
|
|
; )
|
