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

grid additions

Browse source
This commit is contained in:
David Botton 2024-06-26 20:54:16 -04:00
parent 7924341bfd
commit 3e4c32dd04
3 changed files with 40 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
source/clog-connection-websockets.lisp
View file

@ -48,7 +48,7 @@
(t (c) (t (c)
(when *verbose-output* (when *verbose-output*
(format t "Failed to close the old connection when establishing reconnection. ~ (format t "Failed to close the old connection when establishing reconnection. ~
This can be normal: The old connection could probably don't work for the client, ~ This can be normal: The old connection could not work for the client, ~
so the client is requesting to reconnect.~%Condition - ~A.~&" so the client is requesting to reconnect.~%Condition - ~A.~&"
c)))) c))))
(setf (gethash id *connection-ids*) connection) (setf (gethash id *connection-ids*) connection)
@ -215,10 +215,13 @@
(values 0 c))))) (values 0 c)))))
(lambda (responder) (lambda (responder)
(declare (ignore responder)) (declare (ignore responder))
(websocket-driver:start-connection ws))) (handler-case
(websocket-driver:start-connection ws)
(t (c)
(format t "Condition caught in websocket-driver:start-connection - ~A.~&" c)))))
(t (c) (t (c)
(format t "Condition caught in clog-server start-up - ~A.~&" c) (format t "Condition caught in clog-server start-up - ~A.~&" c)
(values 0 c)))) (values '(400 nil) c))))
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
;; initialize ;; ;; initialize ;;

32
source/clog-element.lisp
View file

@ -1127,6 +1127,22 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT"))
(defmethod (setf grid-auto-flow) (value (obj clog-element)) (defmethod (setf grid-auto-flow) (value (obj clog-element))
(setf (style obj "grid-auto-flow") value)) (setf (style obj "grid-auto-flow") value))
;;;;;;;;;;;;;;;;;
;; grid-column ;;
;;;;;;;;;;;;;;;;;
(defgeneric grid-column (clog-element)
(:documentation "Get/Setf grid-column."))
(defmethod grid-column ((obj clog-element))
(style obj "grid-column"))
(defgeneric (setf grid-column) (value clog-element)
(:documentation "Set grid-column VALUE for CLOG-ELEMENT"))
(defmethod (setf grid-column) (value (obj clog-element))
(setf (style obj "grid-column") value))
;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;
;; grid-column-start ;; ;; grid-column-start ;;
;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;
@ -1159,6 +1175,22 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT"))
(defmethod (setf grid-column-end) (value (obj clog-element)) (defmethod (setf grid-column-end) (value (obj clog-element))
(setf (style obj "grid-column-end") value)) (setf (style obj "grid-column-end") value))
;;;;;;;;;;;;;;
;; grid-row ;;
;;;;;;;;;;;;;;
(defgeneric grid-row (clog-element)
(:documentation "Get/Setf grid-row."))
(defmethod grid-row ((obj clog-element))
(style obj "grid-row"))
(defgeneric (setf grid-row) (value clog-element)
(:documentation "Set grid-row VALUE for CLOG-ELEMENT"))
(defmethod (setf grid-row) (value (obj clog-element))
(setf (style obj "grid-row") value))
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
;; grid-row-start ;; ;; grid-row-start ;;
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;

2
source/clog.lisp
View file

@ -289,8 +289,10 @@ embedded in a native template application.)"
(grid-auto-columns generic-function) (grid-auto-columns generic-function)
(grid-auto-rows generic-function) (grid-auto-rows generic-function)
(grid-auto-flow generic-function) (grid-auto-flow generic-function)
(grid-column generic-function)
(grid-column-start generic-function) (grid-column-start generic-function)
(grid-column-end generic-function) (grid-column-end generic-function)
(grid-row generic-function)
(grid-row-start generic-function) (grid-row-start generic-function)
(grid-row-end generic-function) (grid-row-end generic-function)
(align-items-type type) (align-items-type type)