Refactor process name retrieval in Get-AbrProcessDiagram and Get-AbrProcessInfo functions to only include the first part of the name

Author: rebelinux

Src/Private/Get-AbrProcessDiagram.ps1

@@ -50,7 +50,7 @@ function Get-AbrProcessDiagram {
 
     process {
         try {
-            $Process = Get-Process | Sort-Object -Property CPU -Descending | Select-Object -Property @{Name = 'Name'; Expression = { "$($_.Name) (Id=$($_.Id))" } } -First 5
+            $Process = Get-Process | Sort-Object -Property CPU -Descending | Select-Object -Property @{Name = 'Name'; Expression = { "$($_.Name.Split(' ')[0]) (Id=$($_.Id))" } } -First 5
             SubGraph ProcessH -Attributes @{Label = $($reportTranslate.Label); fontsize = 22; penwidth = 1.5; labelloc = 't'; style = 'dashed,rounded'; color = 'gray' } {
                 Node 'System' -NodeScript { $_ } -Attributes @{shape = 'rectangle'; style = 'filled'; fillcolor = '#EDEDED'; color = '#71797E'; fontcolor = $Fontcolor; penwidth = 1.5; }
                 Node $Process.Name -NodeScript { $_ } -Attributes @{shape = 'rectangle'; style = 'filled'; fillcolor = '#EDEDED'; color = '#71797E'; fontcolor = $Fontcolor; penwidth = 1.5; }

Src/Private/Get-AbrProcessInfo.ps1

@@ -34,7 +34,7 @@ function Get-AbrProcessInfo {
                         $SystemProcessInfo = @()
                         foreach ($Process in $SystemProcess) {
                             $InObj = [Ordered]@{
-                                $($reportTranslate.Name) = $Process.ProcessName
+                                $($reportTranslate.Name) = $Process.ProcessName.Split(' ')[0]
                                 $($reportTranslate.Id) = $Process.Id
                                 $($reportTranslate.CPU) = & { try { [math]::Round($Process.CPU, 0) } catch { '--' } }
                                 $($reportTranslate.Memory) = & { try { [math]::Round($Process.WorkingSet / 1MB, 0) } catch { '--' } }