mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-15 14:51:14 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix 'cl-repl' file browser to work on Windows

Browse source
This commit is contained in:
pls.153 2022-04-21 10:55:40 +02:00
parent b4e37a6874
commit 050537163f
3 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
examples/cl-repl/lisp/dialogs.lisp
View file

@ -132,11 +132,13 @@
(namestring *default-pathname-defaults*))))
(defun set-file-browser-path (path) ; called from QML
(let ((url (x:cc "file://" (if (x:starts-with ":" path)
(location path)
path))))
(let ((url (x:cc #+win32 "file:/"
#-win32 "file://"
(if (x:starts-with ":" path)
(location path)
path))))
(unless (x:ends-with "/" url)
(setf path* (x:cc url "/")))
(setf url (x:cc url "/")))
(q> |folder| ui:*folder-model* url)))
(defun help ()