artemis/breezewiki
1
0
Fork 0
forked from cadence/breezewiki
Code Issues Pull requests 2 Projects Releases Packages Wiki Activity

Debug xexpr in page-wiki

Browse source
This commit is contained in:
Cadence Ember 2022-09-05 13:38:16 +12:00
parent 44906015a5
commit 9b3cd6dbe7
Signed by untrusted user: cadence
GPG key ID: BC1C2C61CF521B17
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/page-wiki.rkt
View file

@ -13,6 +13,7 @@
web-server/http web-server/http
web-server/dispatchers/dispatch web-server/dispatchers/dispatch
; my libs ; my libs
"config.rkt"
"pure-utils.rkt" "pure-utils.rkt"
"xexpr-utils.rkt" "xexpr-utils.rkt"
"url-utils.rkt" "url-utils.rkt"
@ -231,12 +232,17 @@
(define body (define body
(generate-wiki-page source-url wikiname title (update-tree-wiki page wikiname))) (generate-wiki-page source-url wikiname title (update-tree-wiki page wikiname)))
(define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body))) (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
(response/output (define headers (if redirect-msg
#:code 200
#:headers (if redirect-msg
(let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))] (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
[value (bytes-append #"0;url=" (string->bytes/utf-8 dest))]) [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
(list (header #"Refresh" value))) (list (header #"Refresh" value)))
(list)) (list)))
(when (config-true? 'debug)
; used for its side effects
; convert to string with error checking, error will be raised if xexp is invalid
(xexp->html body))
(response/output
#:code 200
#:headers headers
(λ (out) (λ (out)
(write-html body out))))))])) (write-html body out))))))]))