Change trunctol to use TruncationKeepBelow

Author: lkdvos

src/interface/truncation.jl

@@ -69,13 +69,6 @@ struct TruncationKeepFiltered{F} <: TruncationStrategy
     filter::F
 end
 
-"""
-    trunctol(val::Real; by=abs)
-
-Truncation strategy to discard the values that are smaller than `val` according to `by`.
-"""
-trunctol(val::Real; by=abs) = TruncationKeepFiltered(≥(val) ∘ by)
-
 """
     truncabove(val::Real; by=abs)
 
@@ -114,6 +107,15 @@ function TruncationKeepBelow(atol::Real, rtol::Real, p::Real=2, by=abs)
     return TruncationKeepBelow(promote(atol, rtol)..., p, by)
 end
 
+"""
+    trunctol(; atol::Real, rtol::Real, p::Real=2, by=abs)
+
+Truncation strategy to discard all values that satisfy `by(val) < max(atol, rtol * norm(values))`.
+"""
+function trunctol(; atol::Real=0, rtol::Real=0, p::Real=2, by=abs)
+    return TruncationKeepBelow(; atol, rtol, p, by)
+end
+
 """
     TruncationIntersection(trunc::TruncationStrategy, truncs::TruncationStrategy...)