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

Replace when with if

Browse source
This commit is contained in:
Marcus Kammer 2024-03-30 17:46:36 +01:00
parent 78f5cf26b0
commit 0891eb08ef
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/main.lisp
View file

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