cleanup home for demo

Author: Ramblurr

README.md

@@ -31,6 +31,11 @@ There are no "partials" or "components" in the traditional sense. On every chang
 
 Of course views are just functions calling functions, so you can pull common functionality (dialogs, forms, buttons, etc) into functions accessible from a shared namespace.
 
+Here is the view in the demo application that renders the registration page:
+
+https://github.com/Ramblurr/hifi-crud/blob/2f4fdfee36b8155d9e80338ad74569647f8271e5/src/app/auth/register.clj#L68-L114
+
+
 ## The State
 
 There are two sources of backend state:

src/app/auth/register.clj

@@ -46,11 +46,15 @@
       (unique-conflict-error data)
       (unhandled-tx-error e data))))
 
-(defn validate-command [cofx {:keys [signals]}]
+(defn validate-command
+  "Handle registration form interactive validation"
+  [cofx {:keys [signals]}]
   {:outcome/effects
    [(forms/validate-form (RegisterForm cofx) signals)]})
 
-(defn submit-command [cofx {:keys [signals]}]
+(defn submit-command
+  "Handle registration form submission"
+  [cofx {:keys [signals]}]
   (let [errors (forms/validate-form (RegisterForm cofx) signals :clear? false)]
     (if false
       {:outcome/effects [errors]}

src/app/home/index.clj

@@ -54,8 +54,7 @@
    [:div {:id "notification-container" :class "flex w-full flex-col items-center space-y-4 sm:items-end"}
     (for [notif notifications]
       (let [{:keys [id title text]} notif]
-        (notification id title text)))
-    #_(notification "notif-saved" "Succesfully saved!" "Anyone with a link can now view this file.")]])
+        (notification id title text)))]])
 
 (defn render-home-logged-out [{:keys [url-for] :as req}]
   (let [link-cls "text-sm font-medium text-teal-600 underline"]