mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

return a new clog-window on open of new windows

Browse source
This commit is contained in:
David Botton 2024-03-05 12:42:16 -05:00
parent 6adfd93e25
commit 59101f4bd0
1 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

17
source/clog-window.lisp
View file

@ -19,9 +19,12 @@
;; make-clog-window ;;
;;;;;;;;;;;;;;;;;;;;;;
(defun make-clog-window (connection-id)
(defun make-clog-window (connection-id &key html-id)
"Construct a new clog-window. (Private)"
(make-instance 'clog-window :connection-id connection-id :html-id "window"))
(make-instance 'clog-window :connection-id connection-id
:html-id (if html-id
html-id
"window")))
;;;;;;;;;;;;;;;;;
;; window-name ;;
@ -384,14 +387,18 @@ events and messages may not be trasmitted on most browsers."))
(defgeneric open-window (clog-window url &key name specs replace)
(:documentation "This will launch a new window of current browser where
CLOG-WINDOW is displayed (remote or local). In modern browsers it is
very limitted to just open a new tab with url unless is a localhost url."))
CLOG-WINDOW is displayed (remote or local) and returns a new clog-window.
In modern browsers it is very limitted to just open a new tab with url
unless is a localhost url."))
(defmethod open-window ((obj clog-window) url &key
(name "_blank")
(specs "")
(replace "false"))
(execute obj (format nil "open('~A','~A','~A',~A)" url name specs replace)))
(let ((new-id (format nil "CLOG~A" (clog-connection:generate-id))))
(execute obj (format nil "clog['~A']=open('~A','~A','~A',~A)"
new-id url name specs replace))
(make-clog-window (connection-id obj) :html-id new-id)))
;;;;;;;;;;;;;;;;;;
;; close-window ;;