cadence/breezewiki
2
4
Fork 4
Code Issues Pull requests 1 Releases Wiki Activity

Compare commits

base: cadence:9ee1c73b7efd53b8a22327718eb592a81e3a6c10
Branches Tags
cadence:main
cadence:disable-requests
cadence:early-hints
..
compare: cadence:8754273acf625b75b06435910c6fcb156d2304f9
Branches Tags
cadence:main
cadence:disable-requests
cadence:early-hints

No commits in common. "9ee1c73b7efd53b8a22327718eb592a81e3a6c10" and "8754273acf625b75b06435910c6fcb156d2304f9" have entirely different histories.
9ee1c73b7e ... 8754273acf

3 changed files with 16 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

29
breezewiki.rkt
View file

@ -24,20 +24,15 @@
(set-reload-poll-interval! #f)) (set-reload-poll-interval! #f))
(reload!) (reload!)
(define ch (make-channel)) (serve/launch/wait
(define (start) #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
(serve/launch/wait #:port (string->number (config-get 'port))
#:listen-ip (if (config-true? 'debug) "127.0.0.1" #f) (λ (quit)
#:port (string->number (config-get 'port)) (sequencer:make
(λ (quit) (pathprocedure:make "/" page-home)
(channel-put ch (lambda () (semaphore-post quit))) (pathprocedure:make "/proxy" page-proxy)
(sequencer:make (filter:make #rx"^/[a-z-]+/wiki/Category:.+$" (lift:make page-category))
(pathprocedure:make "/" page-home) (filter:make #rx"^/[a-z-]+/wiki/.+$" (lift:make page-wiki))
(pathprocedure:make "/proxy" page-proxy) (filter:make #rx"^/[a-z-]+/search$" (lift:make page-search))
(filter:make #rx"^/[a-z-]+/wiki/Category:.+$" (lift:make page-category)) static-dispatcher
(filter:make #rx"^/[a-z-]+/wiki/.+$" (lift:make page-wiki)) (lift:make page-not-found))))
(filter:make #rx"^/[a-z-]+/search$" (lift:make page-search))
static-dispatcher
(lift:make page-not-found)))))
(define server-t (thread start))
(define quit (channel-get ch))

6
src/page-home.rkt
View file

@ -57,13 +57,9 @@
(div (@ (class "internal-footer")) (div (@ (class "internal-footer"))
(img (@ (class "my-logo") (src "/static/breezewiki.svg"))) (img (@ (class "my-logo") (src "/static/breezewiki.svg")))
,(if (config-get 'instance-is-official) ,(if (config-get 'instance-is-official)
`(div `(p ,(format "This instance is run by the ~a developer, " (config-get 'application-name))
(p ,(format "This instance is run by the ~a developer, " (config-get 'application-name))
(a (@ (href "https://cadence.moe/contact")) (a (@ (href "https://cadence.moe/contact"))
"Cadence.")) "Cadence."))
(p "Hosting generously provided by "
(a (@ (href "://alphamethyl.barr0w.net/"))
"alphamethyl.")))
`(p `(p
,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application-name)))) ,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application-name))))
(p "Text content on wikis run by Fandom is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), " (p "Text content on wikis run by Fandom is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "

3
src/page-proxy.rkt
View file

@ -4,6 +4,9 @@
racket/port racket/port
; libs ; libs
(prefix-in easy: net/http-easy) (prefix-in easy: net/http-easy)
; html libs
html-parsing
html-writing
; web server libs ; web server libs
net/url net/url
web-server/http web-server/http