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 new title text

Browse source
This commit is contained in:
David Botton 2022-02-13 08:39:45 -05:00
parent 74e38ba1ab
commit 1f3ca8d587
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
demos/04-demo.lisp
View file

@ -59,7 +59,7 @@
(defun new-content (app) (defun new-content (app)
(setf (inner-html (main app)) "") (setf (inner-html (main app)) "")
(let ((new-page (create-form-element (main app) :text)) (let ((new-page (create-form-element (main app) :text :value "New Title"))
(tmp (create-br (main app))) (tmp (create-br (main app)))
(text-area (create-text-area (main app) :rows 10 :columns 40))) (text-area (create-text-area (main app) :rows 10 :columns 40)))
(declare (ignore tmp)) (declare (ignore tmp))