Align naming of module and web resources

dev.metalisp.survey.asd

@@ -2,7 +2,7 @@
 
 (defsystem "dev.metalisp.survey"
   :description "Create questionnaires and analyze the results."
-  :version "0.5.17"
+  :version "0.5.18"
   :author "Marcus Kammer <marcus.kammer@mailbox.org>"
   :source-control (:git "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey.git")
   :licence "MIT"

src/create/handler.lisp

@@ -12,7 +12,7 @@
                                      (push (list uid post-params) stored-surveys))
     (view uid)))
 
-(define-easy-handler (new-survey-handler :uri "/new-survey") nil
+(define-easy-handler (new-survey-handler :uri "/create") nil
   (cond ((eq (hunchentoot:request-method*) :get)
          (process-new-survey-get))
         ((eq (hunchentoot:request-method*) :post)

src/create/view.lisp

@@ -10,10 +10,10 @@
   (let ((questionnaires (list-questionnaires))
         (container "container-fluid")
         (lang "en"))
-    (with-page (:title "New Survey")
-      (with-body-header "fluid" "New Survey" lang
-        (with-navbar "fluid" "metalisp.survey" "/" "New Survey"
-          "Home" "/" "New Survey" "/new-survey"))
+    (with-page (:title "Create")
+      (with-body-header "fluid" "Create" lang
+        (with-navbar "fluid" "metalisp.survey" "/" "Create"
+          "Home" "/" "Create" "/create"))
       (with-body-main "fluid"
         ;; If `questionnaires' is an empty list, show the user an warning
         ;; message.
@@ -29,7 +29,7 @@
                 :role "alert"
                 (format nil "Your new survey: ~A is created." survey-id)))
 
-        (:form :action "/new-survey"
+        (:form :action "/create"
                :method "post"
 
                (:fieldset

src/survey/view.lisp

@@ -8,7 +8,7 @@
     (with-page (:title "Survey Details")
       (with-body-header "fluid" "Survey Details" lang
         (with-navbar "fluid" "metalisp.survey" "/" "Home"
-          "Home" "/" "New Survey" "/new-survey"))
+          "Home" "/" "Create" "/create"))
       (with-body-main "fluid"
         (:div :class "row"
               (with-section-props (with-title-bar "Properties")

src/surveys/view.lisp

@@ -19,7 +19,7 @@ SURVEYS: List of survey objects."
     (with-page (:title "Surveys")
       (with-body-header "fluid" "Surveys" lang
         (with-navbar "fluid" "metalisp.survey" "/" "Home"
-          "Home" "/" "New Survey" "/new-survey"))
+          "Home" "/" "Create" "/create"))
       (with-body-main "fluid"
         (when surveys
           (with-section