mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 02:30:42 -08:00
add unix formatting
This commit is contained in:
parent
6eb261e761
commit
d43bf01210
3 changed files with 1434 additions and 2 deletions
1432
static-files/clog-terminal/unix_formatting.js
vendored
Normal file
1432
static-files/clog-terminal/unix_formatting.js
vendored
Normal file
File diff suppressed because it is too large
Load diff
|
|
@ -26,7 +26,7 @@
|
|||
;;; This means that appropriate precautions to thread protect data should be taken
|
||||
;;; and that events do not wait for previous event handlers to complete. To change
|
||||
;;; this behavior just add at start of event WITH-SYNC-EVENT and then all events
|
||||
;;; will be serialized like in "traditional" GUIs to that event, events using
|
||||
;;; will be serialized like in "traditional" GUIs so that event, events using
|
||||
;;; WITH-SYNC-EVENT will be on same queue of incoming events and syncronized.
|
||||
;;; But... notice what happens once syncing is on the next event doesn't hit until
|
||||
;;; SLEEP returns.
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@
|
|||
(defun on-new-window (body)
|
||||
"On-new-window handler."
|
||||
(setf (title (html-document body)) "Tutorial 04")
|
||||
;; The same handler #'my-on-click is set on both targets
|
||||
;; The same handler my-on-click is set on both targets
|
||||
(set-on-click (create-section body :h1 :content "Hello World! (click me!)")
|
||||
'my-on-click)
|
||||
(set-on-click (create-section body :h3 :content "Click me too!")
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue