Ignore caniuse links that point to w3.org

[zcorpan]

See Fyrd/caniuse#2232

function URLToID(const SpecURL: UTF8String; out ID: UTF8String): Boolean;
var
   HashIndex: Cardinal;
begin
   ID := '';
   Result := True;
   if ((Pos('http://www.w3.org/TR/html51/', SpecURL) = 1) or
       (Pos('http://www.w3.org/TR/html5/', SpecURL) = 1) or
       (Pos('http://www.w3.org/TR/html/', SpecURL) = 1) or
       (Pos('http://www.w3.org/html/wg/drafts/html/master/', SpecURL) = 1) or
       (Pos('http://dev.w3.org/html5/spec/', SpecURL) = 1) or
       (Pos('http://www.w3.org/TR/2011/WD-html5-20110525/', SpecURL) = 1) or
       (Pos('http://www.w3.org/TR/2014/PR-html5-20140916/', SpecURL) = 1) or
       (Pos('http://www.w3.org/TR/workers/', SpecURL) = 1) or
       (Pos('http://www.w3.org/TR/webstorage/', SpecURL) = 1) or
       (Pos('http://www.w3.org/TR/webmessaging/', SpecURL) = 1) or
       (Pos('https://html.spec.whatwg.org/', SpecURL) = 1) or
       (Pos('https://www.whatwg.org/specs/web-apps/current-work/', SpecURL) = 1) or
       (Pos('http://www.whatwg.org/specs/web-apps/current-work/', SpecURL) = 1) or
       (Pos('https://whatwg.org/specs/web-apps/current-work/', SpecURL) = 1) or
       (Pos('http://whatwg.org/specs/web-apps/current-work/', SpecURL) = 1)) then

We should ignore anything but https://html.spec.whatwg.org/ and make sure caniuse links to that where appropriate, if it doesn't already.

[zcorpan]

diff --git a/src/wattsi.pas b/src/wattsi.pas
index 533ed11..72e0470 100644
--- a/src/wattsi.pas
+++ b/src/wattsi.pas
@@ -2018,6 +2018,8 @@ begin
          else
             Feature.Reset();
          Feature.CanIUseCode := FeatureCode;
+         if (Pos('https://html.spec.whatwg.org/', SpecURL) <> 1) then
+            Writeln('Caniuse non-whatwg link: ', SpecURL, ' ', FeatureCode);
          for BrowserIndex in TBrowserIndex do
          begin
             Feature.FirstGoodVersion[BrowserIndex].Version := '';

->

Processing caniuse.com data...
Caniuse non-whatwg link: http://www.w3.org/TR/webmessaging/#channel-messaging channel-messaging
Caniuse non-whatwg link: http://www.w3.org/TR/webstorage/#storage namevalue-storage
Caniuse non-whatwg link: http://www.w3.org/TR/websockets/ websockets
Caniuse non-whatwg link: http://www.w3.org/TR/xhtml1/ xhtml
Caniuse non-whatwg link: http://www.w3.org/TR/eventsource/ eventsource
Caniuse non-whatwg link: http://www.w3.org/TR/MathML/ mathml

Should probably keep this

   if (SpecURL = 'http://www.w3.org/TR/MathML/') then
   begin
      ID := 'mathml';
   end

However URLToID is used by URLs from bugzilla also, which we probably want to keep as is for now...