Skip to content

Commit af62729

Browse files
committed
Merge branch 'topic/vadim/markdown' into 'master'
Process soft line break by HTML and ODF backends. Closes #130 See merge request eng/ide/gnatdoc!184
2 parents 243e30c + 5012833 commit af62729

File tree

2 files changed

+26
-2
lines changed

2 files changed

+26
-2
lines changed

source/backend/gnatdoc-backend-html_markup.adb

Lines changed: 13 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -43,7 +43,7 @@ package body GNATdoc.Backend.HTML_Markup is
4343
Text : VSS.Strings.Virtual_String);
4444

4545
overriding procedure Visit_Soft_Line_Break
46-
(Self : in out Annotated_Text_Builder) is null;
46+
(Self : in out Annotated_Text_Builder);
4747

4848
overriding procedure Enter_Emphasis
4949
(Self : in out Annotated_Text_Builder);
@@ -408,6 +408,18 @@ package body GNATdoc.Backend.HTML_Markup is
408408
Write_End_Element (Self.Stream, "em");
409409
end Leave_Emphasis;
410410

411+
---------------------------
412+
-- Visit_Soft_Line_Break --
413+
---------------------------
414+
415+
overriding procedure Visit_Soft_Line_Break
416+
(Self : in out Annotated_Text_Builder) is
417+
begin
418+
-- Convert soft line break into space character.
419+
420+
Self.Visit_Text (" ");
421+
end Visit_Soft_Line_Break;
422+
411423
----------------
412424
-- Visit_Text --
413425
----------------

source/backend/odf/gnatdoc-backend-odf_markup.adb

Lines changed: 13 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -81,7 +81,7 @@ package body GNATdoc.Backend.ODF_Markup is
8181
Text : VSS.Strings.Virtual_String);
8282

8383
overriding procedure Visit_Soft_Line_Break
84-
(Self : in out Annotated_Text_Builder) is null;
84+
(Self : in out Annotated_Text_Builder);
8585

8686
overriding procedure Enter_Emphasis
8787
(Self : in out Annotated_Text_Builder);
@@ -607,6 +607,18 @@ package body GNATdoc.Backend.ODF_Markup is
607607
Write_End_Element (Self.Stream, Text_Namespace, "span");
608608
end Leave_Strong;
609609

610+
---------------------------
611+
-- Visit_Soft_Line_Break --
612+
---------------------------
613+
614+
overriding procedure Visit_Soft_Line_Break
615+
(Self : in out Annotated_Text_Builder) is
616+
begin
617+
-- Convert soft line break into space character.
618+
619+
Self.Visit_Text (" ");
620+
end Visit_Soft_Line_Break;
621+
610622
----------------
611623
-- Visit_Text --
612624
----------------

0 commit comments

Comments
 (0)