    "success"
    (catch Object _
      "error")))
-
-
 
 (defn send-user-activation-message
   "Send activation message to user"

  (try+
   (if (and (< 1 (count subject)) (< 1 (count message)))
     (m/send-mail ctx subject message [email]))
   (update-user-pages-set-private! {:user_id user-id}(get-db ctx))
   (update-user-badges-set-private! {:user_id user-id}(get-db ctx))
   (delete-user-badge-congratulations! {:user_id user-id}(get-db ctx))
   (delete-user-badge-views! {:user_id user-id}(get-db ctx))
   (update-user-deleted! {:id user-id} (get-db ctx))
   "success"
   (catch Object _

   (catch Object _
     "error")))

(defn private-badges! [ctx badge_id]
  (try+
   (update-user-badge-visibility-by-badge-id! {:badge_id badge_id} (get-db ctx))
   (update-badge-visibility-by-badge-id! {:badge_id badge_id} (get-db ctx))
   "success"
   (catch Object _
     "error")))

(defn private-page! [ctx id]
  (try+
