Integer literals prefixed with - are also integer literals

Author: Brenton Bostick

CodeFormatter/Kernel/Indent.wl

@@ -897,6 +897,7 @@ a::b
 
 no spaces around Power:
 a^b
+10^-9
 
 *)
 indentInfixRatorSurroundedByLeafs[Pattern | Optional | PatternTest | MessageName | Power][rator_] :=
@@ -1018,6 +1019,8 @@ $SpecialChained = {
 }
 
 
+integerPat = LeafNode[Integer, _, _] | PrefixNode[Minus, {_, LeafNode[Integer, _, _]}, _]
+
 (*
 
 This is the big function for all BinaryNodes, InfixNodes, and TernaryNodes
@@ -1045,7 +1048,7 @@ Module[{aggs, rators, ratorsPat, split,
   ];
 
   Which[
-    MatchQ[type, BinaryNode | InfixNode] && MatchQ[graphs, {LeafNode[Integer, _, _], _LeafNode, LeafNode[Integer, _, _]}],
+    MatchQ[type, BinaryNode | InfixNode] && MatchQ[graphs, {integerPat, _LeafNode, integerPat}],
       infixRatorSurroundedBy = Integers;
     ,
     MatchQ[type, BinaryNode | InfixNode] && MatchQ[graphs, {_LeafNode, _LeafNode, _LeafNode}],

Tests/CodeFormatter.mt

@@ -380,6 +380,32 @@ Test[
 ]
 
 
+Test[
+	CodeFormat["1/-0"]
+	,
+	"1/-0"
+	,
+	TestID->"CodeFormatter-20221018-Q2X8M9"
+]
+
+Test[
+	CodeFormat["10^9"]
+	,
+	"10^9"
+	,
+	TestID->"CodeFormatter-20221018-Z7H7W5"
+]
+
+Test[
+	CodeFormat["10^-9"]
+	,
+	"10^-9"
+	,
+	TestID->"CodeFormatter-20221018-B5K0S1"
+]
+
+
+
 Test[
 	CodeFormat["Test[1/0, ComplexInfinity, {Power::infy}, TestID->\"test\"]"]
 	,