Zander671/truth-table
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix website title

Browse Source
This commit is contained in:
Alexander Rosenberg 2024-09-16 15:10:31 -07:00
parent a78e132b72
commit 87b47f9c94
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 78 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
web.lisp
View File

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