From b13b2949cb09260cc33ee0fad70b3139d76976ce Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Fri, 31 May 2024 15:23:49 +0200
Subject: [PATCH] Remove index view

---
 dev.metalisp.survey.asd |  3 +--
 src/views/index.lisp    | 17 -----------------
 2 files changed, 1 insertion(+), 19 deletions(-)
 delete mode 100644 src/views/index.lisp

diff --git a/dev.metalisp.survey.asd b/dev.metalisp.survey.asd
index bfbe42a..c03a4d4 100644
--- a/dev.metalisp.survey.asd
+++ b/dev.metalisp.survey.asd
@@ -14,8 +14,7 @@
                 ((:file "sus")))
                (:module "src/views"
                 :components
-                ((:file "index")
-                 (:file "create-survey")
+                ((:file "create-survey")
                  (:file "new-survey")
                  (:file "survey")
                  (:file "surveys")))
diff --git a/src/views/index.lisp b/src/views/index.lisp
deleted file mode 100644
index 2964132..0000000
--- a/src/views/index.lisp
+++ /dev/null
@@ -1,17 +0,0 @@
-(in-package :ml-survey/views)
-
-(defun index ()
-  (let ((collection '("English" ("/sus?lang=en" "System Usability Scale")
-                      "Deutsch" ("/sus?lang=de" "System Usability Scale"
-                                 "/demographics?lang=de" "Demografie"))))
-    (with-page (:title "Survey")
-      (ml-survey/partials:navbar-en)
-      (:section :class "container"
-                (:h2 :class "mb-3" "Surveys")
-                (loop for (lang anchors) on collection by #'cddr do
-                  (:section :class "container-fluid mb-3"
-                            (:h3 :class "mb-3" lang)
-                            (:ul :class "list-group"
-                                 (loop for (url name) on anchors by #'cddr do
-                                   (:li :class "list-group-item"
-                                        (:a :href url name))))))))))