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

Made sure every single tutorial page had page title set to "Tutorial xx" as appropriate. The purpose of the updates is to make it easy for anyone to open up a tutorial and see which one was loaded up by looking at the page title.

Browse source
This commit is contained in:
Mr. Lemmywinks - git is ridiculous 2023-08-18 23:22:00 -07:00
parent cad8ebce9c
commit 5fbbd5cda1
23 changed files with 30 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

9
tutorial/11-tutorial.lisp
View file

@ -36,7 +36,7 @@
(in-package :clog-tut-11)
(defun on-new-window (body)
;; This will turn on debug output in the browser console.
;; This will turn on debug output in the browser console.
(debug-mode body)
;; Setup form
(let* ((form (attach-as-child body "form1" :clog-type 'clog-form))
@ -67,7 +67,12 @@
;; We need to override the boostrap default to submit the form html style
(set-on-submit form (lambda (obj)(declare (ignore obj))()))
(set-on-click good-button #'on-click-good)
(set-on-click scary-button #'on-click-scary))))
(set-on-click scary-button #'on-click-scary)))
(setf (title (html-document body)) "Tutorial 11") ;; set the page title
)
(defun start-tutorial ()
"Start tutorial."