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

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 - 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 - Implement using long polling to optimize CLOG sites for use with
search engines. If not long polling at least initial output sent by 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 - 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. remove need for websocket transport.
Some notes 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) (defun on-populate-control-properties-win (obj &key win)
"Populate the control properties for the current control" "Populate the control properties for the current control"
;; obj if current-control is nil must be content ;; 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)) (bordeaux-threads:with-lock-held ((properties-lock app))
(on-populate-control-events-win obj) (on-populate-control-events-win obj)
(let* ((prop-win (control-properties-win app)) (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) (defun on-populate-control-list-win (content)
"Populate the control-list-window to allow drag and drop adjust of order "Populate the control-list-window to allow drag and drop adjust of order
of controls and double click to select control." 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)) (bordeaux-threads:with-lock-held ((control-list-win-lock app))
(let ((panel-id (html-id content)) (let ((panel-id (html-id content))
(last-ctl nil)) (last-ctl nil))
@ -823,6 +823,7 @@ of controls and double click to select control."
result))) result)))
(defun save-panel (fname content panel-id hide-loc) (defun save-panel (fname content panel-id hide-loc)
"Save panel to FNAME"
(let ((app (connection-data-item content "builder-app-data"))) (let ((app (connection-data-item content "builder-app-data")))
(maphash (maphash
(lambda (html-id control) (lambda (html-id control)