hans/racket-webview
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-09 11:55:44 +02:00
parent 52892e009d
commit 26d607bd7f
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
racket-webview.rkt
View File

@@ -14,6 +14,7 @@
web-server/servlet-env web-server/servlet-env
(prefix-in c: net/cookies) (prefix-in c: net/cookies)
net/url net/url
net/uri-codec
racket/runtime-path racket/runtime-path
racket/file racket/file
racket/string racket/string
@@ -701,6 +702,7 @@
(let* ((idx (string-find file "?"))) (let* ((idx (string-find file "?")))
(unless (eq? idx #f) (unless (eq? idx #f)
(set! file (substring file 0 idx)))) (set! file (substring file 0 idx))))
(set! file (uri-decode file))
(let ((f (if (string=? file "/") "index.html" file))) (let ((f (if (string=? file "/") "index.html" file)))
(when (string-prefix? f "/") (when (string-prefix? f "/")
(set! f (substring f 1))) (set! f (substring f 1)))