Use appropriate cssUsingFunction

tests/NoUnknownCssClasses.elm

@@ -198,21 +198,28 @@ fromLiteral node =
             Variable (Node.range node)
 
 
-reportClasses : ModuleContext -> Range -> String -> Node Expression -> f -> List (Rule.Error {})
+reportClasses : ModuleContext -> Range -> String -> Node Expression -> List (Node Expression) -> List (Rule.Error {})
 reportClasses context fnRange name firstArg restOfArguments =
-    case ( ModuleNameLookupTable.moduleNameAt context.lookupTable fnRange, name ) of
+    case
-        ( Just [ "Html", "Attributes" ], "class" ) ->
+        ModuleNameLookupTable.moduleNameAt context.lookupTable fnRange
-            case Node.value firstArg of
+            |> Maybe.andThen (\moduleName -> Dict.get ( moduleName, name ) cssFunctions)
-                Expression.Literal str ->
+    of
-                    unknownClasses
+        Just cssFunction ->
-                        context.knownClasses
+            cssFunction { firstArgument = firstArg, restOfArguments = restOfArguments }
-                        (Node.range firstArg)
+                |> List.concatMap
-                        str
+                    (\arg ->
+                        case arg of
+                            Literal class ->
+                                unknownClasses
+                                    context.knownClasses
+                                    (Node.range firstArg)
+                                    class
 
-                _ ->
+                            Variable range ->
-                    []
+                                Debug.todo "todo"
+                    )
 
-        _ ->
+        Nothing ->
             []