Custom function to convert full names like "First Middle Last" to "F.M. Last"

powerquery-function-initializefirstnames.m

(
    table as table,
    column_name as text,
    new_column_name as text
) as table =>

Table.AddColumn(
    table,
    new_column_name, 
    each
        let
            Names = Text.Split( Record.Field(_,column_name) , " " ),
            Initials = List.Transform( Names , each Text.Start(_,1) & "." ),
            FirstMiddle = Text.Combine( List.RemoveLastN( Initials , 1 ) )
        in
            FirstMiddle & " " & List.Last( Names )
)