Display process label in application and process views

Author: andzdroid

lib/phoenix/live_dashboard/info/process_info_component.ex

@@ -6,6 +6,7 @@ defmodule Phoenix.LiveDashboard.ProcessInfoComponent do
   @info_keys [
     :initial_call,
     :registered_name,
+    :label,
     :current_function,
     :status,
     :message_queue_len,
@@ -37,6 +38,7 @@ defmodule Phoenix.LiveDashboard.ProcessInfoComponent do
       <%= if @alive do %>
         <Phoenix.LiveDashboard.PageBuilder.label_value_list>
           <:elem label="Registered name"><%= @registered_name %></:elem>
+          <:elem label="Label"><%= @label %></:elem>
           <:elem label="Current function"><%= @current_function %></:elem>
           <:elem label="Initial call"><%= @initial_call %></:elem>
           <:elem label="Status"><%= @status %></:elem>

lib/phoenix/live_dashboard/system_info.ex

@@ -319,6 +319,7 @@ defmodule Phoenix.LiveDashboard.SystemInfo do
     :monitors,
     :monitored_by,
     :registered_name,
+    :label,
     :current_function,
     :status,
     :message_queue_len,
@@ -496,8 +497,12 @@ defmodule Phoenix.LiveDashboard.SystemInfo do
   end
 
   defp to_wrapped_node(type, pid, children) do
-    case Process.info(pid, :registered_name) do
-      {:registered_name, registered_name} ->
+    case Process.info(pid, [:registered_name, :dictionary]) do
+      [{:registered_name, []}, {:dictionary, dictionary}] ->
+        label = Keyword.get(dictionary, :"$process_label", [])
+        [{{type, pid, label}, children}]
+
+      [{:registered_name, registered_name}, _] ->
         [{{type, pid, registered_name}, children}]
 
       _ ->

test/phoenix/live_dashboard/system_info_test.exs

@@ -99,6 +99,14 @@ defmodule Phoenix.LiveDashboard.SystemInfoTest do
       assert info[:registered_name] == Phoenix.LiveDashboard.DynamicSupervisor
       assert info[:initial_call] == {:supervisor, Supervisor.Default, 1}
     end
+
+    if System.otp_release() |> String.to_integer() >= 27 do
+      test "info with label" do
+        {:ok, agent_pid} = Agent.start_link(fn -> Process.set_label("test label") end)
+        {:ok, info} = SystemInfo.fetch_process_info(agent_pid)
+        assert info[:label] == "test label"
+      end
+    end
   end
 
   describe "ports" do