Avoid abbreviations

* Reformat Blocks with a hashed_map

In the package Pandoc a function called `Get_Type()` is defined,
which takes a JSON block and returns the pandoc assigned type.

The main code of the `Traverse_Block` function is changed to
use an enumeration of Pandoc types instead of comparing string.

* Rename Package to reduce text

* Correct indent

* Add functions for creating Div's and Attributes

* Change table with codeblocks to nested div's

* Add sidebar_position for Ada_Style_Guide.mdx

source/aqs2mdx.adb

@@ -142,12 +142,10 @@ procedure Aqs2mdx is
                Columns_Div : Pandoc.Content_Arr (1 .. Cell_List.Length);
 
                Outer_Attr : constant League.JSON.Values.JSON_Value :=
-                 Pandoc.Attr (
+                 Pandoc.Attr (+"className", +"multi-column");
-                    +"", ( 1 => +"className"), ( 1 => +"multi-column"));
 
                Inner_Attr : constant League.JSON.Values.JSON_Value :=
-                 Pandoc.Attr (
+                 Pandoc.Attr (+"className", +"multi-column-child");
-                    +"", ( 1 => +"className"), ( 1 => +"multi-column-child"));
 
             begin
                pragma Assert (Content.Length = 6);

source/pandoc.adb

@@ -1,11 +1,21 @@
+pragma Ada_2022;
+
 with League.JSON.Arrays;
 
 package body Pandoc is
 
-   function Attr (
+   function Attr
-      Id : Ustr.Universal_String;
+     (Key   : League.Strings.Universal_String;
-      Key : Ustr_Array;
+      Value : League.Strings.Universal_String;
-      Value : Ustr_Array) return League.JSON.Values.JSON_Value
+      Id    : League.Strings.Universal_String :=
+        League.Strings.Empty_Universal_String)
+          return League.JSON.Values.JSON_Value is
+           (Attr (Id, [Key], [Value]));
+
+   function Attr
+     (Id    : League.Strings.Universal_String;
+      Key   : String_Array;
+      Value : String_Array) return League.JSON.Values.JSON_Value
    is
       Outer : League.JSON.Arrays.JSON_Array;
       Other : League.JSON.Arrays.JSON_Array;
@@ -59,8 +69,8 @@ package body Pandoc is
       return Block.To_JSON_Value;
    end Div;
 
-   function Div (
+   function Div
-      Attr : League.JSON.Values.JSON_Value;
+     (Attr    : League.JSON.Values.JSON_Value;
       Content : League.JSON.Values.JSON_Value)
       return League.JSON.Values.JSON_Value
    is
@@ -86,26 +96,13 @@ package body Pandoc is
    end Div;
 
    function Get_Type (B : League.JSON.Objects.JSON_Object)
-     return Object_Type is
+     return Object_Type is (Type_Mapping (B (Type_String).To_String));
-   begin
-      return Type_Map.Element (
-        Type_Mapping.Find (
-          B (Type_String).To_String
-        )
-      );
-   end Get_Type;
-
-   function Hash (Item : Ustr.Universal_String)
-     return Ada.Containers.Hash_Type is
-   begin
-      return Ada.Containers.Hash_Type (League.Hash_Type'(Item.Hash));
-   end Hash;
 
 begin
 
    for Key in Object_Type loop
       declare
-         Str_Rep : constant Ustr.Universal_String :=
+         Str_Rep : constant League.Strings.Universal_String :=
            Obj_String_Representation (Key);
       begin
          Type_Mapping.Insert (Str_Rep, Key);

source/pandoc.ads

@@ -1,19 +1,17 @@
 with Ada.Containers;
 with Ada.Containers.Hashed_Maps;
 with League.JSON.Objects;
+with League.Strings.Hash;
 with League.Strings;
 with League.JSON.Values;
 
 package Pandoc is
 
-   Pandoc_Type_Error : exception;
+   type String_Array is array (Natural range <>) of
+     League.Strings.Universal_String;
 
-   package Ustr renames League.Strings;
+   type Object_Type is
-
+     (Block_Plain,
-   type Ustr_Array is array (Natural range <>) of Ustr.Universal_String;
-
-   type Object_Type is (
-     Block_Plain,
       Block_Para,
       Block_LineBlock,
       Block_CodeBlock,
@@ -46,42 +44,44 @@ package Pandoc is
       Inline_Link,
       Inline_Image,
       Inline_Note,
-     Inline_Span
+      Inline_Span);
-    );
 
    type Content_Arr is array (Natural range <>)
      of League.JSON.Values.JSON_Value;
 
-   function Get_Type (
+   function Get_Type (B : League.JSON.Objects.JSON_Object) return Object_Type;
-     B : League.JSON.Objects.JSON_Object) return Object_Type;
 
-   function "+" (T : Wide_Wide_String) return Ustr.Universal_String
+   function "+" (T : Wide_Wide_String) return League.Strings.Universal_String
-     renames Ustr.To_Universal_String;
+     renames League.Strings.To_Universal_String;
 
-   function Attr (
+   function Attr
-      Id : Ustr.Universal_String;
+     (Key   : League.Strings.Universal_String;
-      Key : Ustr_Array;
+      Value : League.Strings.Universal_String;
-      Value : Ustr_Array) return League.JSON.Values.JSON_Value;
+      Id    : League.Strings.Universal_String :=
+        League.Strings.Empty_Universal_String)
+          return League.JSON.Values.JSON_Value;
 
-   function Div (
+   function Attr
-      Attr : League.JSON.Values.JSON_Value;
+     (Id    : League.Strings.Universal_String;
+      Key   : String_Array;
+      Value : String_Array) return League.JSON.Values.JSON_Value;
+
+   function Div
+     (Attr : League.JSON.Values.JSON_Value;
       Content : Content_Arr) return League.JSON.Values.JSON_Value;
 
-   function Div (
+   function Div
-      Attr : League.JSON.Values.JSON_Value;
+     (Attr : League.JSON.Values.JSON_Value;
       Content : League.JSON.Values.JSON_Value)
         return League.JSON.Values.JSON_Value;
 
-   Type_String : constant Ustr.Universal_String := +"t";
+   Type_String : constant League.Strings.Universal_String := +"t";
-   Content_String : constant Ustr.Universal_String := +"c";
+   Content_String : constant League.Strings.Universal_String := +"c";
 
 private
 
-   function Hash (Item : Ustr.Universal_String)
-     return Ada.Containers.Hash_Type;
-
    Obj_String_Representation :
-     constant array (Object_Type) of Ustr.Universal_String := (
+     constant array (Object_Type) of League.Strings.Universal_String := (
       +"Plain",
       +"Para",
       +"LineBlock",
@@ -119,10 +119,10 @@ private
    );
 
    package Type_Map is new Ada.Containers.Hashed_Maps (
-     Key_Type => Ustr.Universal_String,
+     Key_Type => League.Strings.Universal_String,
      Element_Type => Object_Type,
-     Hash => Hash,
+     Hash => League.Strings.Hash,
-     Equivalent_Keys => Ustr."=");
+     Equivalent_Keys => League.Strings."=");
 
    Type_Mapping : Type_Map.Map := Type_Map.Empty;