Merge pull request #37 from VyacheslavMik/master

Fix quickstart doc, fix typo, fix default page.
40ants · Apr 6, 2023 · d521322 · d521322
2 parents 3d6aad7 + 980fb48
commit d521322
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/default-init.lisp b/src/default-init.lisp
@@ -32,7 +32,7 @@
        (:pre
         (:code
          (format nil "
-CL-USER> (defmethod reblocks/page:init-page ((app ~A) (url-path string) (expire-at local-time:timestamp))
+CL-USER> (defmethod reblocks/page:init-page ((app ~A) (url-path string) expire-at)
            \"Hello world!\")" (string-downcase
                                (type-of *current-app*)))))
        (:p "And reset current session:")
@@ -42,7 +42,7 @@ CL-USER> (defmethod reblocks/page:init-page ((app ~A) (url-path string) (expire-
 CL-USER> (reblocks/debug:reset-latest-session)"))
 
        (:p "Then reload the page.")
-       (:p ("Read more in [documentaion](~A)."
+       (:p ("Read more in [documentation](~A)."
             quickstart-url)))
      :escape-p nil)))
 

diff --git a/src/doc/quickstart.lisp b/src/doc/quickstart.lisp
@@ -231,8 +231,8 @@ TODO> (defun make-task-list (&rest rest)
                         collect (make-task title))))
           (make-instance 'task-list :tasks tasks)))
 
-TODO> (defmethod reblocks/session:init ((app tasks))
-         (declare (ignorable app))
+TODO> (defmethod reblocks/page:init-page ((app tasks) (url-path string) expire-at)
+         (declare (ignorable app url-path expire-at))
          (make-task-list \"Make my first Reblocks app\"
                          \"Deploy it somewhere\"
                          \"Have a profit\"))