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

@@ -25,7 +25,7 @@
 local extras = require "aard_lua_extras"
 require "gmcphelper"
 local snapshotV = tonumber(extras.PackageVersion())
-require 'tprint'
+
 
 local prefix = GetAlphaOption("script_prefix")
 
@@ -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
+            if shouldHyperlink(k.text, v) 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)
+               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