Add hook to add/override chat tags

Author: StyledStrike

README.md

@@ -52,10 +52,10 @@ By default, the chat box will only load pictures from trusted websites. You can
 
 ### For developers
 
-You can prevent links from certain players from embedding, by using the `CanEmbedCustomChat` hook on the **clientside**.
+You can prevent links from certain players from embedding, by using the `CanEmbedCustomChat` hook on the **client side**:
 
 ```lua
-hook.Add( "CanEmbedCustomChat", "override_chat_embed_access", function( ply, url, urlType )
+hook.Add( "CanEmbedCustomChat", "chat_embed_access_example", function( ply, url, urlType )
     -- return false to block embeds from "url"
 
     -- "urlType" will be one of these strings:
@@ -69,6 +69,23 @@ hook.Add( "CanEmbedCustomChat", "override_chat_embed_access", function( ply, url
 end )
 ```
 
+You can add more or override chat tags via code, using this hook on the **client side**:
+
+```lua
+hook.Add( "OverrideCustomChatTags", "custom_tags_example", function( ply )
+    -- A sequential table with strings, colors or anything really
+    local parts = {
+        color_black, "(", Color( 0, 0, 255 ), "The " .. team.GetName( ply:Team() ), color_black, ") "
+    }
+
+    -- Should we keep the original custom tags that
+    -- were added on the "[Admin] Chat Tags" menu?
+    local keepOriginalParts = true
+
+    return parts, keepOriginalParts
+end )
+```
+
 ## Contributing
 
 Before you open a pull request, please read [this](https://github.com/StyledStrike/gmod-custom-chat/blob/master/.github/pull_request_template.md).

lua/custom_chat/client/tags.lua

@@ -33,7 +33,18 @@ local function CustomChat_AddCustomTags( ply, text, isTeam, isDead )
     if not IsValid( ply ) or not ply:IsPlayer() then return end
 
     local parts = Tags:GetParts( ply )
-    if not parts then return end
+    local customParts, keepOriginal = hook.Run( "OverrideCustomChatTags", ply )
+
+    if customParts then
+        assert( type( customParts ) == "table" and table.IsSequential( customParts ),
+            "OverrideCustomChatTags must be return sequential table!" )
+
+        if not keepOriginal then
+            parts = nil
+        end
+    end
+
+    if not parts and not customParts then return end
 
     local message = {}
 
@@ -51,10 +62,16 @@ local function CustomChat_AddCustomTags( ply, text, isTeam, isDead )
         Insert( "*DEAD* " )
     end
 
+    if customParts and #customParts > 0 then
+        for _, v in ipairs( customParts ) do
+            Insert( v )
+        end
+    end
+
     local messageColor = Color( 255, 255, 255 )
 
-    if #parts > 0 then
-        for _, v in pairs( parts ) do
+    if parts and #parts > 0 then
+        for _, v in ipairs( parts ) do
             local color = Color( v[2], v[3], v[4] )
 
             if v[1] == "MESSAGE_COL" then