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

Remove old code

Browse source
This commit is contained in:
David Botton 2021-01-12 15:59:48 -05:00
parent 5924563ee7
commit a08ab0e0b1
2 changed files with 0 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

18
demos/01-hello.lisp
View file

@ -1,18 +0,0 @@
(defpackage #:clog-user
(:use #:cl #:clog)
(:export start-demo))
(in-package :clog-user)
(defun start-demo ()
"Simple Hello world using CLOG."
;; Initialize the CLOG system
(clog:initialize
(lambda (win)
(clog:set-on-click
(clog:create-child win "<h1>Hello World!</H1>")
(lambda ()
(clog:create-child win "<p>You Clicked me!</p>")))))
(clog:open-browser))

22
demos/02-singleton.lisp
View file

@ -1,22 +0,0 @@
(defpackage #:clog-user
(:use #:cl #:clog)
(:export start-demo))
(in-package :clog-user)
(defun start-demo ()
"How to allow only one CLOG app to be executed. Normally many browsers can
can be started with the same app."
(clog:initialize
(lambda (win)
(let ((click-target (clog:create-child win "<h1>Hello World!</H1>")))
(clog:set-on-click click-target
(lambda ()
(clog:create-child win "<p>You Clicked me!</p>")))
(clog:set-on-new-window
(lambda (win)
(clog:put-br (clog:html-document win)
"Only single connection premitted."))))))
(clog:open-browser))