From 04b3d5e42a85b0edabca415a2edcb3cc1180d495 Mon Sep 17 00:00:00 2001
From: Roland Heyder <support@rhosigma-cw.net>
Date: Wed, 6 Jul 2022 16:13:02 +0200
Subject: [PATCH] Semi-support local links

Rather than declining page local links completely, simply link to the top of the respective page, except if it's on the currently displayed page.
---
 source/ide/wiki/wiki_methods.bas | 25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

diff --git a/source/ide/wiki/wiki_methods.bas b/source/ide/wiki/wiki_methods.bas
index fba8c4e06..ffb079849 100644
--- a/source/ide/wiki/wiki_methods.bas
+++ b/source/ide/wiki/wiki_methods.bas
@@ -294,8 +294,8 @@ SUB WikiParse (a$) 'Wiki page interpret
     '---------------------
     'at start of line only
     '---------------------
-    ' *  = dot list point
-    ' ** = sub (ie. further indented) dot list point
+    ' *  or #  = dot list point
+    ' ** or ## = sub (ie. further indented) dot list point
     ' ;def:desc = full definition/description list
     ' :desc     = description only, but indented as in a full def/desc list
     ' ;* def:desc = combi list, list dot always belongs to description
@@ -508,16 +508,21 @@ SUB WikiParse (a$) 'Wiki page interpret
                 i = i + 1
                 link = 0
                 text$ = link$
-                i2 = INSTR(link$, "|")
+                i2 = INSTR(link$, "|") 'pipe link?
                 IF i2 > 0 THEN
-                    text$ = RIGHT$(link$, LEN(link$) - i2)
-                    link$ = LEFT$(link$, i2 - 1)
+                    text$ = RIGHT$(link$, LEN(link$) - i2) 'text part
+                    link$ = LEFT$(link$, i2 - 1) '         'link part
                 END IF
-
-                IF INSTR(link$, "#") THEN 'local page links not supported
-                    Help_AddTxt text$, 8, 0
-                    GOTO charDone
-                ELSEIF LEFT$(link$, 9) = "Category:" THEN 'ignore category links
+                i2 = INSTR(link$, "#") 'local link?
+                IF i2 > 0 THEN
+                    link$ = LEFT$(link$, i2 - 1) 'link to TOP
+                    IF link$ = "" THEN
+                        IF LEFT$(text$, 1) = "#" THEN text$ = MID$(text$, 2)
+                        Help_AddTxt text$, 8, 0
+                        GOTO charDone
+                    END IF
+                END IF
+                IF LEFT$(link$, 9) = "Category:" THEN 'ignore category links
                     Help_CheckRemoveBlankLine
                     GOTO charDone
                 END IF