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

Flesh out the DOM structure

Browse source
This commit is contained in:
David Botton 2020-12-24 21:29:42 -05:00
parent d2e8e78e47
commit 5589cde897
11 changed files with 267 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

72
clog-body.lisp Normal file
View file

@ -0,0 +1,72 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; CLOG - The Common Lisp Omnificent GUI ;;;;
;;;; (c) 2020-2021 David Botton ;;;;
;;;; License BSD 3 Clause ;;;;
;;;; ;;;;
;;;; clog-window.lisp ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cl:in-package :clog)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-body
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-body (clog-obj)
((window
:reader window
:initarg :window)
(document
:reader html-document
:initarg :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."
(make-instance
'clog-body
:connection-id connection-id :html-id 0
:window (make-instance 'clog-window :connection-id connection-id)
:window (make-instance 'clog-document :connection-id connection-id)
:window (make-instance 'clog-location :connection-id connection-id)
:window (make-instance 'clog-navigator :connection-id connection-id)))
;;;;;;;;;;;;
;; 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"))