Don't remove namespaces from attributes (#61)

Fixes #12.
aantron · Sep 5, 2024 · eda4c91 · eda4c91
1 parent 6c05f4d
commit eda4c91
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
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;