Add shrink_concept. New version

Author: Azzaare

Project.toml

@@ -1,7 +1,7 @@
 name = "Constraints"
 uuid = "30f324ab-b02d-43f0-b619-e131c61659f7"
 authors = ["Jean-François Baffier"]
-version = "0.5.0"
+version = "0.5.1"
 
 [deps]
 CompositionalNetworks = "4b67e4b5-442d-4ef5-b760-3f5df3a57537"

src/constraint.jl

@@ -78,6 +78,13 @@ function make_error(symb::Symbol)
     return (x; params...) -> Float64(!eval(Symbol("concept_$symb"))(x; params...))
 end
 
+"""
+    shrink_concept(s)
+
+Simply delete the `concept_` part of symbol or string starting with it. TODO: add a check with a warning if `s` starts with something different.
+"""
+shrink_concept(s) = Symbol(string(s)[9:end])
+
 ## SECTION - Test Items
 @testitem "Empty constraint" tags = [:constraint, :empty] begin
     c = Constraint()

src/usual_constraints.jl

@@ -46,7 +46,7 @@ end
 macro usual(ex::Expr)
     # Symbol of the concept, for instance :all_different
     s = ex.args[1].args[1]
-    c = Symbol(string(s)[9:end])
+    c = shrink_concept(s)
 
     # Dict storing the existence or not of a default value for each kwarg
     defaults = Dict{Symbol, Bool}()