reveal anon

lib/philomena/users/ability.ex

@@ -56,6 +56,9 @@ defimpl Canada.Can, for: [Atom, Philomena.Users.User] do
   def can?(%User{role: "moderator"}, :edit, %UserLink{}), do: true
   def can?(%User{role: "moderator"}, :index, UserLink), do: true
 
+  # Reveal anon users
+  def can?(%User{role: "moderator"}, :reveal_anon, %User{}), do: true
+
   #
   # Assistants can...
   #

lib/philomena_web/templates/user_attribution/_anon_user.html.slime

@@ -5,4 +5,7 @@
     = render PhilomenaWeb.ProfileView, "_awards.html", awards: @object.user.awards
 - else
   strong<>
-    = anonymous_name(@object)
+    = if can?(@conn, :reveal_anon, @object) do
+      = link(anonymous_name(@object, true), to: Routes.profile_path(@conn, :show, @object.user))
+    - else
+      = anonymous_name(@object)

lib/philomena_web/views/user_attribution_view.ex

@@ -7,7 +7,7 @@ defmodule PhilomenaWeb.UserAttributionView do
     Attribution.anonymous?(object)
   end
 
-  def anonymous_name(object) do
+  def anonymous_name(object, reveal_anon? \\ false) do
     salt = anonymous_name_salt()
     id = Attribution.object_identifier(object)
     user_id = Attribution.best_user_identifier(object)
@@ -17,7 +17,10 @@ defmodule PhilomenaWeb.UserAttributionView do
       |> Integer.to_string(16)
       |> String.pad_leading(4, "0")
 
-    "Background Pony ##{hash}"
+    case reveal_anon? do
+      true  -> "#{object.user.name} (##{hash}, hidden)"
+      false -> "Background Pony ##{hash}"
+    end
   end
 
   def anonymous_avatar(_object, class \\ "avatar--100px") do