Tito connect ticket tweaks

resources/logback.xml

@@ -13,4 +13,6 @@
   <logger name="datomic.kv-cluster" level="WARN" />
   <logger name="datomic.peer" level="WARN" />
   <logger name="datomic.log" level="WARN" />
+  <logger name="co.gaiwan.compass.db" level="DEBUG" />
+
 </configuration>

src/co/gaiwan/compass/routes/ticket.clj

@@ -10,16 +10,22 @@
 
 (defn GET-connect-ticket-form
   [{:keys [identity] :as req}]
-  {:html/body
-   [:div
-    [:h2 "Ticket Connection"]
-    [:p "Connect your tito ticket to your compass account here by entering the reference code and your email address!"]
-    [:form {:method "post"}
-     [:label {:for "reference"} "The ticket reference code:"] [:br]
-     [:input {:type "text" :required true :name "reference" :maxlength 4 :placeholder "QUTU"}] [:br]
-     [:label {:for "email"} "The email address assigned to the ticket:"] [:br]
-     [:input {:type "email" :required true :name "email" :value (:discord/email identity)}] [:br]
-     [:input {:type "submit" :value "Connect"}]]]})
+  (if-let [ticket (first  (:tito.ticket/_assigned-to identity))]
+    {:html/body
+     [:div
+      [:h2 "Ticket Connection"]
+      [:p "Your ti.to ticket is already connected! You're all set!"]
+      [:p "Your ticket reference is " [:strong (:tito.ticket/reference ticket)] "."]]}
+    {:html/body
+     [:div
+      [:h2 "Ticket Connection"]
+      [:p "Connect your tito ticket to your compass account here by entering the reference code and your email address!"]
+      [:form {:method "post"}
+       [:label {:for "reference"} "The ticket reference code:"] [:br]
+       [:input {:type "text" :required true :name "reference" :maxlength 4 :placeholder "QUTU"}] [:br]
+       [:label {:for "email"} "The email address assigned to the ticket:"] [:br]
+       [:input {:type "email" :required true :name "email" :value (:discord/email identity)}] [:br]
+       [:input {:type "submit" :value "Connect"}]]]}))
 
 (defn POST-connect-ticket-form
   [{:keys [identity]

src/co/gaiwan/compass/services/tito.clj

@@ -128,7 +128,9 @@
      [?ticket :tito.ticket/registration ?reg]
      [?ticket :tito.ticket/email ?email]
      (not [?ticket :tito.ticket/assigned-to _])]
-   (db/db) reference email))
+   (db/db)
+   reference
+   email))
 
 (defmethod ig/init-key :tito/sync [_ {:keys [interval-seconds]}]
   (log/info :tito/starting-sync-loop {:interval-seconds interval-seconds})