Add soft delete user account

CHANGELOG.md

@@ -16,6 +16,7 @@
 - Improve design and UX for interactions and presentation settings in the manager view
 - Add pagination for events on the dashboard
 - Fix STMP adapter to work with secure connection
+- Add soft delete for user accounts
 
 ## v2.2.0
 

lib/claper/accounts.ex

@@ -38,7 +38,9 @@ defmodule Claper.Accounts do
 
   """
   def get_user_by_email(email) when is_binary(email) do
-    Repo.get_by(User, email: email)
+    User
+    |> where([u], is_nil(u.deleted_at))
+    |> Repo.get_by(email: email)
   end
 
   @doc """
@@ -79,8 +81,8 @@ defmodule Claper.Accounts do
   """
   def get_user_by_email_and_password(email, password)
       when is_binary(email) and is_binary(password) do
-    user = Repo.get_by(User, email: email)
-    if User.valid_password?(user, password), do: user
+    user = User |> where([u], u.email == ^email and is_nil(u.deleted_at)) |> Repo.one()
+    if user && User.valid_password?(user, password), do: user
   end
 
   @doc """
@@ -99,6 +101,37 @@ defmodule Claper.Accounts do
   """
   def get_user!(id), do: Repo.get!(User, id)
 
+  def get_user(id) do
+    User
+    |> where([u], is_nil(u.deleted_at))
+    |> Repo.get(id)
+  end
+
+  @doc """
+  Soft deletes a user.
+
+  ## Examples
+
+      iex> delete_user(user)
+      {:ok, %User{}}
+
+      iex> delete_user(user)
+      {:error, %Ecto.Changeset{}}
+
+  """
+  def delete_user(%User{} = user) do
+    user
+    |> User.delete_changeset()
+    |> Repo.update()
+  end
+
+  @doc """
+  Returns true if the user has been soft deleted.
+  """
+  def deleted?(%User{} = user) do
+    not is_nil(user.deleted_at)
+  end
+
   ## User registration
 
   @doc """
@@ -515,10 +548,6 @@ defmodule Claper.Accounts do
     )
   end
 
-  def delete(user) do
-    Repo.delete(user)
-  end
-
   ## OIDC
 
   def create_oidc_user(attrs) do

lib/claper/accounts/user.ex

@@ -14,7 +14,8 @@ defmodule Claper.Accounts.User do
           locale: String.t() | nil,
           events: [Claper.Events.Event.t()] | nil,
           inserted_at: NaiveDateTime.t(),
-          updated_at: NaiveDateTime.t()
+          updated_at: NaiveDateTime.t(),
+          deleted_at: NaiveDateTime.t() | nil
         }
 
   schema "users" do
@@ -25,6 +26,7 @@ defmodule Claper.Accounts.User do
     field :is_randomized_password, :boolean
     field :confirmed_at, :naive_datetime
     field :locale, :string
+    field :deleted_at, :naive_datetime
 
     has_many :events, Claper.Events.Event
     has_one :lti_user, Lti13.Users.User
@@ -44,6 +46,14 @@ defmodule Claper.Accounts.User do
     |> cast(attrs, [:locale])
   end
 
+  @doc """
+  A changeset for marking a user as deleted.
+  """
+  def delete_changeset(user) do
+    now = NaiveDateTime.utc_now() |> NaiveDateTime.truncate(:second)
+    change(user, deleted_at: now)
+  end
+
   defp validate_email(changeset) do
     changeset
     |> validate_required([:email])

lib/claper/accounts/user_token.ex

@@ -75,7 +75,8 @@ defmodule Claper.Accounts.UserToken do
     query =
       from token in token_and_context_query(token, "session"),
         join: user in assoc(token, :user),
-        where: token.inserted_at > ago(@session_validity_in_days, "day"),
+        where:
+          token.inserted_at > ago(@session_validity_in_days, "day") and is_nil(user.deleted_at),
         select: user
 
     {:ok, query}

lib/claper_web/controllers/user_registration_controller.ex

@@ -43,6 +43,14 @@ defmodule ClaperWeb.UserRegistrationController do
     end
   end
 
+  def delete(conn, _params) do
+    Accounts.delete_user(conn.assigns.current_user)
+
+    conn
+    |> put_flash(:info, gettext("Your account has been deleted."))
+    |> UserAuth.log_out_user()
+  end
+
   defp user_params(params) do
     if Application.get_env(:claper, :email_confirmation) do
       params

lib/claper_web/live/event_live/index.html.heex

@@ -209,7 +209,7 @@
         <% end %>
       </ul>
       <%= if @page < @total_pages do %>
-        <div class="flex justify-center mt-8">
+        <div class="flex justify-center my-4">
           <button
             phx-click="load-more"
             class="inline-flex items-center px-4 py-2 border border-transparent text-sm font-medium rounded-md text-primary-700 bg-primary-100 hover:bg-primary-200 focus:outline-none focus:ring-2 focus:ring-offset-2 focus:ring-primary-500"

lib/claper_web/live/user_settings_live/show.ex

@@ -210,16 +210,6 @@ defmodule ClaperWeb.UserSettingsLive.Show do
     end
   end
 
-  @impl true
-  def handle_event("delete_account", _params, %{assigns: %{current_user: user}} = socket) do
-    Accounts.delete(user)
-
-    {:noreply,
-     socket
-     |> put_flash(:info, gettext("Your account has been deleted."))
-     |> redirect(to: ~p"/users/log_in")}
-  end
-
   @impl true
   def handle_event("validate", _params, socket) do
     {:noreply, socket}

lib/claper_web/live/user_settings_live/show.html.heex

@@ -280,16 +280,15 @@
         </div>
         <div class="border-t border-gray-200 py-5 sm:p-0">
           <dl class="sm:divide-y sm:divide-gray-200">
-            <div class="mt-5">
-              <button
-                data-confirm={
-                  gettext("All your events and files will be permanently deleted, are you sure?")
-                }
-                phx-click="delete_account"
-                class="w-full lg:w-auto px-6 text-center text-white py-2 rounded-md tracking-wide font-bold focus:outline-none focus:shadow-outline bg-gradient-to-tl from-supporting-red-600 to-supporting-red-400 bg-size-200 bg-pos-0 hover:bg-pos-100 transition-all duration-500"
-              >
-                <%= gettext("Delete account") %>
-              </button>
+            <div class="my-5">
+              <%= link(gettext("Delete account"),
+                to: ~p"/users/register/delete",
+                method: :delete,
+                "data-confirm":
+                  gettext("All your events and files will be permanently deleted, are you sure?"),
+                class:
+                  "w-full lg:w-auto px-6 text-center text-white py-2 rounded-md tracking-wide font-bold focus:outline-none focus:shadow-outline bg-gradient-to-tl from-supporting-red-600 to-supporting-red-400 bg-size-200 bg-pos-0 hover:bg-pos-100 transition-all duration-500"
+              ) %>
             </div>
           </dl>
         </div>

lib/claper_web/router.ex

@@ -154,6 +154,7 @@ defmodule ClaperWeb.Router do
 
     post("/events/:uuid/slide.jpg", EventController, :slide_generate)
     get("/users/settings/confirm_email/:token", UserSettingsController, :confirm_email)
+    delete("/users/register/delete", UserRegistrationController, :delete)
   end
 
   scope "/", ClaperWeb do

priv/repo/migrations/20241228162732_add_deleted_at_to_users.exs

@@ -0,0 +1,11 @@
+defmodule Claper.Repo.Migrations.AddDeletedAtToUsers do
+  use Ecto.Migration
+
+  def change do
+    alter table(:users) do
+      add :deleted_at, :naive_datetime, null: true
+    end
+
+    create index(:users, [:deleted_at])
+  end
+end