Media: newline in alt text are turned into spaces

ocaml · Aug 23, 2024 · 57ed927 · 57ed927
1 parent f99f1de
commit 57ed927
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/parser/lexer.mll b/src/parser/lexer.mll
@@ -730,6 +730,9 @@ and media tok_descr buffer nesting_level start_offset input = parse
           ~what:(Token.describe `End)
           ~in_what:tok_descr);
       Buffer.contents buffer}
+  | (newline)
+    { Buffer.add_char buffer ' ';
+      media tok_descr buffer nesting_level start_offset input lexbuf }
   | _ as c
     { Buffer.add_char buffer c;
       media tok_descr buffer nesting_level start_offset input lexbuf }

diff --git a/src/parser/test/test.ml b/src/parser/test/test.ml
@@ -2167,8 +2167,7 @@ let%expect_test _ =
         {|
            ((output
              (((f.ml (1 0) (2 5))
-               (simple ((f.ml (1 8) (2 -6)) (Reference foo))  "bar \
-                                                             \n baz" image))))
+               (simple ((f.ml (1 8) (2 -6)) (Reference foo)) "bar   baz" image))))
             (warnings ())) |}]
   end in
   ()