mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 02:30:42 -08:00
97 lines
2.9 KiB
Common Lisp
97 lines
2.9 KiB
Common Lisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;; CLOG - The Common Lisp Omnificent GUI ;;;;
|
|
;;;; (c) David Botton ;;;;
|
|
;;;; ;;;;
|
|
;;;; clog-window.lisp ;;;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(cl:in-package :clog)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Implementation - clog-body
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defclass clog-body (clog-element)
|
|
((window
|
|
:reader window
|
|
:initarg :window)
|
|
(html-document
|
|
:reader html-document
|
|
:initarg :html-document)
|
|
(location
|
|
:reader location
|
|
:initarg :location)
|
|
(navigator
|
|
:reader navigator
|
|
:initarg :navigator))
|
|
(:documentation "CLOG Body Object encapsulate the view in the window."))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
;; make-clog-window ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun make-clog-body (connection-id)
|
|
"Construct a new clog-body object."
|
|
(let ((body (make-instance
|
|
'clog-body
|
|
:connection-id connection-id :html-id 0
|
|
:window (make-clog-window connection-id)
|
|
:html-document (make-clog-document connection-id)
|
|
:location (make-clog-location connection-id)
|
|
:navigator (make-clog-navigator connection-id))))
|
|
(set-body (html-document body) body)))
|
|
|
|
;;;;;;;;;
|
|
;; run ;;
|
|
;;;;;;;;;
|
|
|
|
(defgeneric run (clog-body)
|
|
(:documentation "Keeps the original connection thread alive to allow post
|
|
user close of connection / browser. Run returns when the browser
|
|
connection has been severed, acting like an on-close event, only lisp objects
|
|
still exist at this point and no queries can be made to browser or
|
|
DOM elements."))
|
|
(defmethod run ((obj clog-body))
|
|
(loop
|
|
(if (validp obj)
|
|
(sleep 1)
|
|
(return))))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; set-html-on-close ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defgeneric set-html-on-close (clog-body html)
|
|
(:documentation "In case of connection loss to this CLOG-BODY,
|
|
replace the browser contents with HTML."))
|
|
|
|
(defmethod set-html-on-close ((obj clog-body) html)
|
|
(clog-connection:set-html-on-close (connection-id obj) html))
|
|
|
|
;;;;;;;;;;;;
|
|
;; window ;;
|
|
;;;;;;;;;;;;
|
|
|
|
(defgeneric window (clog-body)
|
|
(:documentation "Reader for CLOG-Window object"))
|
|
|
|
;;;;;;;;;;;;;;
|
|
;; document ;;
|
|
;;;;;;;;;;;;;;
|
|
|
|
(defgeneric html-document (clog-body)
|
|
(:documentation "Reader for CLOG-Document object"))
|
|
|
|
;;;;;;;;;;;;;;
|
|
;; location ;;
|
|
;;;;;;;;;;;;;;
|
|
|
|
(defgeneric location (clog-body)
|
|
(:documentation "Reader for CLOG-Location object"))
|
|
|
|
;;;;;;;;;;;;;;;
|
|
;; navigator ;;
|
|
;;;;;;;;;;;;;;;
|
|
|
|
(defgeneric navigator (clog-body)
|
|
(:documentation "Reader for CLOG-Navigator object"))
|