From 76c4de140783a617ff02f56c5df26c77777c84eb Mon Sep 17 00:00:00 2001
From: AardCrowley <aardcrowley@pm.me>
Date: Thu, 23 Mar 2023 00:29:09 -0400
Subject: [PATCH] New features, see extended desc

* Underlines removed.
* Hyperlinks occur on post number, author, and subject
* Hint for hyperlink displays post information
* Better matching
---
 NoteExtender/NoteExtender.xml | 54 +++++++++++++++++++++++++++++------
 1 file changed, 45 insertions(+), 9 deletions(-)

diff --git a/NoteExtender/NoteExtender.xml b/NoteExtender/NoteExtender.xml
index 607a4b7..df160c0 100644
--- a/NoteExtender/NoteExtender.xml
+++ b/NoteExtender/NoteExtender.xml
@@ -25,7 +25,7 @@
 local extras = require "aard_lua_extras"
 require "gmcphelper"
 local snapshotV = tonumber(extras.PackageVersion())
-require 'tprint'
+
 
 local prefix = GetAlphaOption("script_prefix")
 
@@ -65,10 +65,10 @@ function OnPluginInstall()
     true,                                    -- boolean, optional (default is false), make the text copyable via right-click
     true,                                    -- boolean, optional (default is false), turn detected URLs into clickable links
     true,                                    -- boolean, optional (default is false), automatically wrap text lines that are too wide
-    fontName,      -- string, optional (default is Dina), override the title font name
-    fontHeight,         -- integer, optional (default is 10), override the title font size
-    fontName,      -- string, optional (default is Dina), override the body text font name
-    fontHeight,         -- integer, optional (default is 10), override the body text font size
+    fontName,                                -- string, optional (default is Dina), override the title font name
+    fontHeight,                              -- integer, optional (default is 10), override the title font size
+    fontName,                                -- string, optional (default is Dina), override the body text font name
+    fontHeight,                              -- integer, optional (default is 10), override the body text font size
     1000,                                    -- integer, optional (default is 1000), maximum number of text lines to keep
     5,                                       -- integer, optional (default is 5 pixels), space between text and miniwindow frame
     true                                     -- boolean, optional (default is false), true will prevent the window from appearing until you call :show() on it
@@ -123,17 +123,53 @@ function addToWindow(lines)
    NotesWin:show()
 end
 
+function shouldHyperlink(str, tbl)
+   local hyperTbl = {}
+   local youShould = false
+
+   table.insert(hyperTbl, TruncateStyles(tbl, 2, 7))
+   table.insert(hyperTbl, TruncateStyles(tbl, 23, 34))
+   table.insert(hyperTbl, TruncateStyles(tbl, 37, 72))
+
+   for _,v in ipairs(hyperTbl) do
+      for _,w in ipairs(v) do
+         if Hash(w.text):find(Hash(str)) then
+            youShould = true
+            break
+         end
+      end
+   end
+
+   return youShould
+end
+
+function hyperText(tbl)
+   local retStr = ""
+
+   for _, v in ipairs(tbl) do
+      retStr = retStr .. v.text
+   end
+
+   return retStr
+end
 
 function hyperlinknotes(lines)
+   local postNo
+   local author
+   local subj
    for i,v in ipairs(lines) do
       if i == 1 then
          Simulate(stylesToANSI(v) .. ColoursToANSI(" @C(Post numbers are clickable)") .. "\n")
-      elseif i < 5 or i == #lines then
+      elseif i <= 4 or i == #lines then
          Simulate(stylesToANSI(v) .. "\n")
-      else
+      elseif i < #lines then
+         --postNo = v[2].text:gsub(" ", "")
+         postNo = hyperText(TruncateStyles(v, 2, 7)):gsub(" ", "")
+         author = hyperText(TruncateStyles(v, 23, 34)):gsub("%s+$", "")
+         subject = hyperText(TruncateStyles(v, 37, 72)):gsub("%s+$", "")
          for j,k in ipairs(v) do
-            if j == 2 then
-               Hyperlink(prefix .. "Execute('note read " .. string.gsub(k.text, " ", "") .. "')", k.text, "note read " .. string.gsub(k.text, " ", ""), RGBColourToName(k.textcolour), RGBColourToName(k.backcolour), false, true)
+            if shouldHyperlink(k.text, v) then
+               Hyperlink(prefix .. "Execute('note read " .. postNo .. "')", k.text, "Post #" .. postNo .. ": " .. subject .. " (" .. author .. ")", RGBColourToName(k.textcolour), RGBColourToName(k.backcolour), false, true)
             else
                ColourTell(RGBColourToName(k.textcolour), RGBColourToName(k.backcolour), k.text)
             end