marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Simplify body of with-page

Browse source
This commit is contained in:
Marcus Kammer 2024-06-22 13:17:21 +02:00
parent 0978bde386
commit 6334311fbc
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/main.lisp
View file

@ -151,12 +151,11 @@ Example usage:
collect `(:link :type "text/css"
:rel "stylesheet" :href ,url)))
(:body (:h1 :class "visually-hidden" ,title)
(:main ,@(if main-con (list :class "container") nil) ,@body)
(:body ,@body)
(:script :src ,(bs-url-js))
,@(loop for url in add-js-urls
collect `(:script :src ,url))))))
(:script :src ,(bs-url-js))
,@(loop for url in add-js-urls
collect `(:script :src ,url)))))
(defun remove-special-chars (str)
"Removes all special characters from the string STR except numbers and alphabets.