mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 03:00:49 -08:00
Code Issues Projects Releases Wiki Activity

use relative url when openning a clog-web page

Browse source
This commit is contained in:
David Botton 2024-02-09 17:17:38 -05:00
parent f1525276a0
commit 2d1e829e33
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/clog-builder.lisp
View file

@ -2478,7 +2478,8 @@ It parse the string TEXT without using READ functions."
(curl (if custom-boot (curl (if custom-boot
(format nil "&curl=~A" (quri:url-encode custom-boot)) (format nil "&curl=~A" (quri:url-encode custom-boot))
"")) ""))
(link (format nil "http://127.0.0.1:8080/~A?bid=~A~A" boot-loc panel-uid curl)) (link (format nil "http://127.0.0.1:~A/~A?bid=~A~A" clog:*clog-port* boot-loc panel-uid curl))
(link-rel (format nil "/~A?bid=~A~A" boot-loc panel-uid curl))
(btn-txt (if url-launch (btn-txt (if url-launch
"Click to launch default browser or copy URL." "Click to launch default browser or copy URL."
"Click if browser does not open new page shortly.")) "Click if browser does not open new page shortly."))
@ -2503,7 +2504,7 @@ It parse the string TEXT without using READ functions."
(destroy txt-area) (destroy txt-area)
(remhash (format nil "~A-link" panel-uid) *app-sync-hash*))) (remhash (format nil "~A-link" panel-uid) *app-sync-hash*)))
(unless url-launch (unless url-launch
(open-window (window (connection-body obj)) link)))) (open-window (window (connection-body obj)) link-rel))))
(defun on-help-about-builder (obj) (defun on-help-about-builder (obj)
"Open about box" "Open about box"