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-08 10:16:30 +02:00
parent 44c5a4304f
commit de8930cd2a
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
racket-webview.rkt
View File

@@ -704,6 +704,9 @@
#:not-exist [on-not-exist (λ (file base-path path) path)] #:not-exist [on-not-exist (λ (file base-path path) path)]
) )
(λ (file) (λ (file)
(let* ((idx (string-find file "?")))
(unless (eq? idx #f)
(set! file (substring file 0 idx))))
(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)))