add links support

YGGverse · Apr 14, 2024 · 2cbdcbf · 2cbdcbf
1 parent cef1551
commit 2cbdcbf
Showing 1 changed file with 33 additions and 1 deletion.
diff --git a/src/Pango.php b/src/Pango.php
@@ -138,7 +138,39 @@ public static function fromGemtextBody(
             }
         }
 
-        // @TODO links
+        // Links
+        foreach ($body->getLinks() as $index => $line)
+        {
+            if (!isset($raw[$index]))
+            {
+                $link = new \Yggverse\Gemini\Gemtext\Link(
+                    $line
+                );
+
+                if (!$address = $link->getAddress())
+                {
+                    continue;
+                }
+
+                if (!$alt = $link->getAlt())
+                {
+                    if (!$alt = $link->getDate())
+                    {
+                        $alt = $address;
+                    }
+                }
+
+                $lines[$index] = sprintf(
+                    '<a href="%s">%s</a>',
+                    $address,
+                    self::escape(
+                        $alt
+                    )
+                );
+
+                $escaped[] = $index;
+            }
+        }
 
         // Escape special chars for non escaped lines
         foreach ($body->getLines() as $index => $value)