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

Rename pages to views

Browse source
This commit is contained in:
Marcus Kammer 2024-05-31 15:18:13 +02:00
parent 52cd41b308
commit e03b587fe2
Signed by: marcuskammer
GPG key ID: C374817BE285268F
8 changed files with 146 additions and 141 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
dev.metalisp.survey.asd
View file

@ -14,7 +14,11 @@
((:file "sus")))
(:module "src/views"
:components
((:file "pages")))
((:file "index")
(:file "create-survey")
(:file "new-survey")
(:file "survey")
(:file "surveys")))
(:module "src"
:depends-on ("package" "src/views")
:serial t

2
package.lisp
View file

@ -36,7 +36,7 @@
(:use #:cl)
(:export #:navbar-en #:navbar-de))
(defpackage ml-survey/pages
(defpackage ml-survey/views
(:use #:cl)
(:import-from #:dev.metalisp.sbt
#:with-page)

12
src/views/create-survey.lisp Normal file
View file

@ -0,0 +1,12 @@
(in-package :ml-survey/views)
(defun create-survey (survey-id)
"Generates the view to show the survey created."
(with-page (:title "Surveys")
(ml-survey/partials:navbar-en)
(:section :class "container"
(:h2 "Your Surveys")
(if survey-id
(:div :class "alert alert-info" :role "alert"
(format nil "Your new survey: ~A is created." survey-id))
nil))))

17
src/views/index.lisp Normal file
View file

@ -0,0 +1,17 @@
(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))))))))))

57
src/views/new-survey.lisp Normal file
View file

@ -0,0 +1,57 @@
(in-package :ml-survey/views)
;; CREATE TABLE surveys (
;; id SERIAL PRIMARY KEY,
;; unique_id UUID DEFAULT uuid_generate_v4(),
;; title VARCHAR(255),
;; description TEXT,
;; instructions TEXT,
;; creator_id INTEGER,
;; created_at TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
;; updated_at TIMESTAMP DEFAULT CURRENT_TIMESTAMP
;; );
(defun new-survey ()
"Generates the view to create a new survey."
(with-page (:title "New Survey")
(ml-survey/partials:navbar-en)
(:section :class "container"
(:h2 :class "mb-3" "New Survey")
(:form :action "/create-survey" :method "post"
(:h3 "Metadata")
(:div :class "mb-3"
(:label :class "form-label"
:for "title" "Title")
(:input :class "form-control"
:type "text"
:id "title"
:name "title"))
(:div :class "mb-3"
(:label :class "form-label"
:for "description" "Description")
(:textarea :class "form-control"
:rows "3"
:id "description"
:name "description"))
(:h3 "Questionnaires")
(:div :class "mb-3"
(let ((questionnaires '(("System Usability Scale (Deutsch)" "/sus?lang=de")
("System Usability Scale (English)" "/sus?lang=en"))))
(loop for el in questionnaires
for name = (first el)
for uri = (second el) do
(:div :class "form-check"
(:input :class "form-check-input"
:type "checkbox"
:value uri
:id uri
:name "questionnaire"
(:label :class "form-check-label"
:for uri
name))))))
(:button :type"Submit"
:class "btn btn-primary"
"Create Survey")))))

139
src/views/pages.lisp
View file

@ -1,139 +0,0 @@
(in-package :ml-survey/pages)
(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))))))))))
;; CREATE TABLE surveys (
;; id SERIAL PRIMARY KEY,
;; unique_id UUID DEFAULT uuid_generate_v4(),
;; title VARCHAR(255),
;; description TEXT,
;; instructions TEXT,
;; creator_id INTEGER,
;; created_at TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
;; updated_at TIMESTAMP DEFAULT CURRENT_TIMESTAMP
;; );
(defun new-survey ()
"Generates the view to create a new survey."
(with-page (:title "New Survey")
(ml-survey/partials:navbar-en)
(:section :class "container"
(:h2 :class "mb-3" "New Survey")
(:form :action "/create-survey" :method "post"
(:h3 "Metadata")
(:div :class "mb-3"
(:label :class "form-label"
:for "title" "Title")
(:input :class "form-control"
:type "text"
:id "title"
:name "title"))
(:div :class "mb-3"
(:label :class "form-label"
:for "description" "Description")
(:textarea :class "form-control"
:rows "3"
:id "description"
:name "description"))
(:h3 "Questionnaires")
(:div :class "mb-3"
(let ((questionnaires '(("System Usability Scale (Deutsch)" "/sus?lang=de")
("System Usability Scale (English)" "/sus?lang=en"))))
(loop for el in questionnaires
for name = (first el)
for uri = (second el) do
(:div :class "form-check"
(:input :class "form-check-input"
:type "checkbox"
:value uri
:id uri
:name "questionnaire"
(:label :class "form-check-label"
:for uri
name))))))
(:button :type"Submit"
:class "btn btn-primary"
"Create Survey")))))
(defun imprint ()
nil)
(defun extract-title (list)
(cdr (assoc "title" (second list) :test #'string-equal)))
(defun extract-description (list)
(cdr (assoc "description" (second list) :test #'string-equal)))
(defun extract-id (list)
(first list))
(defun surveys (surveys)
"Generates the view to show all surveys available."
(with-page (:title "Surveys")
(ml-survey/partials:navbar-en)
(:section :class "container"
(:h2 :class "mb-3" "Your Surveys")
(:div :class "btn-toolbar my-3"
(:div :class "btn-group me-2"
(:a :class "btn btn-primary"
:href "/new-survey"
"New Survey")))
(:ol :class "list-group list-group-numbered"
(loop for survey in surveys
for title = (extract-title survey)
for description = (extract-description survey)
for id = (extract-id survey) do
(:li :class "list-group-item d-flex justify-content-between align-items-start"
(:div :class "ms-2 me-auto"
(:a :class "fw-bold clearfix"
:href (format nil "/survey/~A" id)
title)
(if description
(:span description)
nil))))))))
(defun create-survey (survey-id)
"Generates the view to show the survey created."
(with-page (:title "Surveys")
(ml-survey/partials:navbar-en)
(:section :class "container"
(:h2 "Your Surveys")
(if survey-id
(:div :class "alert alert-info" :role "alert"
(format nil "Your new survey: ~A is created." survey-id))
nil))))
(defun survey (survey)
"Generates the view to show the survey created."
(let ((id (format nil "~a" (first survey)))
(properties (first (rest survey))))
(with-page (:title "Surveys")
(ml-survey/partials:navbar-en)
(:section :class "container"
(:h2 id)
(:ul :class "list-group"
(loop for property in properties
for key = (car property)
for value = (cdr property) do
(:li :class "list-group-item"
(if (string= key "questionnaire")
(:a :href (concatenate 'string "/survey/" id value)
value)
(format nil "~a: ~a" key value)))))))))

19
src/views/survey.lisp Normal file
View file

@ -0,0 +1,19 @@
(in-package :ml-survey/views)
(defun survey (survey)
"Generates the view to show the survey created."
(let ((id (format nil "~a" (first survey)))
(properties (first (rest survey))))
(with-page (:title "Surveys")
(ml-survey/partials:navbar-en)
(:section :class "container"
(:h2 id)
(:ul :class "list-group"
(loop for property in properties
for key = (car property)
for value = (cdr property) do
(:li :class "list-group-item"
(if (string= key "questionnaire")
(:a :href (concatenate 'string "/survey/" id value)
value)
(format nil "~a: ~a" key value)))))))))

35
src/views/surveys.lisp Normal file
View file

@ -0,0 +1,35 @@
(in-package :ml-survey/views)
(defun extract-title (list)
(cdr (assoc "title" (second list) :test #'string-equal)))
(defun extract-description (list)
(cdr (assoc "description" (second list) :test #'string-equal)))
(defun extract-id (list)
(first list))
(defun surveys (surveys)
"Generates the view to show all surveys available."
(with-page (:title "Surveys")
(ml-survey/partials:navbar-en)
(:section :class "container"
(:h2 :class "mb-3" "Your Surveys")
(:div :class "btn-toolbar my-3"
(:div :class "btn-group me-2"
(:a :class "btn btn-primary"
:href "/new-survey"
"New Survey")))
(:ol :class "list-group list-group-numbered"
(loop for survey in surveys
for title = (extract-title survey)
for description = (extract-description survey)
for id = (extract-id survey) do
(:li :class "list-group-item d-flex justify-content-between align-items-start"
(:div :class "ms-2 me-auto"
(:a :class "fw-bold clearfix"
:href (format nil "/survey/~A" id)
title)
(if description
(:span description)
nil))))))))