From 0891eb08ef4ffe66cf70764218062ab563a662c1 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sat, 30 Mar 2024 17:46:36 +0100
Subject: [PATCH] Replace when with if

---
 src/main.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/main.lisp b/src/main.lisp
index d0100a4..44cc1e0 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -137,14 +137,14 @@ Example usage:
                    (:link :type "text/css" :rel "stylesheet" :href ,(bs-css-url))
                    ,@(loop for url in add-css-urls
                            collect `(:link :type "text/css"
-                                      :rel "stylesheet" :href ,url)))
+                                           :rel "stylesheet" :href ,url)))
 
             (: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))
-              ,@(loop for url in add-js-urls
-                      collect `(:script :src ,url))))))
+                   (:script :src ,(bs-js-url))
+                   ,@(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.