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

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

1
tutorial/21-tutorial.lisp
View file

@ -50,6 +50,7 @@ on the drop-root."))
(in-package :clog-tut-21)
(defun on-new-window (body)
(setf (title (html-document body)) "Tutorial 21") ;; set the page title
(let* ((drop-list (clog-drop-list:create-drop-list body :content "Top of tree"))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 1"))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 2"))