Fix website title

web.lisp

@@ -343,10 +343,6 @@ reblocks bug.")
 (defmethod render ((page page))
   "Render PAGE."
   (with-html
-    (:doctype)
-    (:html
-     (:head
-      (:title "Truth Table Generator"))
     (:body
      (with-slots (table error-box help-overlay) page
        (render help-overlay)
@@ -414,15 +410,14 @@ reblocks bug.")
        (render error-box)
        (render table)
        (:div :id "info-text"
-         (:span 
-          "This website is free software under the terms of the AGPL"
+             (:span "This website is free software under the terms of the AGPL"
                     "license version 3. You can find a copy of the license ")
              (:a :href "https://www.gnu.org/licenses/agpl-3.0.html"
                  "here")
              (:span ". You can find the source of this website ")
              (:a :href "https://git.zander.im/Zander671/truth-table"
                  "here")
-         (:span ".")))))))
+             (:span "."))))))
 
 (defmethod get-dependencies ((page page))
   (append
@@ -456,12 +451,14 @@ reblocks bug.")
    (call-next-method)))
 
 (defapp truth-table-app
-  :prefix *default-prefix*)
+  :prefix *default-prefix*
+  :name "Truth Table Generator")
 
 (defmethod reblocks/page:init-page ((app truth-table-app) (url-path string)
                                     expire-at)
   "Main entry point for webpage."
   (declare (ignorable app url-path expire-at))
+  (setf (reblocks/page:get-title) "Truth Table Generator")
   (make-instance 'page))
 
 (defparameter *command-line-spec*