breezewiki/breezewiki.rkt

#lang racket/base
(require web-server/servlet-dispatch
         "src/config.rkt"
         "src/dispatcher-tree.rkt"
         "src/reloadable.rkt")

(define-syntax-rule (require-reloadable filename varname)
  (define varname
    (reloadable-entry-point->procedure
     (make-reloadable-entry-point (quote varname) filename))))

(require-reloadable "src/page-category.rkt" page-category)
(require-reloadable "src/page-global-search.rkt" page-global-search)
(require-reloadable "src/page-home.rkt" page-home)
(require-reloadable "src/page-it-works.rkt" page-it-works)
(require-reloadable "src/page-not-found.rkt" page-not-found)
(require-reloadable "src/page-proxy.rkt" page-proxy)
(require-reloadable "src/page-redirect-wiki-home.rkt" redirect-wiki-home)
(require-reloadable "src/page-search.rkt" page-search)
(require-reloadable "src/page-set-user-settings.rkt" page-set-user-settings)
(require-reloadable "src/page-static.rkt" static-dispatcher)
(require-reloadable "src/page-static-archive.rkt" page-static-archive)
(require-reloadable "src/page-subdomain.rkt" subdomain-dispatcher)
(require-reloadable "src/page-wiki.rkt" page-wiki)
(require-reloadable "src/page-wiki-offline.rkt" page-wiki-offline)
(require-reloadable "src/page-file.rkt" page-file)

(reload!)

(define ch (make-channel))
(define (start)
  (serve/launch/wait
   #:listen-ip (if (equal? (config-get 'bind_host) "auto")
                 (if (config-true? 'debug) "127.0.0.1" #f)
                 (config-get 'bind_host))
   #:port (string->number (config-get 'port))
   (λ (quit)
     (channel-put ch (lambda () (semaphore-post quit)))
     (dispatcher-tree
      ; order of these does not matter
      page-category
      page-global-search
      page-home
      page-it-works
      page-not-found
      page-proxy
      page-search
      page-set-user-settings
      page-static-archive
      page-wiki
      page-wiki-offline
      page-file
      redirect-wiki-home
      static-dispatcher
      subdomain-dispatcher))))
(define server-t (thread start))
(define quit (channel-get ch))
Initial commit * Viewing for wiki pages * Searches * Categories * Logo * Image proxy * Config loaded from config.txt * AGPL 3 license 2022-08-23 09:57:42 +00:00			`#lang racket/base`
More powerful static file handling 2022-08-30 12:45:37 +00:00			`(require web-server/servlet-dispatch`
Move the startup file 2022-08-23 10:43:44 +00:00			`"src/config.rkt"`
Simplify files even more - breezewiki.rkt now always sets up the hot-reload watcher - dispatcher logic moved to dispatcher-tree.rkt - dispatcher-tree is a macro that doesn't care about the order of its forms 2022-09-04 10:13:36 +00:00			`"src/dispatcher-tree.rkt"`
More powerful static file handling 2022-08-30 12:45:37 +00:00			`"src/reloadable.rkt")`
Initial commit * Viewing for wiki pages * Searches * Categories * Logo * Image proxy * Config loaded from config.txt * AGPL 3 license 2022-08-23 09:57:42 +00:00
Add homepage, architecture changes * Create homepage * Page data is automatically reloaded (except when compiling) * Entrypoint is breezewiki.rkt for running and dist.rkt for compiling * Include stack trace when sending error messages 2022-08-30 09:33:28 +00:00			`(define-syntax-rule (require-reloadable filename varname)`
			`(define varname`
			`(reloadable-entry-point->procedure`
			`(make-reloadable-entry-point (quote varname) filename))))`

			`(require-reloadable "src/page-category.rkt" page-category)`
Add global search on home page 2022-09-17 10:36:04 +00:00			`(require-reloadable "src/page-global-search.rkt" page-global-search)`
Add homepage, architecture changes * Create homepage * Page data is automatically reloaded (except when compiling) * Entrypoint is breezewiki.rkt for running and dist.rkt for compiling * Include stack trace when sending error messages 2022-08-30 09:33:28 +00:00			`(require-reloadable "src/page-home.rkt" page-home)`
Add a funny redirect that I can make use of later 2022-10-13 09:40:14 +00:00			`(require-reloadable "src/page-it-works.rkt" page-it-works)`
Add homepage, architecture changes * Create homepage * Page data is automatically reloaded (except when compiling) * Entrypoint is breezewiki.rkt for running and dist.rkt for compiling * Include stack trace when sending error messages 2022-08-30 09:33:28 +00:00			`(require-reloadable "src/page-not-found.rkt" page-not-found)`
			`(require-reloadable "src/page-proxy.rkt" page-proxy)`
Redirect /wikiname to its homepage 2022-09-09 03:42:20 +00:00			`(require-reloadable "src/page-redirect-wiki-home.rkt" redirect-wiki-home)`
Add homepage, architecture changes * Create homepage * Page data is automatically reloaded (except when compiling) * Entrypoint is breezewiki.rkt for running and dist.rkt for compiling * Include stack trace when sending error messages 2022-08-30 09:33:28 +00:00			`(require-reloadable "src/page-search.rkt" page-search)`
Support light/dark themes as per Fandom's styles 2022-11-29 11:03:54 +00:00			`(require-reloadable "src/page-set-user-settings.rkt" page-set-user-settings)`
More powerful static file handling 2022-08-30 12:45:37 +00:00			`(require-reloadable "src/page-static.rkt" static-dispatcher)`
Create archiver and offline code handlers Somewhat messy. Will clean up gradually in future commits. 2023-02-05 04:56:15 +00:00			`(require-reloadable "src/page-static-archive.rkt" page-static-archive)`
Dispatch based on Host header (subdomain support) 2022-09-04 13:32:45 +00:00			`(require-reloadable "src/page-subdomain.rkt" subdomain-dispatcher)`
Add homepage, architecture changes * Create homepage * Page data is automatically reloaded (except when compiling) * Entrypoint is breezewiki.rkt for running and dist.rkt for compiling * Include stack trace when sending error messages 2022-08-30 09:33:28 +00:00			`(require-reloadable "src/page-wiki.rkt" page-wiki)`
Create archiver and offline code handlers Somewhat messy. Will clean up gradually in future commits. 2023-02-05 04:56:15 +00:00			`(require-reloadable "src/page-wiki-offline.rkt" page-wiki-offline)`
Add support for File: pages Fixes https://lists.sr.ht/~cadence/breezewiki-discuss/%3Cb2835a70-5118-4df0-90c9-4333486a4b69%40nixnetmail.com%3E 2022-10-08 08:35:35 +00:00			`(require-reloadable "src/page-file.rkt" page-file)`
Look for paths relative to source files 2022-08-24 01:23:46 +00:00
Add homepage, architecture changes * Create homepage * Page data is automatically reloaded (except when compiling) * Entrypoint is breezewiki.rkt for running and dist.rkt for compiling * Include stack trace when sending error messages 2022-08-30 09:33:28 +00:00			`(reload!)`

In breezewiki.rkt, start server in thread This allows inspecting the program state using (enter! "breezewiki.rkt") in the REPL. 2022-09-01 02:55:25 +00:00			`(define ch (make-channel))`
			`(define (start)`
			`(serve/launch/wait`
Add bind_host setting requested by Artemis 2023-03-08 09:53:07 +00:00			`#:listen-ip (if (equal? (config-get 'bind_host) "auto")`
			`(if (config-true? 'debug) "127.0.0.1" #f)`
			`(config-get 'bind_host))`
In breezewiki.rkt, start server in thread This allows inspecting the program state using (enter! "breezewiki.rkt") in the REPL. 2022-09-01 02:55:25 +00:00			`#:port (string->number (config-get 'port))`
			`(λ (quit)`
			`(channel-put ch (lambda () (semaphore-post quit)))`
Simplify files even more - breezewiki.rkt now always sets up the hot-reload watcher - dispatcher logic moved to dispatcher-tree.rkt - dispatcher-tree is a macro that doesn't care about the order of its forms 2022-09-04 10:13:36 +00:00			`(dispatcher-tree`
			`; order of these does not matter`
			`page-category`
Add global search on home page 2022-09-17 10:36:04 +00:00			`page-global-search`
Simplify files even more - breezewiki.rkt now always sets up the hot-reload watcher - dispatcher logic moved to dispatcher-tree.rkt - dispatcher-tree is a macro that doesn't care about the order of its forms 2022-09-04 10:13:36 +00:00			`page-home`
Add a funny redirect that I can make use of later 2022-10-13 09:40:14 +00:00			`page-it-works`
Simplify files even more - breezewiki.rkt now always sets up the hot-reload watcher - dispatcher logic moved to dispatcher-tree.rkt - dispatcher-tree is a macro that doesn't care about the order of its forms 2022-09-04 10:13:36 +00:00			`page-not-found`
			`page-proxy`
			`page-search`
Support light/dark themes as per Fandom's styles 2022-11-29 11:03:54 +00:00			`page-set-user-settings`
Create archiver and offline code handlers Somewhat messy. Will clean up gradually in future commits. 2023-02-05 04:56:15 +00:00			`page-static-archive`
Simplify files even more - breezewiki.rkt now always sets up the hot-reload watcher - dispatcher logic moved to dispatcher-tree.rkt - dispatcher-tree is a macro that doesn't care about the order of its forms 2022-09-04 10:13:36 +00:00			`page-wiki`
Create archiver and offline code handlers Somewhat messy. Will clean up gradually in future commits. 2023-02-05 04:56:15 +00:00			`page-wiki-offline`
Add support for File: pages Fixes https://lists.sr.ht/~cadence/breezewiki-discuss/%3Cb2835a70-5118-4df0-90c9-4333486a4b69%40nixnetmail.com%3E 2022-10-08 08:35:35 +00:00			`page-file`
Redirect /wikiname to its homepage 2022-09-09 03:42:20 +00:00			`redirect-wiki-home`
Dispatch based on Host header (subdomain support) 2022-09-04 13:32:45 +00:00			`static-dispatcher`
			`subdomain-dispatcher))))`
In breezewiki.rkt, start server in thread This allows inspecting the program state using (enter! "breezewiki.rkt") in the REPL. 2022-09-01 02:55:25 +00:00			`(define server-t (thread start))`
			`(define quit (channel-get ch))`