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

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-24 00:13:14 +01:00
parent 3b07bfb16d
commit 410bc809ae
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
private/web-racket.rkt
View File

@@ -6,6 +6,7 @@
"menu.rkt" "menu.rkt"
"../utils/sprintf.rkt" "../utils/sprintf.rkt"
"webui-wire-download.rkt" "webui-wire-download.rkt"
"../utils/utils.rkt"
html-printer html-printer
(prefix-in g: gregor) (prefix-in g: gregor)
(prefix-in g: gregor/time) (prefix-in g: gregor/time)
@@ -668,6 +669,12 @@
(let ((bdir (string-trim base-dir))) (let ((bdir (string-trim base-dir)))
(when (or (string=? bdir "") (string=? bdir ".") (string=? bdir "..")) (when (or (string=? bdir "") (string=? bdir ".") (string=? bdir ".."))
(set! bdir (path->string (find-system-path 'home-dir)))) (set! bdir (path->string (find-system-path 'home-dir))))
(while (and (> (string-length bdir) 0)
(or (string-suffix? bdir "\\") (string-suffix? bdir "/")))
(set! bdir (substring bdir 0 (- (string-length bdir) 1)))
)
(when (string=? bdir "")
(set! bdir (path->string (find-system-path 'home-dir))))
(ww-debug (format "ww-choose-dir ~a ~a ~a" win-id caption bdir)) (ww-debug (format "ww-choose-dir ~a ~a ~a" win-id caption bdir))
(let ((r (ww-choose-dir win-id caption bdir))) (let ((r (ww-choose-dir win-id caption bdir)))
(ww-debug (format "choose-dir: ~a" r)) (ww-debug (format "choose-dir: ~a" r))