summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/deck_convert.adb54
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);