Skip to content

Commit

Permalink
Adjust again
Browse files Browse the repository at this point in the history
  • Loading branch information
mmontone committed May 29, 2024
1 parent 86a28c7 commit 6d69c92
Showing 1 changed file with 13 additions and 12 deletions.
25 changes: 13 additions & 12 deletions src/tags.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -196,6 +196,18 @@ form that returns some debugging info."
(format stream "<div class=\"debug\" style=\"position:fixed;bottom:0;font-size:12px;height:150px;width:100vw;overflow-y:auto;background-color:lightyellow;border-top:1px solid gray;\">")
(format stream "<ul style=\"list-style-type:none;\">")

(with-safe "the arguments given to the template"
(format stream "<li><b>Template arguments:</b> ")
(if (null *template-arguments*)
(format stream "There were no arguments given to the template")
(progn
(format stream "<ol>")
(alexandria:doplist (key val *template-arguments*)
(format stream "<li>~a = " key)
(write-string (escape-for-html (write-to-string val :pretty nil :length 30)) stream)
(write-string "</li>" stream))
(format stream "</ol>"))))

(with-safe "the default language"
(format stream "<li><b>Default language:</b> ~A </li>" (or *default-language* "none")))

Expand Down Expand Up @@ -224,18 +236,7 @@ form that returns some debugging info."

(with-safe "*ALLOW-INCLUDE-ROOTS*"
(format stream "<li><b>Allow include-roots:</b> ~A</li>" *allow-include-roots*))

(with-safe "the arguments given to the template"
(format stream "<li><b>Template arguments:</b> ")
(if (null *template-arguments*)
(format stream "There were no arguments given to the template")
(progn
(format stream "<ol>")
(alexandria:doplist (key val *template-arguments*)
(format stream "<li>~a = " key)
(write-string (escape-for-html (write-to-string val :pretty nil :length 30)) stream)
(write-string "</li>" stream))
(format stream "</ol>"))))

(format stream "</ul>")
(format stream "</div>")))

Expand Down

0 comments on commit 6d69c92

Please sign in to comment.