mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 02:30:42 -08:00
16 lines
389 B
Common Lisp
16 lines
389 B
Common Lisp
(defpackage #:test-clog
|
|
(:use #:cl #:clog)
|
|
(:export test on-connect))
|
|
|
|
(in-package :test-clog)
|
|
|
|
(defun on-connect (id)
|
|
(place-after
|
|
(place-after nil (create-with-html id "<button>test</botton>"))
|
|
(create-with-html id "<H2>Cool!</H2>")))
|
|
|
|
(defun test ()
|
|
(print "Init connection")
|
|
(initialize #'on-connect :boot-file "/debug.html")
|
|
(print "Open browser")
|
|
(open-browser))
|