implement gemtext code format

README.md

@@ -221,10 +221,10 @@ $pango = \Yggverse\Gemini\Pango::fromGemtext(
 );
 ```
 
-#### Pango::fromBody
+#### Pango::fromGemtextBody
 
 ``` php
-$pango = \Yggverse\Gemini\Pango::fromBody(
+$pango = \Yggverse\Gemini\Pango::fromGemtextBody(
     new \Yggverse\Gemini\Gemtext\Body(
         $gemtext
     )

src/Pango.php

@@ -10,39 +10,77 @@ class Pango
         string $gemtext
     ): string
     {
-        return self::fromBody(
+        return self::fromGemtextBody(
             new \Yggverse\Gemini\Gemtext\Body(
                 $gemtext
             )
         );
     }
 
-    public static function fromBody(
+    public static function fromGemtextBody(
         \Yggverse\Gemini\Gemtext\Body $body
     ): string
     {
         $lines = $body->getLines();
 
+        $raw = [];
+
         $escaped = [];
 
-        // H1
+        // Code
-        foreach ($body->getH1() as $index => $value)
+        $code = $body->getCode();
+
+        if (count($code) % 2 == 0) // make sure tags has pairs
+        {
+            $i = 1;
+
+            foreach ($code as $index => $capture)
+            {
+                // Replace code tags
+                if ($i % 2 == 0)
+                {
+                    $lines[$index] = '</tt>';
+
+                    // Skip code format inside the tags by raw registry
+                    foreach (array_slice($lines, $offset, $index - $offset) as $start => $line)
+                    {
+                        $raw[$start + $offset] = $line;
+                    }
+                }
+
+                else
+                {
+                    if ($capture)
                     {
                         $lines[$index] = sprintf(
-                '<span size="xx-large">%s</span>',
+                            '<b>%s</b><tt>',
                             self::escape(
-                    $value
+                                $capture
                             )
                         );
+                    }
+
+                    else
+                    {
+                        $lines[$index] = '<tt>';
+                    }
+
+                    $offset = $index + 1;
+                }
 
                 $escaped[] = $index;
+
+                $i++;
+            }
         }
 
-        // H2
+        // H1
-        foreach ($body->getH2() as $index => $value)
+        foreach ($body->getH1() as $index => $value)
+        {
+            if (!isset($raw[$index]))
             {
                 $lines[$index] = sprintf(
-                '<span size="x-large">%s</span>',
+                    '<span size="xx-large">%s</span>',
                     self::escape(
                         $value
                     )
@@ -50,12 +88,15 @@ class Pango
 
                 $escaped[] = $index;
             }
+        }
 
-        // H3
+        // H2
-        foreach ($body->getH3() as $index => $value)
+        foreach ($body->getH2() as $index => $value)
+        {
+            if (!isset($raw[$index]))
             {
                 $lines[$index] = sprintf(
-                '<span size="large">%s</span>',
+                    '<span size="x-large">%s</span>',
                     self::escape(
                         $value
                     )
@@ -63,9 +104,12 @@ class Pango
 
                 $escaped[] = $index;
             }
+        }
 
         // H3
         foreach ($body->getH3() as $index => $value)
+        {
+            if (!isset($raw[$index]))
             {
                 $lines[$index] = sprintf(
                     '<span size="large">%s</span>',
@@ -76,9 +120,12 @@ class Pango
 
                 $escaped[] = $index;
             }
+        }
 
         // Quote
         foreach ($body->getQuote() as $index => $value)
+        {
+            if (!isset($raw[$index]))
             {
                 $lines[$index] = sprintf(
                     '<i>%s</i>',
@@ -89,8 +136,20 @@ class Pango
 
                 $escaped[] = $index;
             }
+        }
+
+        // @TODO links
 
-        // @TODO links, code
+        // Escape special chars for non escaped lines
+        foreach ($body->getLines() as $index => $value)
+        {
+            if (!in_array($index, $escaped))
+            {
+                $lines[$index] = self::escape(
+                    $value
+                );
+            }
+        }
 
         return implode(
             PHP_EOL,