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

documentation

Browse source
This commit is contained in:
David Botton 2022-01-31 17:02:25 -05:00
parent 5f7867ec66
commit 9e91caeec5
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
FUTURE.md
View file

@ -18,9 +18,9 @@ Future additions (if interested in doing any let me know):
- Release tool to handle creating platfom executables, templates for Apache and other webservers
- Train and documnetation tool
- Training and documentation tool
- Event queuing when desired to avoid event race conditions
- Event queuing option to avoid event race conditions
- Implement using long polling to optimize CLOG sites for use with
search engines. If not long polling at least initial output sent by
@ -28,7 +28,7 @@ Future additions (if interested in doing any let me know):
- Optimize communication with browser
- Optionaly for local apps allow direct transport of CLOG data to webpage to
- Optionaly, for local apps, allow direct transport of CLOG data to webpage via apis
remove need for websocket transport.
Some notes

5
tools/clog-builder.lisp
View file

@ -479,7 +479,7 @@ not a temporary attached one when using select-control."
(defun on-populate-control-properties-win (obj &key win)
"Populate the control properties for the current control"
;; obj if current-control is nil must be content
(let ((app (connection-data-item obj "builder-app-data")))
(let ((app (connection-data-item obj "builder-app-data")))
(bordeaux-threads:with-lock-held ((properties-lock app))
(on-populate-control-events-win obj)
(let* ((prop-win (control-properties-win app))
@ -578,7 +578,7 @@ not a temporary attached one when using select-control."
(defun on-populate-control-list-win (content)
"Populate the control-list-window to allow drag and drop adjust of order
of controls and double click to select control."
(let ((app (connection-data-item content "builder-app-data")))
(let ((app (connection-data-item content "builder-app-data")))
(bordeaux-threads:with-lock-held ((control-list-win-lock app))
(let ((panel-id (html-id content))
(last-ctl nil))
@ -823,6 +823,7 @@ of controls and double click to select control."
result)))
(defun save-panel (fname content panel-id hide-loc)
"Save panel to FNAME"
(let ((app (connection-data-item content "builder-app-data")))
(maphash
(lambda (html-id control)