Omit unnecessary elements in the dev edition

Omits the small TOC, fingerprint markers, and <pre class=idl> blocks. Part of #27.
whatwg · Jun 15, 2017 · 0f13dfb · 0f13dfb
1 parent fc38205
commit 0f13dfb
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/wattsi.pas b/src/wattsi.pas
@@ -835,6 +835,11 @@    TCrossReferences = record
             SaveCrossReference(Element);
          end
          else
+         if (Element.IsIdentity(nsHTML, ePre) and (Element.GetAttribute('class').AsString = 'idl') and (Variant = vDEV)) then
+         begin
+            Result := False;
+         end
+         else
          if (Element.IsIdentity(nsHTML, eSpan)) then
          begin
             if (Element.HasAttribute(kLTAttribute)) then
@@ -936,7 +941,7 @@    TCrossReferences = record
             end;
          end
          else
-         if (Instruction = 'smalltoc') then
+         if ((Instruction = 'smalltoc') and (Variant <> vDEV)) then
          begin
             if (LastHeadingRank <> 2) then
             begin
@@ -963,7 +968,7 @@    TCrossReferences = record
             Result := ProcessNode(Node);
          end
          else
-         if (Instruction = 'INSERT FINGERPRINT') then
+         if ((Instruction = 'INSERT FINGERPRINT') and (Variant <> vDEV)) then
          begin
             TempElement := E(eSpan, [kCrossRefAttribute, 'fingerprinting vector',
                                      'title', 'There is a potential fingerprinting vector here.',