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

Attaching HTML files to CLOG

Browse source
This commit is contained in:
David Botton 2021-01-17 20:44:52 -05:00
parent 30bbaa2807
commit 01d199abf1
7 changed files with 220 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

10
clog-connection.lisp
View file

@ -46,7 +46,8 @@ script."
(put-line function)
(new-line function)
(alert-box function)
(generate-id function))
(generate-id function)
(debug-mode function))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -369,3 +370,10 @@ HTML <br />."
"Create an alert box on CONNECTION-ID with MESSAGE"
(execute connection-id (format nil "alert('~A');" (escape-string message))))
;;;;;;;;;;;;;;;;
;; debug-mode ;;
;;;;;;;;;;;;;;;;
(defun debug-mode (connection-id)
"Turn on javascript debug mode in the boot.js file"
(execute connection-id "clog_debug = true"))