From 7dc0bdaac07c939ee521c4ea42fa740849537f47 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 22 Apr 2024 14:59:56 -0500
Subject: [PATCH] Debugging image links with links in the description.

---
 src/MiniDocs/XMLElement.extension.st | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/MiniDocs/XMLElement.extension.st b/src/MiniDocs/XMLElement.extension.st
index 90104ee..76e8d74 100644
--- a/src/MiniDocs/XMLElement.extension.st
+++ b/src/MiniDocs/XMLElement.extension.st
@@ -32,7 +32,14 @@ XMLElement >> sanitizedContent [
 				accept: CMBlockVisitor new.
 			linkParserNodes := linkParser children first children.
 			linkParserNodes size = 1
-				ifTrue: [ sanitizedText := linkParserNodes first label text ]
+				ifTrue: [ 
+					linkParserNodes first className = 'PPCMLink'
+						ifTrue: [ sanitizedText := linkParserNodes first label text]
+						ifFalse: [ 
+							sanitizedText := (linkParserNodes first  text splitOn: '](') first.
+							sanitizedText := sanitizedText copyReplaceAll: '![' with: ''
+						]
+				]
 				ifFalse: [ 
 					sanitizedText := '' writeStream.
 					linkParserNodes allButLast do: [:each |