From 84e51c20e2088ab00e9ac9a20ab63740c0417b95 Mon Sep 17 00:00:00 2001
From: Roland Heyder <support@rhosigma-cw.net>
Date: Tue, 28 Mar 2023 12:43:33 +0200
Subject: [PATCH] Add link titles in HTML export

- titles are usually shown as tool tip in a browser
- almost useless, but made to be in line with Wiki behavior
---
 source/ide/ide_methods.bas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index d398dac00..1bca3c755 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -20793,8 +20793,8 @@ SUB ExportCodeAs (docFormat$)
     pal% = LEN(page$): lkl% = LEN(lnk$)
     SELECT CASE LCASE$(docFormat$)
         CASE "html"
-            MID$(eTxt$, ePos&, pal% + lkl% + 111) = "<a style=" + CHR$(34) + "text-decoration: none; color: " + lkc$ + ";" + CHR$(34) + " href=" + CHR$(34) + "https://qb64phoenix.com/qb64wiki/index.php?title=" + page$ + CHR$(34) + ">" + lnk$ + "</a>"
-            ePos& = ePos& + pal% + lkl% + 111
+            MID$(eTxt$, ePos&, (2 * pal%) + lkl% + 120) = "<a style=" + CHR$(34) + "text-decoration: none; color: " + lkc$ + ";" + CHR$(34) + " href=" + CHR$(34) + "https://qb64phoenix.com/qb64wiki/index.php?title=" + page$ + CHR$(34) + " title=" + CHR$(34) + page$ + CHR$(34) + ">" + lnk$ + "</a>"
+            ePos& = ePos& + (2 * pal%) + lkl% + 120
         CASE "rich"
             MID$(eTxt$, ePos&, pal% + lkl% + 108) = "{\field{\*\fldinst HYPERLINK " + CHR$(34) + "https://qb64phoenix.com/qb64wiki/index.php?title=" + page$ + CHR$(34) + "}{\fldrslt{" + rtc$ + "\ul0 " + lnk$ + "}}}\cf0 "
             ePos& = ePos& + pal% + lkl% + 108