ensure a proplist as options is in use to retrieve filename

Author: Manuel Rubio

lib/earmark/message.ex

@@ -37,7 +37,11 @@ defmodule Earmark.Message do
     messages
     |> Enum.each(&emit_message(file, &1))
   end
-  def emit_messages(messages, _) do
+  def emit_messages(messages, proplist) when is_list(proplist) do
+    messages
+    |> Enum.each(&emit_message(proplist[:file] || "<args>", &1))
+  end
+  def emit_messages(messages, options) do
     messages
     |> Enum.each(&emit_message("<args>", &1))
   end

test/acceptance/html/illegal_options_test.exs

@@ -27,4 +27,12 @@ defmodule Test.Acceptance.Html.IllegalOptionsTest do
       end)
     assert error_messages == "<args>:0: warning: Unrecognized option oops: Earmark ignored\n"
   end 
+
+  test "with as_html! defining filename" do
+    error_messages =
+      capture_io(:stderr, fn ->
+        as_html!("hello", oops: Earmark, file: "test.md")
+      end)
+    assert error_messages == "test.md:0: warning: Unrecognized option oops: Earmark ignored\n"
+  end
 end