Add ppx support for type instead source.

Fix #229.
ocsigen · Jan 24, 2020 · 731ea42 · 731ea42
1 parent 244381e
commit 731ea42
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/lib/html_sigs.mli b/lib/html_sigs.mli
@@ -442,7 +442,7 @@ module type T = sig
       should ignore leading zeros. *)
 
   val a_mime_type : contenttype wrap -> [> | `Mime_type] attrib
-  [@@reflect.attribute "type" ["object"; "embed"; "area"; "link"]]
+  [@@reflect.attribute "type" ["object"; "embed"; "area"; "link"; "source"]]
   (** This attribute gives an advisory hint as to the content type
       of the content available at the link target address. It
       allows user agents to opt to use a fallback mechanism rather

diff --git a/test/test_ppx.ml b/test/test_ppx.ml
@@ -155,6 +155,10 @@ let basics = "ppx basics", HtmlTests.make Html.[
   [figure ~figcaption:(`Bottom (figcaption [txt " hello "]))
      [txt " "; img ~src:"foo.jpg" ~alt:"a" () ; txt " " ]];
 
+  "type in source",
+  [[%html {|<source src="foo.mp3" type="audio/mpeg"/>|}]],
+  [source ~a:[a_src "foo.mp3"; a_mime_type "audio/mpeg"] ()]
+
 ]
 
 let attribs = "ppx attribs", HtmlTests.make Html.[