From 081086495c31be342e844ce0c84f59f254f3d25e Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Fri, 5 Jul 2024 16:34:40 +0200
Subject: [PATCH] Fix variable namings

---
 dev.metalisp.survey.asd |  2 +-
 src/views/survey.lisp   | 13 ++++++-------
 2 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/dev.metalisp.survey.asd b/dev.metalisp.survey.asd
index be52b54..b0cdc23 100644
--- a/dev.metalisp.survey.asd
+++ b/dev.metalisp.survey.asd
@@ -1,6 +1,6 @@
 (defsystem "dev.metalisp.survey"
   :description "A simple survey"
-  :version "0.1.4"
+  :version "0.1.5"
   :author "Marcus Kammer <marcus.kammer@metalisp.dev"
   :source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey"
   :licence "MIT"
diff --git a/src/views/survey.lisp b/src/views/survey.lisp
index 6d81ab1..da8e7b1 100644
--- a/src/views/survey.lisp
+++ b/src/views/survey.lisp
@@ -6,7 +6,6 @@
 (defun survey (survey &optional results)
   "Generates the view to show the survey created."
   (check-type survey ml-survey:survey)
-  (print results)
   (let ((results-not-null (results-not-null results))
         (sus-results (getf results :sus)))
     (with-page (:title "Survey Details")
@@ -28,17 +27,17 @@
 		               (:thead
 		                (:tr
 	                     (:th :scope "col" "Time")
-	                     (loop for i from 1 below count-answers
-                               do (:th :scope "col" (format nil "Q ~a" i)))
+	                     (loop for header from 1 below count-answers
+                               do (:th :scope "col" (format nil "Q ~a" header)))
                          (:th :scope "col" "SUS Score")))
 		               (:tbody
-		                (loop for result in sus-results
-                              do (:tr (mapcar (lambda (x) (:td x)) result)))))))
+		                (loop for row in sus-results
+                              do (:tr (mapcar (lambda (data) (:td data)) row)))))))
 
                (loop for (type data) on results by #'cddr unless (eq type :sus)
                      do (progn (:h3 (format nil "~a" type))
                                (loop for row in data
                                      do (:ul :class "list-group py-3"
-                                             (loop for item in row
+                                             (loop for data in row
                                                    do (:li :class "list-group-item"
-                                                           item)))))))))))
+                                                           data)))))))))))