diff options
| -rw-r--r-- | src/deck_convert.adb | 54 |
1 files changed, 53 insertions, 1 deletions
diff --git a/src/deck_convert.adb b/src/deck_convert.adb index 3b15a2f..6154b1c 100644 --- a/src/deck_convert.adb +++ b/src/deck_convert.adb @@ -45,6 +45,41 @@ procedure Deck_Convert is renames SU.To_String; + procedure Strip_Formatting + (Notes : in out Deck_IO.Note_Vectors.Vector) + is + procedure Strip + (Text : in out Deck_IO.Note; + Item : in String) + is + Position : Natural; + begin + for F of Text.Fields loop + loop + Position := SU.Index + (Source => SU.Unbounded_String (F), + Pattern => Item, + Going => Ada.Strings.Forward, + Mapping => Charhand.To_Lower'Access); + exit when Position = 0; + SU.Delete (SU.Unbounded_String (F), Position, Position + Item'Length - 1); + end loop; + end loop; + end Strip; + + Formatting : array (Positive range <>) of SU.Unbounded_String := + (+"<b>", +"</b>", +"<strong>", +"</strong>", +"<i>", +"</i>", +"<em>", +"</em>", + +"<mark>", +"</mark>", +"<small>", +"</small>", +"<del>", +"</del>", + +"<ins>", +"</ins>", +"<sub>", +"</sub>", +"<sup>", +"</sup>"); + begin + for N of Notes loop + for S of Formatting loop + Strip (N, -S); + end loop; + end loop; + end Strip_Formatting; + + Config : GCom.Command_Line_Configuration; @@ -54,6 +89,7 @@ procedure Deck_Convert is Verbose : aliased Boolean; Help : aliased Boolean; Overwrite : aliased Boolean; + Strip_Form : aliased Boolean; Format_Arg : aliased GStr.String_Access; Input_Arg : aliased GStr.String_Access; Output_Arg : aliased GStr.String_Access; @@ -91,7 +127,7 @@ begin GCom.Define_Switch (Config => Config, Output => Format_Arg'Access, Switch => "-t:", Long_Switch => "--type=", - Help => "format of output data, valid options are CSV or FMD, default is FMD"); + Help => "format of output data, options are CSV or FMD, default is FMD"); GCom.Define_Switch (Config => Config, Output => Input_Arg'Access, @@ -103,6 +139,11 @@ begin Switch => "-o:", Long_Switch => "--output=", Help => "base name to store output data"); + GCom.Define_Switch + (Config => Config, Output => Strip_Form'Access, + Switch => "-b", Long_Switch => "--bare", + Help => "strip formatting from deck notes"); + GCom.Set_Usage (Config => Config, @@ -200,6 +241,17 @@ begin New_Line (Standard_Error); end if; + if Strip_Form then + if Verbose then + Put (Standard_Error, "Stripping formatting from deck notes..."); + end if; + Strip_Formatting (Notes); + if Verbose then + Put_Line (Standard_Error, " Done"); + New_Line (Standard_Error); + end if; + end if; + declare Contain_Dir : String := FD.Containing_Directory (-Output_Name); Simple_Name : String := FD.Simple_Name (-Output_Name); |