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

add unix formatting

Browse source
This commit is contained in:
David Botton 2024-04-12 05:33:47 -04:00
parent 6eb261e761
commit d43bf01210
3 changed files with 1434 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1432
static-files/clog-terminal/unix_formatting.js vendored Normal file
View file

File diff suppressed because it is too large Load diff

2
tutorial/03-tutorial.lisp
View file

@ -26,7 +26,7 @@
;;; This means that appropriate precautions to thread protect data should be taken ;;; 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 ;;; 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 ;;; 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. ;;; 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 ;;; But... notice what happens once syncing is on the next event doesn't hit until
;;; SLEEP returns. ;;; SLEEP returns.

2
tutorial/04-tutorial.lisp
View file

@ -10,7 +10,7 @@
(defun on-new-window (body) (defun on-new-window (body)
"On-new-window handler." "On-new-window handler."
(setf (title (html-document body)) "Tutorial 04") (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!)") (set-on-click (create-section body :h1 :content "Hello World! (click me!)")
'my-on-click) 'my-on-click)
(set-on-click (create-section body :h3 :content "Click me too!") (set-on-click (create-section body :h3 :content "Click me too!")