Don't remove namespaces from attributes (#61)

maxRN · web-flow · commit eda4c913c680 · 2024-09-05T17:55:54.000+03:00
Fixes #12.
diff --git a/src/soup.ml b/src/soup.ml
@@ -100,7 +100,10 @@ let from_signals' ~map_attributes signals =
     ~element:(fun name attributes children ->
       let attributes =
         attributes
-        |> List.map (fun ((_, n), v) -> n, v)
+        |> List.map (fun ((ns, n), v) ->
+          match ns with
+          | "" -> (n, v)
+          | _ -> (ns ^ ":" ^ n, v))
         |> map_attributes name in
       create_element (snd name) attributes children)
     s)
diff --git a/test/pages/list.html b/test/pages/list.html
@@ -1,5 +1,5 @@
 <html>
-<body class="lists">
+<body class="lists" my:attr="value">
 
 <ul>
   <li id="one" class="odd">Item 1</li>
diff --git a/test/test.ml b/test/test.ml
@@ -357,6 +357,7 @@ let suites = [
       in
 
       value "body" "class" (Some "lists");
+      value "body" "my:attr" (Some "value");
       value "li#two" "id" (Some "two");
       value "html" "id" None;
 
